[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/

[BKNR Commits]

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))))