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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sun Aug 5 00:44:09 EDT 2007


User:      kwalsh
Date:      2007-08-05 04:44:09 GMT
Modified:  code/SystemTag image.tag
Log:
    * The "description" column name could be changed using either the
      "descriptionfields" parameter, the "DESCRIPTIONFIELDS" variable or
      the DescriptionField config parameter, but the "imagefields" was
      hard-coded to "image".

      The "image" column name can now be changed using either the
      "imagefields" parameter or the "IMAGEFIELDS" variable.

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


rev 1.21, prev_rev 1.20
Index: image.tag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/image.tag,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- image.tag	4 Aug 2007 01:00:11 -0000	1.20
+++ image.tag	5 Aug 2007 04:44:09 -0000	1.21
@@ -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.20 2007/08/04 01:00:11 kwalsh Exp $
+# $Id: image.tag,v 1.21 2007/08/05 04:44:09 kwalsh Exp $
 
 UserTag image Order     src
 UserTag image AttrAlias geometry makesize
 UserTag image AttrAlias resize makesize
 UserTag image AddAttr
-UserTag image Version   $Revision: 1.20 $
+UserTag image Version   $Revision: 1.21 $
 UserTag image Routine   <<EOR
 sub {
 	my ($src, $opt) = @_;
@@ -22,7 +22,10 @@
 		$opt->{descriptionfields} || $::Variable->{DESCRIPTIONFIELDS} || $Vend::Cfg->{DescriptionField};
 	@descriptionfields = qw( description ) if ! @descriptionfields;
 
-	my @imagefields = qw( image );
+	my @imagefields = grep /\S/, split /\s+/,
+		$opt->{imagefields} || $::Variable->{IMAGEFIELDS};
+	@imagefields = qw( image ) if ! @imagefields;
+
 	my @imagesuffixes = qw( jpg gif png jpeg );
 	my $filere = qr/\.\w{2,4}$/;
 	my $absurlre = qr!^(?i:https?)://!;








More information about the interchange-cvs mailing list