[bknr-cvs] ksprotte changed trunk/projects/bos/web/ - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

24 Jul 2008

Revision: 3621
Author: ksprotte
URL: http://bknr.net/trac/changeset/3621
renamed old kml-root handler to kml-root-dynamic
U   trunk/projects/bos/web/kml-handlers.lisp
U   trunk/projects/bos/web/webserver.lisp
Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================

--- trunk/projects/bos/web/kml-handlers.lisp	2008-07-24 14:43:28 UTC (rev 3620)
+++ trunk/projects/bos/web/kml-handlers.lisp	2008-07-24 14:50:37 UTC (rev 3621)
@@ -121,7 +121,7 @@
           (when (sponsor-info-text sponsor)
             (text (sponsor-info-text sponsor))))))))
-(defclass kml-root-handler (object-handler)
+(defclass kml-root-dynamic-handler (object-handler)
   ((timestamp :accessor timestamp :initform (get-universal-time))))
(defun write-root-kml (handler sponsor)
@@ -187,13 +187,13 @@
                             :name (dictionary-entry "Country-Stats" lang)
    		    :hide-children t))))))
-(defmethod handle-object ((handler kml-root-handler) (object sponsor))
+(defmethod handle-object ((handler kml-root-dynamic-handler) (object sponsor))
   (write-root-kml handler object))
-(defmethod handle-object ((handler kml-root-handler) (object contract))
+(defmethod handle-object ((handler kml-root-dynamic-handler) (object contract))
   (handle-object handler (contract-sponsor object)))
-(defmethod handle-object ((handler kml-root-handler) (object null))
+(defmethod handle-object ((handler kml-root-dynamic-handler) (object null))
   (write-root-kml handler nil))
(defclass country-stats-handler (page-handler)
Modified: trunk/projects/bos/web/webserver.lisp
===================================================================
--- trunk/projects/bos/web/webserver.lisp	2008-07-24 14:43:28 UTC (rev 3620)
+++ trunk/projects/bos/web/webserver.lisp	2008-07-24 14:50:37 UTC (rev 3621)
@@ -200,6 +200,7 @@
    				("/edit-poi-image" edit-poi-image-handler)
    				("/edit-sponsor" edit-sponsor-handler)
                                         ("/kml-upload" kml-upload-handler)
+                                        ("/kml-root-dynamic" kml-root-dynamic-handler)                                
                                         ("/kml-root" kml-root-handler)                                
                                         ("/country-stats" country-stats-handler)
                                         ("/contract-tree-kml" contract-tree-kml-handler)

    