diff options
author | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2011-03-08 08:18:07 +0000 |
---|---|---|
committer | jsdelfino <jsdelfino@13f79535-47bb-0310-9956-ffa450edef68> | 2011-03-08 08:18:07 +0000 |
commit | 49b878b1b0f2e52bbd5282c22ac32a68e1e8736c (patch) | |
tree | 1eb26926f9d703c61b329a0f07178090b57cd55d /sca-cpp/trunk/samples/store-sql/shopping-cart.scm | |
parent | 5b33dc5c5a87fff146951ca0543bf558454c331d (diff) |
Change ATOM and RSS feed representations to use name value pairs instead of just strings, to allow support for all ATOM and RSS attributes and avoid confusion with non-feed string results.
git-svn-id: http://svn.us.apache.org/repos/asf/tuscany@1079292 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'sca-cpp/trunk/samples/store-sql/shopping-cart.scm')
-rw-r--r-- | sca-cpp/trunk/samples/store-sql/shopping-cart.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/sca-cpp/trunk/samples/store-sql/shopping-cart.scm b/sca-cpp/trunk/samples/store-sql/shopping-cart.scm index 61b169426f..e653f1e33c 100644 --- a/sca-cpp/trunk/samples/store-sql/shopping-cart.scm +++ b/sca-cpp/trunk/samples/store-sql/shopping-cart.scm @@ -31,7 +31,7 @@ ; Post a new item to the cart, create a new cart if necessary (define (post collection item cache) (define id (uuid)) - (define newItem (list (car item) id (caddr item))) + (define newItem (list 'entry (cadr (car item)) (list 'id id) (cadddr (car item)))) (define cart (cons newItem (getcart cartId cache))) (cache "put" (list cartId) cart) (list id) @@ -40,16 +40,16 @@ ; Find an item in the cart (define (find id cart) (if (nul cart) - (cons "Item" (list "0" (list))) - (if (= id (cadr (car cart))) - (car cart) + (list (list 'entry (list 'title "Item") (list 'id "0"))) + (if (= id (cadr (caddr (car cart)))) + (list (car cart)) (find id (cdr cart)))) ) ; Get items from the cart (define (get id cache) (if (nul id) - (cons "Your Cart" (cons cartId (getcart cartId cache))) + (list (append (list 'feed (list 'title "Your Cart") (list 'id cartId)) (getcart cartId cache))) (find (car id) (getcart cartId cache)) ) ) @@ -64,7 +64,7 @@ ; Return the price of an item (define (price item) - (cadr (assoc 'price (caddr item))) + (cadr (assoc 'price (cadr (cadddr item)))) ) ; Sum the prices of a list of items |