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 +++---- lisp/sql/resume-pkg.lisp | 6 ++++++ lisp/webapps/resume/site.lisp | 2 +- 3 files changed, 10 insertions(+), 5 deletions(-) (limited to 'lisp') 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) -- cgit v1.3