diff options
Diffstat (limited to 'lisp/sql/resume-pkg.lisp')
| -rw-r--r-- | lisp/sql/resume-pkg.lisp | 24 |
1 files changed, 15 insertions, 9 deletions
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 |