[claw-cvs] r82 - trunk/main/claw-html.dojo/src

[achiumenti at common-lisp.net]

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 , at 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 , at update-id))
+                                         (ps* `(array ,update-id)))))
                        (subseq js-array 0 (1- (length js-array)))))
         :parameters (let ((json-content (ps* `(create , at params))))
                       (subseq json-content 0 (1- (length json-content))))