[interchange-cvs] interchange - docelic modified
code/UserTag/values_space.tag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Sat Sep 25 08:30:08 EDT 2004
User: docelic
Date: 2004-09-25 12:30:07 GMT
Modified: code/UserTag values_space.tag
Log:
- Header and license fix
Revision Changes Path
1.2 +5 -31 interchange/code/UserTag/values_space.tag
rev 1.2, prev_rev 1.1
Index: values_space.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/values_space.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- values_space.tag 13 Apr 2004 01:10:13 -0000 1.1
+++ values_space.tag 25 Sep 2004 12:30:07 -0000 1.2
@@ -1,37 +1,10 @@
-#
-# values-space tag
-# $Id: values_space.tag,v 1.1 2004/04/13 01:10:13 jon Exp $
-#
-# Usage:
-#
-# [values-space checkout]
-# Switches current values space to "checkout" for duration of page.
-#
-# [values-space name=checkout copy-all=1]
-# Same as above, but copies all values from main values space into "checkout"
-# values space. (Does not dereference nested data structures.)
-#
-# [values-space name=checkout copy="lname fname company"]
-# Copies only three named values instead of all values.
-#
-# [values-space name=checkout clear=1]
-# Removes all values from values space "checkout", then switches to it.
-#
-# [values-space]
-# [perl] $Tag->values_space() [/perl]
-# Returns the name of the current values space (here 'checkout').
-#
-# [values-space name=""]
-# or: [perl] $Tag->values_space('') [/perl]
-# Switches back to default values space.
-#
-# [values-space name="" show=1]
-# Switches back to default values space but returns name of previous space.
-#
+# Copyright 2004 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: values_space.tag,v 1.2 2004/09/25 12:30:07 docelic Exp $
UserTag values-space Order name
UserTag values-space addAttr
-UserTag values-space Version $Revision: 1.1 $
+UserTag values-space Version $Revision: 1.2 $
UserTag values-space Routine <<EOR
sub {
my ($name, $opt) = @_;
@@ -69,3 +42,4 @@
return $opt->{show} ? $old_name : '';
}
EOR
+
More information about the interchange-cvs
mailing list