[bknr-cvs] r1875 - in branches/xml-class-rework/projects/lisp-ecoop: src website/static

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-23 04:24:36 -0600 (Thu, 23 Feb 2006)
New Revision: 1875

Modified:
   branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp
   branches/xml-class-rework/projects/lisp-ecoop/website/static/javascript.js
Log:
Tweaks for IE


Modified: branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp
===================================================================
--- branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp	2006-02-23 10:03:36 UTC (rev 1874)
+++ branches/xml-class-rework/projects/lisp-ecoop/src/tags.lisp	2006-02-23 10:24:36 UTC (rev 1875)
@@ -160,12 +160,13 @@
           (add-submitter-id
            (with-transaction ("adding submitter")
              (submission-add-submitter submission (find-store-object (parse-integer add-submitter-id))))
-           (html (:h2 "Submitter has been added")))
+           (html (:h2 "Submitter has been added")
+                 ((:script :type "text/javascript") "window.opener.location.reload(); window.close();" )))
           (remove-submitter-id
            (with-transaction ("removing submitter")
              (submission-remove-submitter submission (find-store-object (parse-integer remove-submitter-id))))
            (html (:h2 "Submitter has been removed")
-                 ((:script :type "text/javascript") "alert(parent.location.href); parent.location.href = parent.location.href + '?' + (new Date()).getTime(); window.close();" )))
+                 ((:script :type "text/javascript") "window.opener.location.reload(); window.close();" )))
           (add-submitter
            (html (:strong "Add submitter")
                  (:ul
@@ -192,12 +193,14 @@
     (dolist (submitter submitters)
       (html ((:a :href (format-object-id "/profile/~A" submitter)) (:princ-safe (user-full-name submitter)) :br)))
     (unless (eql 1 (length submitters))
-      (html (submit-button "remove-submitter" "Remove Submitter" :formcheck (format nil "return submitters_window('~Aedit-submission-submitters/~A?remove-submitter=1')"
-                                                                                    (website-base-href *website*)
-                                                                                    (store-object-id *submission*)))))
-    (html (submit-button "add-submitter" "Add Submitter" :formcheck (format nil "return submitters_window('~Aedit-submission-submitters/~A?add-submitter=1')"
-                                                                            (website-base-href *website*)
-                                                                            (store-object-id *submission*))))))
+      (html (submit-button "Remove Submitter" "Remove Submitter"
+                           :formcheck (format nil "return submitters_window('~Aedit-submission-submitters/~A?remove-submitter=1')"
+                                              (website-base-href *website*)
+                                              (store-object-id *submission*)))))
+    (html (submit-button "Add Submitter" "Add Submitter"
+                         :formcheck (format nil "return submitters_window('~Aedit-submission-submitters/~A?add-submitter=1')"
+                                            (website-base-href *website*)
+                                            (store-object-id *submission*))))))
 
 (define-bknr-tag participant-picture-uploader ()
   (let ((picture (participant-picture *participant*)))

Modified: branches/xml-class-rework/projects/lisp-ecoop/website/static/javascript.js
===================================================================
--- branches/xml-class-rework/projects/lisp-ecoop/website/static/javascript.js	2006-02-23 10:03:36 UTC (rev 1874)
+++ branches/xml-class-rework/projects/lisp-ecoop/website/static/javascript.js	2006-02-23 10:24:36 UTC (rev 1875)
@@ -24,7 +24,7 @@
 /* adding/removing submitters */
 
 function submitters_window(url) {
-    var submitters_window = open(url, "change submitters", "width=200,height=400,status=no,toolbar=no,menubar=no,resizable=yes,scrollbars=yes");
+    var submitters_window = open(url, "changesubmitters", "width=200,height=400,status=no,toolbar=no,menubar=no,resizable=yes,scrollbars=yes");
     submitters_window.focus();
     return false;
 }