diff options
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 |