From 51aa4409c58625687445f3d176e3f6bfa5281153 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 21 Jul 2026 17:54:15 -0600 Subject: added languages --- lisp/sql/resume-pkg.lisp | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'lisp/sql') 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 -- cgit v1.3