diff options
Diffstat (limited to 'lisp/sql/resume-pkg.lisp')
| -rw-r--r-- | lisp/sql/resume-pkg.lisp | 43 |
1 files changed, 42 insertions, 1 deletions
diff --git a/lisp/sql/resume-pkg.lisp b/lisp/sql/resume-pkg.lisp index 8a7b0fa..a0fc3d2 100644 --- a/lisp/sql/resume-pkg.lisp +++ b/lisp/sql/resume-pkg.lisp @@ -7,7 +7,9 @@ () (:documentation "")) -(defmethod get-all-resumes-for-user ((resume-pkg resume-pkg) (user user)) +;; resumes + +(defmethod get-all-resumes ((resume-pkg resume-pkg) (user user)) (let ((resume (make-instance 'resume :user_id (id user)))) (get-records resume-pkg resume "name asc"))) @@ -29,3 +31,42 @@ "resume.delete_resume(~a)" (id resume))) (caar (call-pg-function resume-pkg resume))) + +;; contactinfo + +(defmethod get-all-contactinfo ((resume-pkg resume-pkg) (user user)) + (let ((contactinfo-v (make-instance 'contactinfo-v :user_id (id user)))) + (get-records resume-pkg contactinfo-v "state_name asc, city asc, address asc, email asc, phone asc, visastatus asc"))) + +(defmethod get-contactinfo ((resume-pkg resume-pkg) (contactinfo-v contactinfo-v)) + (get-record resume-pkg contactinfo-v)) + +(defmethod insert-contactinfo ((resume-pkg resume-pkg) (contactinfo contactinfo)) + (setf (*table contactinfo) (format nil + "resume.insert_contactinfo(~a, ~a, ~a, '~a', '~a', '~a', '~a')" + (user_id contactinfo) + (state_id contactinfo) + (visastatus_id contactinfo) + (address contactinfo) + (city contactinfo) + (phone contactinfo) + (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 + + + +;; language + + + +;; job + + |