From 51354fd19f76c2cbfd31542e9c072b86a90134f0 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 21 Jul 2026 15:26:40 -0600 Subject: added education --- lisp/sql/resume-pkg.lisp | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) (limited to 'lisp/sql/resume-pkg.lisp') diff --git a/lisp/sql/resume-pkg.lisp b/lisp/sql/resume-pkg.lisp index e44dfd4..a43a07e 100644 --- a/lisp/sql/resume-pkg.lisp +++ b/lisp/sql/resume-pkg.lisp @@ -20,9 +20,6 @@ (name resume))) (caar (call-pg-function resume-pkg resume))) -(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)" @@ -47,15 +44,24 @@ (email contactinfo))) (caar (call-pg-function resume-pkg contactinfo))) -(defmethod update-contactinfo ((resume-pkg resume-pkg) (contactinfo contactinfo)) - (update-record resume-pkg contactinfo)) - -(defmethod delete-contactinfo ((resume-pkg resume-pkg) (contactinfo contactinfo)) - (delete-record resume-pkg contactinfo)) - ;; education - +(defmethod get-all-education ((resume-pkg resume-pkg) (user user)) + (let ((education (make-instance 'education :user_id (id user)))) + (get-records resume-pkg education "school asc, end_date asc, major asc, minor asc"))) + +(defmethod insert-education ((resume-pkg resume-pkg) (education education)) + (setf (*table education) (format nil + "resume.insert_education(~a, '~a', '~a', '~a', '~a', '~a', '~a', '~a')" + (user_id education) + (school education) + (start_date education) + (end_date education) + (major education) + (minor education) + (degree education) + (progress education))) + (caar (call-pg-function resume-pkg education))) ;; language -- cgit v1.3