[interchange-cvs] interchange - jon modified code/UserTag/button.tag

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2006-12-29 00:50:55 GMT
Modified:  code/UserTag button.tag
Log:
Fix indenting.

Revision  Changes    Path
1.19      +5 -5      interchange/code/UserTag/button.tag


rev 1.19, prev_rev 1.18
Index: button.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/button.tag,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -u -r1.18 -r1.19
--- button.tag	21 Sep 2006 16:59:07 -0000	1.18
+++ button.tag	29 Dec 2006 00:50:55 -0000	1.19
@@ -1,12 +1,12 @@
 # Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: button.tag,v 1.18 2006/09/21 16:59:07 jon Exp $
+# $Id: button.tag,v 1.19 2006/12/29 00:50:55 jon Exp $
 
 UserTag button Order     name src text
 UserTag button addAttr
 UserTag button attrAlias value text
 UserTag button hasEndTag
-UserTag button Version   $Revision: 1.18 $
+UserTag button Version   $Revision: 1.19 $
 UserTag button Routine   <<EOR
 sub {
 	my ($name, $src, $text, $opt, $action) = @_;
@@ -31,13 +31,13 @@
 		$id =~ s:/+$::;
 		$id =~ s:/~[^/]+::;
 		if(	$src =~ m{^https?:}i ) {
-				$image = $src;
+			$image = $src;
 		}
 		elsif( $dr and $id and $src =~ m{^[^/]} and -f "$dr$id/$src" ) {
-				$image = $src;
+			$image = $src;
 		}
 		elsif( $dr and $src =~ m{^/} and -f "$dr/$src" ) {
-				$image = "$id/$src";
+			$image = "$id/$src";
 		}
 	}