Changeset 2667
- Timestamp:
- 03/06/08 07:29:24 (10 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/web/allocation-area-handlers.lisp
r2666 r2667 84 84 (:h2 "The allocation area has been deleted"))) 85 85 86 (defmethod handle-object-form ((handler allocation-area-handler) (action (eql :activate)) allocation-area req)86 (defmethod handle-object-form ((handler allocation-area-handler) (action (eql :activate)) allocation-area) 87 87 (bos.m2::activate-allocation-area allocation-area) 88 (with-bos-cms-page ( req:title "Allocation area has been activated")88 (with-bos-cms-page (:title "Allocation area has been activated") 89 89 (:h2 "The allocation area has been activated"))) 90 90 91 (defmethod handle-object-form ((handler allocation-area-handler) (action (eql :deactivate)) allocation-area req)91 (defmethod handle-object-form ((handler allocation-area-handler) (action (eql :deactivate)) allocation-area) 92 92 (bos.m2::deactivate-allocation-area allocation-area) 93 (with-bos-cms-page ( req:title "Allocation area has been deactivated")93 (with-bos-cms-page (:title "Allocation area has been deactivated") 94 94 (:h2 "The allocation area has been deactivated"))) 95 95
