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; }