diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-07-20 12:19:48 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-07-20 12:19:48 -0600 |
| commit | fa7c4554b4c2b4ad70a7c0afbab11b6f0a43d14a (patch) | |
| tree | 0eced628f2cd347cfb5642a02414f06cb0ad99c0 /lisp/service | |
| parent | d28e2cecd04b71bd6f62e065f8715d852043c5a2 (diff) | |
stuff
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.")))))) |