diff options
Diffstat (limited to 'lisp/service')
| -rw-r--r-- | lisp/service/resume-service.lisp | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/service/resume-service.lisp b/lisp/service/resume-service.lisp index bfce3c1..d31ae30 100644 --- a/lisp/service/resume-service.lisp +++ b/lisp/service/resume-service.lisp @@ -87,7 +87,7 @@ (user (get-user)) (resume (get-resume resume-pkg (make-instance 'resume :id id :user_id (id user))))) (setf (name resume) name) - (update-resume resume-pkg resume) + (update-resume resume-pkg resume) (setf (session-value :message) (format nil "Resume \"~a\" modified successfully." (name resume)))) (error (e) (setf (session-value :errormsg) (format nil "Error modifying resume \"~a\". ~a" name e))))))) @@ -104,7 +104,6 @@ (resume (get-resume resume-pkg (make-instance 'resume :id id :user_id (id user))))) (if resume (progn - ;; TODO delete stuff - (setf (session-value :errormsg) nil) - (setf (session-value :message) "Resume deleted successfully.")) + (delete-resume resume-pkg resume) + (setf (session-value :message) (format nil "Resume \"~a\" deleted successfully." (name resume)))) (setf (session-value :errormsg) "Error: could not delete resume: not found.")))))) |