Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart-add.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart-add.tcl	28 Jun 2005 22:04:20 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart-add.tcl	8 Jul 2005 11:03:52 -0000	1.3
@@ -152,9 +152,17 @@
 		insert into dotlrn_ecommerce_orders (item_id, patron_id, participant_id)
 		values (:item_id, :user_id, :participant_id)
 	    }
+	} else {
+	    # Update the order
+	    db_dml update_item_order_dotlrn_ecommerce {
+		update dotlrn_ecommerce_orders
+		set patron_id = :user_id,
+		participant_id = :participant_id
+		where item_id = :item_id
+	    }
 	}
     }
 }
 
 db_release_unused_handles
-ad_returnredirect [export_vars -base shopping-cart { user_id product_id }]
\ No newline at end of file
+ad_returnredirect [export_vars -base shopping-cart { user_id product_id }]