stuff

1 files changed, 8 insertions, 12 deletions

diff --git a/lisp/service/resume-service.lisp b/lisp/service/resume-service.lisp
index 31225a4..dca609c 100644
--- a/lisp/service/resume-service.lisp
+++ b/lisp/service/resume-service.lisp
@@ -156,9 +156,9 @@ needs to JOIN with other data."
                                                  (sb-introspect:function-lambda-list #',func-add-submit-s))
                          do (setf (slot-value ,component-s param) (symbol-value param)))
                    (insert-record resume-pkg ,component-s)
-                   (setf (session-value :message) (format nil "~a created successfully." ,component)))
+                   (setf (message instance) (format nil "~a created successfully." ,component)))
                (error (e)
-                 (setf (session-value :errormsg) (format nil "Error creating ~a. ~a" ,component e)))))))
+                 (setf (errormsg instance) (format nil "Error creating ~a. ~a" ,component e)))))))
 
        (defun ,func-modify-s (id)
          (with-auth (instance resume/resume-component/modify-service "resume-modify")
@@ -175,7 +175,7 @@ needs to JOIN with other data."
                                                     nil
                                                     t
                                                     ,modify-fields))
-                   (setf (session-value :errormsg) (format nil "Error: could not modify ~a. Not found." ,component)))))))
+                   (setf (errormsg instance) (format nil "Error: could not modify ~a. Not found." ,component)))))))
 
        (defun ,func-modify-submit-s (,@(append '(id) arg-names))
          (declare (special ,@(append '(id) arg-names)))
@@ -194,12 +194,10 @@ needs to JOIN with other data."
                                do (setf (slot-value new-component param) (symbol-value param)))
                          (setf (user_id new-component) (id user))
                          (update-record-no-nulls resume-pkg new-component)
-                         (setf (session-value :message) (format nil "~a modified successfully." ,component))
-                         (setf (message instance) (session-value :message)))
+                         (setf (message instance) (format nil "~a modified successfully." ,component)))
                        (error (format nil "~a error" ,component))))
                (error (e)
-                 (setf (session-value :errormsg) (format nil "Error modifying ~a. ~a" ,component e))
-                 (setf (errormsg instance) (session-value :errormsg)))))))
+                 (setf (errormsg instance) (format nil "Error modifying ~a. ~a" ,component e)))))))
 
        (defun ,func-link-s (&optional id)
          (with-auth (instance resume/resume-component/modify-service "resume-modify")
@@ -217,7 +215,7 @@ needs to JOIN with other data."
                                                       nil
                                                       t
                                                       ,link-fields))
-                     (setf (session-value :errormsg) (format nil "Error: could not link ~a. Not found." ,component))))))))
+                     (setf (errormsg instance) (format nil "Error: could not link ~a. Not found." ,component))))))))
 
        (defun ,func-link-submit-s (&rest args)
          (with-auth (instance resume/resume-component/modify-service "resume-modify")
@@ -241,11 +239,9 @@ needs to JOIN with other data."
                (if ,component-s
                    (progn
                      (delete-record resume-pkg (make-instance ',component-s :id id))
-                     (setf (session-value :message) (format nil "~a deleted successfully." ,component))
-                     (setf (message instance) (session-value :message)))
+                     (setf (message instance) (format nil "~a deleted successfully." ,component)))
                    (progn
-                     (setf (session-value :errormsg) (format nil "Error: could not delete ~a: not found." ,component))
-                     (setf (errormsg instance) (session-value :errormsg))))))))
+                     (setf (errormsg instance) (format nil "Error: could not delete ~a: not found." ,component))))))))
 
        (define-endpoint (,(format nil "/resume/~a" component-lcase) :method :get) () ,func-root-s)
        (define-endpoint (,(format nil "/resume/~a/view" component-lcase) :method :get) () ,func-view-s)