diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-07-21 11:08:25 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-07-21 11:08:25 -0600 |
| commit | 05154d8591bc1d7f31b7d875e6086e81055288c4 (patch) | |
| tree | 21f05e09bfd53d49912cfa93e9ed1f0d45d29eb8 /lisp/service | |
| parent | 8ab94f4677f8d56655a45bb636917429dcddda24 (diff) | |
stuff
Diffstat (limited to 'lisp/service')
| -rw-r--r-- | lisp/service/resume-service.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/service/resume-service.lisp b/lisp/service/resume-service.lisp index 3536a87..7e3aa71 100644 --- a/lisp/service/resume-service.lisp +++ b/lisp/service/resume-service.lisp @@ -76,7 +76,7 @@ (with-resume-database (let* ((resume-pkg (make-instance 'resume-pkg)) (user (get-user)) - (resume (get-resume resume-pkg (make-instance 'resume :id id :user_id (id user))))) + (resume (get-record resume-pkg (make-instance 'resume :id id :user_id (id user))))) (if resume (setf (form instance) (make-form "resumes-modify-form" nil @@ -87,18 +87,18 @@ (setf (session-value :errormsg) "Error: could not modify resume. Not found.")))))) (defun resumes-modify-submit-json (id name) + (declare (special id name)) (with-auth (instance resumes/modify-service "resume-modify") (setf (title instance) "Resume - Modify") (with-resume-database (handler-case (let* ((resume-pkg (make-instance 'resume-pkg)) (user (get-user)) - (resume (get-resume resume-pkg (make-instance 'resume :id id :user_id (id user))))) + (resume (get-record resume-pkg (make-instance 'resume :id id :user_id (id user))))) (loop for param in (remove-if (lambda (x) (intersection `(,x) '(id))) (sb-introspect:function-lambda-list #'resumes-modify-submit-json)) do (setf (slot-value resume param) (symbol-value param))) - (setf (name resume) name) (update-resume resume-pkg resume) (setf (session-value :message) (format nil "Resume \"~a\" modified successfully." (name resume)))) (error (e) @@ -113,7 +113,7 @@ (with-resume-database (let* ((resume-pkg (make-instance 'resume-pkg)) (user (get-user)) - (resume (get-resume resume-pkg (make-instance 'resume :id id :user_id (id user))))) + (resume (get-record resume-pkg (make-instance 'resume :id id :user_id (id user))))) (if resume (progn (delete-resume resume-pkg resume) @@ -207,7 +207,7 @@ (user (get-user)) (states (get-records resume-pkg (make-instance 'states) "abbr asc")) (visastatuses (get-records resume-pkg (make-instance 'visastatus) "status asc")) - (contactinfo-v (get-contactinfo resume-pkg (make-instance 'contactinfo-v :id id :user_id (id user))))) + (contactinfo-v (get-record resume-pkg (make-instance 'contactinfo-v :id id :user_id (id user))))) (if contactinfo-v (setf (form instance) (make-form "contactinfo-modify-form" nil |