[interchange-cvs] interchange - racke modified code/UserTag/var.tag

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2004-02-11 22:06:06 GMT
Modified:  code/UserTag var.tag
Log:
use positional variable for filter, remove include artifact

Revision  Changes    Path
1.7       +3 -4      interchange/code/UserTag/var.tag


rev 1.7, prev_rev 1.6
Index: var.tag
===================================================================
RCS file: /anon_cvs/repository/interchange/code/UserTag/var.tag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- var.tag	11 Feb 2004 19:56:17 -0000	1.6
+++ var.tag	11 Feb 2004 22:06:06 -0000	1.7
@@ -9,11 +9,10 @@
 # [var VARIABLE 2] is equivalent to @_VARIABLE_@
 #
 UserTag var Interpolate 1
-UserTag var Order name global include
-UserTag var addAttr
+UserTag var Order name global filter
 UserTag var Routine <<EOR
 sub {
-    my ($key, $global, $include, $opt) = @_;
+    my ($key, $global, $filter) = @_;
 	my $value;
 	if ($global and $global != 2) {
 		$value = $Global::Variable->{$key};
@@ -29,7 +28,7 @@
 		);
 		$value ||= $Global::Variable->{$key} if $global;
 	}
-	$value = filter_value($opt->{filter}, $value, $key) if $opt->{filter};
+	$value = filter_value($filter, $value, $key) if $filter;
 	return $value;
 }
 EOR