From 51354fd19f76c2cbfd31542e9c072b86a90134f0 Mon Sep 17 00:00:00 2001
From: ckonstanski <kostcarl@isu.edu>
Date: Tue, 21 Jul 2026 15:26:40 -0600
Subject: added education

---
 lisp/sql/education.lisp  |  3 +++
 lisp/sql/language.lisp   |  3 +++
 lisp/sql/resume-pkg.lisp | 26 ++++++++++++++++----------
 3 files changed, 22 insertions(+), 10 deletions(-)

(limited to 'lisp/sql')

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
 
-- 
cgit v1.3