Revision: 3892 Author: hans URL: http://bknr.net/trac/changeset/3892

Minor production server changes.

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

Modified: trunk/projects/lisp-ecoop/src/handlers.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/handlers.lisp 2008-09-11 18:10:02 UTC (rev 3891) +++ trunk/projects/lisp-ecoop/src/handlers.lisp 2008-09-11 18:11:33 UTC (rev 3892) @@ -49,7 +49,6 @@

(defmethod handle ((handler make-submission-handler)) (with-query-params (type title abstract) - (format t "type: ~A symbol: ~A~%" type (find-symbol (string-upcase type) :lisp-ecoop)) (let ((submission (make-object (find-symbol (string-upcase type) :lisp-ecoop) :title title :abstract abstract)))

Modified: trunk/projects/lisp-ecoop/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/tags.lisp 2008-09-11 18:10:02 UTC (rev 3891) +++ trunk/projects/lisp-ecoop/src/tags.lisp 2008-09-11 18:11:33 UTC (rev 3892) @@ -60,7 +60,7 @@ (let ((file-name (upload-pathname (request-uploaded-file "document")))) (with-open-file (pdf file-name) (if (cl-ppcre:scan "^%PDF-" (read-line pdf)) - (let* ((submission (make-object (find-symbol (string-upcase type) :lisp-ecoop) + (let* ((submission (make-object (find-symbol (string-upcase type) :lisp-ecoop) :submitters (list participant) :title title :abstract abstract)) (document (make-object 'document :info info :submission submission))) (blob-from-file document file-name) @@ -393,4 +393,4 @@ (pathname (find-template-pathname expander "toplevel")) (toplevel (bknr.web::get-cached-template pathname expander)) (bknr.web::*toplevel-children* bknr.web::*tag-children*)) - (emit-template-node expander (bknr.web::parsed-template-dom toplevel)))) \ No newline at end of file + (emit-template-node expander (bknr.web::parsed-template-dom toplevel))))