diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-01-05 10:09:07 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2010-01-05 10:09:07 +0000 |
commit | aa27694514363589150efe13249ce9ea39694d63 (patch) | |
tree | a9904200905b29c25174171926ce6f03a1a5e32e /sca-cpp/trunk/test/store-script/shopping-cart.scm | |
parent | d9cb40f1b526f739002137e1f1a08b2d8ae0d718 (diff) |
Fixed shopping cart delete function. Map HTTP delete with no path info to a deleteall function, to distinguish delete of a resource and delete of the whole collection of resources.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@895970 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'sca-cpp/trunk/test/store-script/shopping-cart.scm')
-rw-r--r-- | sca-cpp/trunk/test/store-script/shopping-cart.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/sca-cpp/trunk/test/store-script/shopping-cart.scm b/sca-cpp/trunk/test/store-script/shopping-cart.scm index b7672345d7..60981411c7 100644 --- a/sca-cpp/trunk/test/store-script/shopping-cart.scm +++ b/sca-cpp/trunk/test/store-script/shopping-cart.scm @@ -39,11 +39,16 @@ (find id (getcart cartId cache)) ) -; Delete the cart -(define (delete id cache) +; Delete the whole cart +(define (deleteall cache) (cache "delete" cartId) ) +; Delete an item from the cart +(define (delete id cache) + true +) + ; Return the price of an item (define (price item) (cadr (assoc 'price (caddr item))) |