Changeset 3304

Timestamp:

06/24/08 07:24:53 (7 months ago)

Author:

hans

Message:

Hunchentoot and BKNR framework update fixes

Files:

• trunk/projects/lisp-ecoop/src/handlers.lisp (modified) (1 diff)
• trunk/projects/lisp-ecoop/src/init.lisp (modified) (2 diffs)
• trunk/projects/lisp-ecoop/src/tags.lisp (modified) (7 diffs)

trunk/projects/lisp-ecoop/src/handlers.lisp

@@ -70 +70 @@
-  (unless (submission-edit-permitted-p submission)
-    (error "can't edit this submission"))
-
+*
-    (:post
-     (when (request-uploaded-file "document")

trunk/projects/lisp-ecoop/src/init.lisp

@@ -2 +2 @@
-
-(defun startup ()
-
-
+
-  (make-instance 'store
-                 :directory *store-directory*
@@ -16 +15 @@
-  #+(or)
-  (bknr.cron:start-cron)
-
+
-  (publish-lisp-ecoop)
-

trunk/projects/lisp-ecoop/src/tags.lisp

@@ -33 +33 @@
-      (html (:h2 "can't edit this profile"))
-      (return-from profile-editor))
-
+*
-      (with-query-params (action)
-        (format t ";; ACTION ~A~%" action)
@@ -71 +71 @@
-                  (html ((:script :language "JavaScript") "alert('Invalid file format of uploaded, only PDF files are accepted')")))))))
-      (when (request-uploaded-file "picture")
-
+
+
+
-          (with-transaction ("updating participant picture")
-            (when (participant-picture participant)
@@ -113 +115 @@
-      (html (:h2 "can't edit this submission"))
-      (return-from submission-editor))
-
+*
-      (with-query-params (action)
-        (case (make-keyword-from-string action)
@@ -194 +196 @@
-                  (dolist (participant (set-difference (class-instances 'participant) submitters))
-                    (html (:li ((:a :href (format nil "~A?add-submitter-id=~A"
-
+*
-                                                  (store-object-id participant)))
-                                (:princ-safe (user-full-name participant)))))))))
@@ -201 +203 @@
-                 (:ul
-                  (dolist (participant submitters)
-
+*
-                                (:princ-safe (user-full-name participant))))))))))))))
-
@@ -301 +303 @@
-      (t
-       (html ((:form :method "post" :action (website-make-path *website* "logout"))
-
+*
-              (:div "Logged in as " :br
-                    ((:a :href (format-object-id "/edit-profile/~A" user))
@@ -317 +319 @@
-
-(define-bknr-tag schedule-submission ()
-
+*
-    (with-query-params (date time duration submission freetext)
-      (let ((start (parse-time (format nil "~A ~A" date time) :default-zone -2)) ; XXX hardcoded time zone