[interchange-cvs] interchange - docelic modified code/SystemTag/cgi.coretag

[interchange-cvs at icdevgroup.org]

User:      docelic
Date:      2004-10-16 13:24:00 GMT
Modified:  code/SystemTag cgi.coretag
Log:
* header/license fix
* indenting fix

Revision  Changes    Path
1.3       +11 -8     interchange/code/SystemTag/cgi.coretag


rev 1.3, prev_rev 1.2
Index: cgi.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/cgi.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cgi.coretag	7 May 2003 01:07:28 -0000	1.2
+++ cgi.coretag	16 Oct 2004 13:24:00 -0000	1.3
@@ -1,28 +1,31 @@
+# Copyright 2004 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: cgi.coretag,v 1.3 2004/10/16 13:24:00 docelic Exp $
+
 UserTag cgi                 Order        name
 UserTag cgi                 addAttr
 UserTag cgi                 PosNumber    1
 UserTag cgi                 Routine <<EOR
 sub {
-    my($var, $opt) = @_;
-    my($value);
+	my($var, $opt) = @_;
+	my($value);
 
 	local($^W) = 0;
 	$CGI::values{$var} = $opt->{set} if defined $opt->{set};
 	$value = defined $CGI::values{$var} ? ($CGI::values{$var}) : '';
-    if ($value) {
+	if ($value) {
 		# Eliminate any Interchange tags
 		$value =~ s~<([A-Za-z]*[^>]*\s+[Mm][Vv]\s*=\s*)~&lt;$1~g;
 		$value =~ s/\[/&#91;/g;
-    }
+	}
 	if($opt->{filter}) {
 		$value = filter_value($opt->{filter}, $value, $var);
 		$CGI::values{$var} = $value unless $opt->{keep};
 	}
 
-    return '' if $opt->{hide};
+	return '' if $opt->{hide};
 
-	$value =~ s/</&lt;/g
-		unless $opt->{enable_html};
-    return $value;
+	$value =~ s/</&lt;/g unless $opt->{enable_html};
+	return $value;
 }
 EOR