[interchange-cvs] interchange - kwalsh modified code/SystemTag/image.tag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Fri Aug 3 21:00:11 EDT 2007


User:      kwalsh
Date:      2007-08-04 01:00:11 GMT
Modified:  code/SystemTag image.tag
Log:
    * Use the DescriptionField local configuration directive's value if
      the "descriptionfields" parameter and the "DESCRIPTIONFIELDS"
      Variable both turn out to be blank/false/undef.

Revision  Changes    Path
1.20      +3 -3      interchange/code/SystemTag/image.tag


rev 1.20, prev_rev 1.19
Index: image.tag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/image.tag,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- image.tag	4 Aug 2007 00:32:41 -0000	1.19
+++ image.tag	4 Aug 2007 01:00:11 -0000	1.20
@@ -5,13 +5,13 @@
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.  See the LICENSE file for details.
 # 
-# $Id: image.tag,v 1.19 2007/08/04 00:32:41 kwalsh Exp $
+# $Id: image.tag,v 1.20 2007/08/04 01:00:11 kwalsh Exp $
 
 UserTag image Order     src
 UserTag image AttrAlias geometry makesize
 UserTag image AttrAlias resize makesize
 UserTag image AddAttr
-UserTag image Version   $Revision: 1.19 $
+UserTag image Version   $Revision: 1.20 $
 UserTag image Routine   <<EOR
 sub {
 	my ($src, $opt) = @_;
@@ -19,7 +19,7 @@
 	my ($imagedircurrent, $imagedir, $imagedirsecure);
 
 	my @descriptionfields = grep /\S/, split /\s+/,
-		$opt->{descriptionfields} || $::Variable->{DESCRIPTIONFIELDS};
+		$opt->{descriptionfields} || $::Variable->{DESCRIPTIONFIELDS} || $Vend::Cfg->{DescriptionField};
 	@descriptionfields = qw( description ) if ! @descriptionfields;
 
 	my @imagefields = qw( image );








More information about the interchange-cvs mailing list