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

27 Nov 2008

Revision: 4091
Author: hans
URL: http://bknr.net/trac/changeset/4091
Add poi-json handler
U   trunk/projects/bos/m2/packages.lisp
U   trunk/projects/bos/payment-website/static/poi-ms.html
A   trunk/projects/bos/payment-website/static/poi-ms.js
U   trunk/projects/bos/web/poi-handlers.lisp
U   trunk/projects/bos/web/webserver.lisp
Modified: trunk/projects/bos/m2/packages.lisp
===================================================================

--- trunk/projects/bos/m2/packages.lisp	2008-11-27 14:13:59 UTC (rev 4090)
+++ trunk/projects/bos/m2/packages.lisp	2008-11-27 14:15:14 UTC (rev 4091)
@@ -239,6 +239,8 @@
            #:poi-panoramas
            #:poi-movies
            #:make-poi-javascript
+           #:poi-as-json
+           #:pois-as-json
;; news
            #:news-item
Modified: trunk/projects/bos/payment-website/static/poi-ms.html
===================================================================
--- trunk/projects/bos/payment-website/static/poi-ms.html	2008-11-27 14:13:59 UTC (rev 4090)
+++ trunk/projects/bos/payment-website/static/poi-ms.html	2008-11-27 14:15:14 UTC (rev 4091)
@@ -6,6 +6,7 @@
     <link rel="stylesheet" type="text/css" href="poi-ms.css"/>
     <script src="MochiKit/MochiKit.js" type="text/javascript"> </script>
     <script src="jquery-1.2.6.min.js" type="text/javascript"> </script>
+    <script src="poi-ms.js" type="text/javascript"> </script>
     <meta http-equiv="content-type" content="text/html; charset=utf-8" />
   </head>
   <body>
Added: trunk/projects/bos/payment-website/static/poi-ms.js
===================================================================
--- trunk/projects/bos/payment-website/static/poi-ms.js	                        (rev 0)
+++ trunk/projects/bos/payment-website/static/poi-ms.js	2008-11-27 14:15:14 UTC (rev 4091)
@@ -0,0 +1,8 @@
+$ = jQuery;
+
+$(document).ready(init);
+
+function init() {
+
+    alert('hey ho!');
+}
\ No newline at end of file
Modified: trunk/projects/bos/web/poi-handlers.lisp
===================================================================
--- trunk/projects/bos/web/poi-handlers.lisp	2008-11-27 14:13:59 UTC (rev 4090)
+++ trunk/projects/bos/web/poi-handlers.lisp	2008-11-27 14:15:14 UTC (rev 4091)
@@ -684,3 +684,11 @@
                             imageproc-arguments))
           (error "image index ~a out of bounds for poi ~a" image-index poi)))))
+;;; poi-json-handler
+(defclass poi-json-handler (page-handler)
+  ())
+
+(defmethod handle ((handler poi-json-handler))
+  (with-json-response ()
+    (json:with-object-element ("pois")
+      (bos.m2:pois-as-json (request-language)))))
\ No newline at end of file
Modified: trunk/projects/bos/web/webserver.lisp
===================================================================
--- trunk/projects/bos/web/webserver.lisp	2008-11-27 14:13:59 UTC (rev 4090)
+++ trunk/projects/bos/web/webserver.lisp	2008-11-27 14:15:14 UTC (rev 4091)
@@ -184,6 +184,7 @@
                                         ("/map-browser" map-browser-handler)
                                         ("/poi-javascript" poi-javascript-handler)
                                         ("/m2-javascript" m2-javascript-handler)
+                                        ("/poi-json" poi-json-handler)
                                         ("/sponsor-login" sponsor-login-handler)
                                         ("/create-allocation-area" create-allocation-area-handler)
                                         ("/allocation-area" allocation-area-handler)

    