Changeset 2653

Show
Ignore:
Timestamp:
03/04/08 12:45:23 (10 months ago)
Author:
hans
Message:

Fixes for framework changes.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/boi-handlers.lisp

    r2479 r2653  
    88 
    99(defmethod authorized-p ((handler boi-handler)) 
    10   (bos.m2:editor-p bknr.web:*user*)) 
     10  (bos.m2:editor-p (bknr-session-user))) 
    1111 
    1212(defclass create-contract-handler (boi-handler) 
    …… 
    3838                          (make-sponsor :full-name name))) 
    3939             (contract (make-contract sponsor num-sqm :expires expires :paidp paid))) 
    40         (with-xml-response () 
     40        (with-xml-response (:root-element "response") 
    4141          (with-element "status" 
    4242            (attribute "success" 1) 
    …… 
    6969          (when name 
    7070            (setf (user-full-name (contract-sponsor contract)) name)))) 
    71       (with-xml-response () 
     71      (with-xml-response (:root-element "response") 
    7272        (with-element "status" 
    7373          (attribute "success" 1) 
    …… 
    8888          (error "contract has already been paid for")) 
    8989        (delete-object contract) 
    90         (with-xml-response () 
     90        (with-xml-response (:root-element "response") 
    9191          (with-element "status" 
    9292            (attribute "success" 1) 

  • trunk/projects/bos/web/reports-xml-handler.lisp

    r2644 r2653  
    2727 
    2828(defmethod handle ((handler reports-xml-handler)) 
    29   (with-xml-response () 
     29  (with-xml-response (:root-element "response") 
    3030    (destructuring-bind (name &optional *year* &rest arguments) (decoded-handler-path handler) 
    3131      (setf *year* (and *year* (parse-integer *year*))) 

  • trunk/projects/bos/web/web-macros.lisp

    r2644 r2653  
    77    ,@body)) 
    88 
    9 (defvar *xml-sink*) 
    10  
    11 (defmacro with-xml-response ((&key (content-type "text/xml") (root-element "response")) &body body) 
    12   `(with-http-response (:content-type ,content-type) 
    13      (with-query-params (download) 
    14        (when download 
    15          (setf (hunchentoot:header-out :content-disposition) 
    16                (format nil "attachment; filename=~A" download)))) 
    17     (with-output-to-string (s) 
    18       (let ((*xml-sink* (make-character-stream-sink s :canonical nil))) 
    19         (with-xml-output *xml-sink* 
    20           (with-element ,root-element 
    21             ,@body)))))) 
    22  
    239(defmacro with-xml-error-handler (() &body body) 
    2410  `(handler-case 
    2511    (progn ,@body) 
    2612    (error (e) 
    27      (with-xml-response () 
     13     (with-xml-response (:root-element "response") 
    2814       (with-element "status" 
    2915         (attribute "failure" 1) 

  • trunk/projects/bos/web/webserver.lisp

    r2644 r2653  
    153153  ()) 
    154154 
    155 (defmethod find-user-from-request-parameters ((authorizer bos-authorizer)) 
     155(defmethod authorize ((authorizer bos-authorizer)) 
    156156  (with-query-params (__sponsorid __password) 
    157157    (if (and __sponsorid __password)