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 | |
| parent | d28e2cecd04b71bd6f62e065f8715d852043c5a2 (diff) | |
stuff
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/service/resume-service.lisp | 7 | ||||
| -rw-r--r-- | lisp/sql/resume-pkg.lisp | 6 | ||||
| -rw-r--r-- | lisp/webapps/resume/site.lisp | 2 |
3 files changed, 10 insertions, 5 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.")))))) diff --git a/lisp/sql/resume-pkg.lisp b/lisp/sql/resume-pkg.lisp index cc79173..8a7b0fa 100644 --- a/lisp/sql/resume-pkg.lisp +++ b/lisp/sql/resume-pkg.lisp @@ -23,3 +23,9 @@ (defmethod update-resume ((resume-pkg resume-pkg) (resume resume)) (update-record resume-pkg resume)) + +(defmethod delete-resume ((resume-pkg resume-pkg) (resume resume)) + (setf (*table resume) (format nil + "resume.delete_resume(~a)" + (id resume))) + (caar (call-pg-function resume-pkg resume))) diff --git a/lisp/webapps/resume/site.lisp b/lisp/webapps/resume/site.lisp index a7e5916..80bdbe1 100644 --- a/lisp/webapps/resume/site.lisp +++ b/lisp/webapps/resume/site.lisp @@ -150,7 +150,7 @@ `(resumes-modify-submit-json id name)) (defmacro .resumes-delete () - `(users-delete-json id)) + `(resumes-delete-json id)) (define-endpoint ("/" :method :get) () .base) (define-endpoint ("/location" :method :post) (&post (location :parameter-type 'string)) .location) |