[interchange-cvs] interchange - jon modified
code/SystemTag/scratch.coretag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Dec 4 08:10:57 EST 2003
User: jon
Date: 2003-12-04 13:10:56 GMT
Modified: code/SystemTag scratch.coretag
Log:
Add filter option to [scratch], the same as with [value] and [cgi].
Revision Changes Path
1.3 +8 -2 interchange/code/SystemTag/scratch.coretag
rev 1.3, prev_rev 1.2
Index: scratch.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/scratch.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- scratch.coretag 7 May 2003 01:07:28 -0000 1.2
+++ scratch.coretag 4 Dec 2003 13:10:56 -0000 1.3
@@ -1,8 +1,14 @@
UserTag scratch Order name
UserTag scratch PosNumber 1
+UserTag scratch addAttr
UserTag scratch Routine <<EOR
sub {
- my $var = shift;
- return $::Scratch->{$var};
+ my ($var, $opt) = @_;
+ my $value = $::Scratch->{$var};
+ if($opt->{filter}) {
+ $value = filter_value($opt->{filter}, $value, $var);
+ $::Scratch->{$var} = $value unless $opt->{keep};
+ }
+ return $value;
}
EOR
More information about the interchange-cvs
mailing list