Author: achiumenti Date: Wed Sep 3 13:55:06 2008 New Revision: 82

Modified: trunk/main/claw-html.dojo/src/djform.lisp trunk/main/claw-html.dojo/src/djlink.lisp Log: bufix on rewind

Modified: trunk/main/claw-html.dojo/src/djform.lisp ============================================================================== --- trunk/main/claw-html.dojo/src/djform.lisp (original) +++ trunk/main/claw-html.dojo/src/djform.lisp Wed Sep 3 13:55:06 2008 @@ -40,7 +40,6 @@ (:documentation "Class to generate a <form> element that is capable of XHR requests. More info at http://api.dojotoolkit.org/") (:default-initargs :dojo-type "claw.Form" :update-id () :ajax-form-p t))

- (defmethod wcomponent-template :before ((obj djform)) (let ((dojo-type (djwidget-dojo-type obj)) (update-id (update-id obj))) @@ -49,7 +48,9 @@ (list :xhr (djform-ajax-form-p obj) :dojotype dojo-type :update-id (when update-id - (let ((js-array (ps* `(array ,update-id)))) + (let ((js-array (if (listp update-id) + (ps* `(array ,@update-id)) + (ps* `(array ,update-id))))) (subseq js-array 0 (1- (length js-array))))))))))

Modified: trunk/main/claw-html.dojo/src/djlink.lisp ============================================================================== --- trunk/main/claw-html.dojo/src/djlink.lisp (original) +++ trunk/main/claw-html.dojo/src/djlink.lisp Wed Sep 3 13:55:06 2008 @@ -47,7 +47,9 @@ :hxr t :dojotype dojo-type :update-id (when update-id - (let ((js-array (ps* `(array ,update-id)))) + (let ((js-array (if (listp update-id) + (ps* `(array ,@update-id)) + (ps* `(array ,update-id))))) (subseq js-array 0 (1- (length js-array))))) :parameters (let ((json-content (ps* `(create ,@params)))) (subseq json-content 0 (1- (length json-content))))