diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-07-21 15:26:40 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-07-21 15:26:40 -0600 |
| commit | 51354fd19f76c2cbfd31542e9c072b86a90134f0 (patch) | |
| tree | 01e60982cd467d266c70dab68bc3c3e5714b4d53 /lisp/sql | |
| parent | 05154d8591bc1d7f31b7d875e6086e81055288c4 (diff) | |
added education
Diffstat (limited to 'lisp/sql')
| -rw-r--r-- | lisp/sql/education.lisp | 3 | ||||
| -rw-r--r-- | lisp/sql/language.lisp | 3 | ||||
| -rw-r--r-- | lisp/sql/resume-pkg.lisp | 24 |
3 files changed, 21 insertions, 9 deletions
diff --git a/lisp/sql/education.lisp b/lisp/sql/education.lisp index 96b5382..45ee2c8 100644 --- a/lisp/sql/education.lisp +++ b/lisp/sql/education.lisp @@ -7,6 +7,9 @@ ((id :initarg :id :initform nil :accessor id) + (user_id :initarg :user_id + :initform nil + :accessor user_id) (school :initarg :school :initform nil :accessor school) diff --git a/lisp/sql/language.lisp b/lisp/sql/language.lisp index ca384b1..92f03a7 100644 --- a/lisp/sql/language.lisp +++ b/lisp/sql/language.lisp @@ -7,6 +7,9 @@ ((id :initarg :id :initform nil :accessor id) + (user_id :initarg :user_id + :initform nil + :accessor user_id) (name :initarg :name :initform nil :accessor name) 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 |