diff options
Diffstat (limited to 'lisp/sql/resume-pkg.lisp')
| -rw-r--r-- | lisp/sql/resume-pkg.lisp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/sql/resume-pkg.lisp b/lisp/sql/resume-pkg.lisp index a43a07e..c45a6e1 100644 --- a/lisp/sql/resume-pkg.lisp +++ b/lisp/sql/resume-pkg.lisp @@ -65,7 +65,21 @@ ;; language +(defmethod get-all-languages ((resume-pkg resume-pkg) (user user)) + (let ((language (make-instance 'language :user_id (id user)))) + (get-records resume-pkg language "name asc"))) +(defmethod insert-language ((resume-pkg resume-pkg) (language language)) + (setf (*table language) (format nil + "resume.insert_language(~a, '~a', '~a', '~a', '~a', '~a', '~a')" + (user_id language) + (name language) + (understanding_listening language) + (understanding_reading language) + (speaking_interaction language) + (speaking_production language) + (writing language))) + (caar (call-pg-function resume-pkg language))) ;; job |