[interchange-cvs] interchange - kwalsh modified code/UserTag/save_cart.tag

[interchange-cvs at icdevgroup.org]

User:      kwalsh
Date:      2007-12-16 10:15:09 GMT
Modified:  code/UserTag save_cart.tag
Log:
    * Don't delete the cart after saving if the new "keep" parameter
      is set true.

Revision  Changes    Path
1.7       +5 -5      interchange/code/UserTag/save_cart.tag


rev 1.7, prev_rev 1.6
Index: save_cart.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/save_cart.tag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- save_cart.tag	30 Mar 2007 23:40:57 -0000	1.6
+++ save_cart.tag	16 Dec 2007 10:15:09 -0000	1.7
@@ -5,14 +5,14 @@
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.  See the LICENSE file for details.
 # 
-# $Id: save_cart.tag,v 1.6 2007/03/30 23:40:57 pajamian Exp $
+# $Id: save_cart.tag,v 1.7 2007/12/16 10:15:09 kwalsh Exp $
 
-UserTag save_cart Order     nickname recurring
+UserTag save_cart Order     nickname recurring keep
 UserTag save_cart AttrAlias name nickname
-UserTag save_cart Version   $Revision: 1.6 $
+UserTag save_cart Version   $Revision: 1.7 $
 UserTag save_cart Routine   <<EOR
 sub {
-	my($nickname,$recurring) = @_;
+	my($nickname,$recurring,$keep) = @_;
 
 	my $add = 0;
 	my %names = ();
@@ -43,7 +43,7 @@
 		return '';
 	}
 
-	$Carts->{main} = [];
+	$Carts->{main} = [] unless is_yes($keep);
 
 	return '';
 }