diff options
Diffstat (limited to 'lisp/service')
| -rw-r--r-- | lisp/service/resume-service.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/service/resume-service.lisp b/lisp/service/resume-service.lisp index 66b0e7b..46badc6 100644 --- a/lisp/service/resume-service.lisp +++ b/lisp/service/resume-service.lisp @@ -21,20 +21,20 @@ `(:label ,level :value ,level)) '("A1" "A2" "B1" "B2" "C1" "C2"))) - (defclass resume-service (auth-service) + (defclass resume/resume-service (auth-service) ((title :initarg :title :initform nil :accessor title)) (:documentation "")) - (defclass resume-component/view-service (resume-service) + (defclass resume/resume-component/view-service (resume/resume-service) ((components :initarg components :initform nil :accessor components) (location-p :initform nil)) (:documentation "")) - (defclass resume-component/modify-service (resume-component/view-service) + (defclass resume/resume-component/modify-service (resume/resume-component/view-service) ((form :initarg :form :initform nil :accessor form)) @@ -71,11 +71,11 @@ needs to JOIN with other data." (form-modify (format nil "~a-modify-form" component-lcase))) `(progn (defun ,func-root-s () - (with-auth (instance resume-service "resume-view") + (with-auth (instance resume/resume-service "resume-view") (setf (title instance) ,component))) (defun ,func-view-s () - (with-auth (instance resume-component/view-service "resume-view") + (with-auth (instance resume/resume-component/view-service "resume-view") (with-resume-database (let ((resume-pkg (make-instance 'resume-pkg)) (user (get-user))) @@ -89,7 +89,7 @@ needs to JOIN with other data." do (sanitize-json component)))) (defun ,func-add-s () - (with-auth (instance resume-component/modify-service "resume-modify") + (with-auth (instance resume/resume-component/modify-service "resume-modify") (with-resume-database (let ((resume-pkg (make-instance 'resume-pkg))) (setf (title instance) (format nil "~a - Add" ,component)) @@ -100,7 +100,7 @@ needs to JOIN with other data." (defun ,func-add-submit-s (,@arg-names) (declare (special ,@arg-names)) - (with-auth (instance resume-component/modify-service "resume-modify") + (with-auth (instance resume/resume-component/modify-service "resume-modify") (with-resume-database (handler-case (let* ((resume-pkg (make-instance 'resume-pkg)) @@ -116,7 +116,7 @@ needs to JOIN with other data." (setf (session-value :errormsg) (format nil "Error creating ~a. ~a" ,component e))))))) (defun ,func-modify-s (id) - (with-auth (instance resume-component/modify-service "resume-modify") + (with-auth (instance resume/resume-component/modify-service "resume-modify") (setf (title instance) (format nil "~a - Modify" ,component)) (with-resume-database (let* ((resume-pkg (make-instance 'resume-pkg)) @@ -134,7 +134,7 @@ needs to JOIN with other data." (defun ,func-modify-submit-s (,@(append '(id) arg-names)) (declare (special ,@(append '(id) arg-names))) - (with-auth (instance resume-component/modify-service "resume-modify") + (with-auth (instance resume/resume-component/modify-service "resume-modify") (setf (title instance) (format nil "~a - Modify" ,component)) (with-resume-database (handler-case @@ -156,7 +156,7 @@ needs to JOIN with other data." (setf (session-value :errormsg) (format nil "Error modifying ~a. ~a" ,component e))))))) (defun ,func-delete-s (id) - (with-auth (instance resume-component/modify-service "resume-modify") + (with-auth (instance resume/resume-component/modify-service "resume-modify") (with-resume-database (let* ((resume-pkg (make-instance 'resume-pkg)) (user (get-user)) |