From fa7c4554b4c2b4ad70a7c0afbab11b6f0a43d14a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 20 Jul 2026 12:19:48 -0600 Subject: stuff --- lisp/service/resume-service.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/service') 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.")))))) -- cgit v1.3