[interchange-cvs] interchange - racke modified 2 files

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2005-12-08 16:19:50 GMT
Modified:  .        WHATSNEW-5.5
Modified:  code/UserTag save_cart.tag
Log:
[save-cart] keeps cart if userdb returns with an error.

Revision  Changes    Path
1.2       +2 -0      interchange/WHATSNEW-5.5


rev 1.2, prev_rev 1.1
Index: WHATSNEW-5.5
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.5,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- WHATSNEW-5.5	21 Nov 2005 10:40:59 -0000	1.1
+++ WHATSNEW-5.5	8 Dec 2005 16:19:50 -0000	1.2
@@ -11,4 +11,6 @@
 UserTag
 -------
 
+* [save-cart] keeps cart if userdb returns with an error. 
+
 * [formel] calls [display] on unknown types.



1.5       +5 -3      interchange/code/UserTag/save_cart.tag


rev 1.5, prev_rev 1.4
Index: save_cart.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/save_cart.tag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- save_cart.tag	8 Nov 2005 18:14:43 -0000	1.4
+++ save_cart.tag	8 Dec 2005 16:19:50 -0000	1.5
@@ -1,10 +1,10 @@
 # Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: save_cart.tag,v 1.4 2005/11/08 18:14:43 jon Exp $
+# $Id: save_cart.tag,v 1.5 2005/12/08 16:19:50 racke Exp $
 
 UserTag save_cart Order     nickname recurring
 UserTag save_cart AttrAlias name nickname
-UserTag save_cart Version   $Revision: 1.4 $
+UserTag save_cart Version   $Revision: 1.5 $
 UserTag save_cart Routine   <<EOR
 sub {
 	my($nickname,$recurring) = @_;
@@ -34,7 +34,9 @@
 
 	my $nn = join(':',$nickname,time(),$recurring);
 
-	$Tag->userdb({function => 'set_cart', nickname => $nn});
+	unless ($Tag->userdb({function => 'set_cart', nickname => $nn})) {
+		return '';
+	}
 
 	$Carts->{main} = [];