[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