added languages

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