[interchange-cvs] interchange - docelic modified 3 files

[interchange-cvs at icdevgroup.org]

User:      docelic
Date:      2004-10-16 21:50:43 GMT
Modified:  code/SystemTag cart.coretag
Modified:  code/UserTag load_cart.tag save_cart.tag
Log:
* SystemTag/cart.coretag: Header/license fix
* UserTag/load_cart.tag: Header/license/indenting fix, AttrAlias name nickname
* UserTag/save_cart.tag: Header/license fix, AttrAlias name nickname

Revision  Changes    Path
1.3       +4 -0      interchange/code/SystemTag/cart.coretag


rev 1.3, prev_rev 1.2
Index: cart.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/cart.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cart.coretag	7 May 2003 01:07:28 -0000	1.2
+++ cart.coretag	16 Oct 2004 21:50:43 -0000	1.3
@@ -1,3 +1,7 @@
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: cart.coretag,v 1.3 2004/10/16 21:50:43 docelic Exp $
+
 UserTag cart                Order        name
 UserTag cart                PosNumber    1
 UserTag cart                MapRoutine   Vend::Interpolate::tag_cart



1.2       +13 -8     interchange/code/UserTag/load_cart.tag


rev 1.2, prev_rev 1.1
Index: load_cart.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/load_cart.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- load_cart.tag	29 Jan 2002 05:52:42 -0000	1.1
+++ load_cart.tag	16 Oct 2004 21:50:43 -0000	1.2
@@ -1,17 +1,22 @@
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: load_cart.tag,v 1.2 2004/10/16 21:50:43 docelic Exp $
+
 UserTag load_cart Order nickname
+UserTag load_cart AttrAlias name nickname
 UserTag load_cart Routine <<EOR
 sub {
-    my($nickname) = @_;
+	my($nickname) = @_;
 
-    my($jn,$updated,$recurring) = split(':',$nickname);
+	my($jn,$updated,$recurring) = split(':',$nickname);
 
-    $Tag->userdb({function => 'get_cart', nickname => $nickname, merge => 1});
-    $Scratch->{just_nickname} = $jn;
+	$Tag->userdb({function => 'get_cart', nickname => $nickname, merge => 1});
+	$Scratch->{just_nickname} = $jn;
 
-    if($recurring eq 'c') {
-        $Tag->userdb({function => 'delete_cart', nickname => $nickname});
-    }
+	if($recurring eq 'c') {
+		$Tag->userdb({function => 'delete_cart', nickname => $nickname});
+	}
 
-    return '';
+	return '';
 }
 EOR



1.2       +5 -0      interchange/code/UserTag/save_cart.tag


rev 1.2, prev_rev 1.1
Index: save_cart.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/save_cart.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- save_cart.tag	29 Jan 2002 05:52:42 -0000	1.1
+++ save_cart.tag	16 Oct 2004 21:50:43 -0000	1.2
@@ -1,4 +1,9 @@
+# Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
+# Licensed under the GNU GPL v2. See file LICENSE for details.
+# $Id: save_cart.tag,v 1.2 2004/10/16 21:50:43 docelic Exp $
+
 UserTag save_cart Order nickname recurring
+UserTag save_cart AttrAlias name nickname
 UserTag save_cart Routine <<EOR
 sub {
 	my($nickname,$recurring) = @_;