blob: 2da011a47b3f11fe0c44a40f665a19955350ffca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package :resume)
(defclass resumes-service (auth-service)
((title :initarg :title
:initform nil
:accessor title))
(:documentation ""))
(defun resumes-json ()
(with-auth (instance resumes-service "resume-view")
(setf (title instance) "Resumes")))
(defclass resumes/view-service (resumes-service resume)
((resumes :initarg :resumes
:initform nil
:accessor resumes)
(location-p :initform nil))
(:documentation ""))
(defun resumes-view-json ()
(with-auth (instance resumes/view-service "resume-view")
(with-resume-database
(let ((resume-pkg (make-instance 'resume-pkg))
(user (get-user)))
(setf (resumes instance) (get-all-resumes-for-user resume-pkg user))))
(sanitize-rest-json instance)
(loop for resume in (resumes instance)
do (sanitize-json resume))))
(defclass resumes/add-service (resumes/view-service)
((form :initarg :form
:initform nil
:accessor form))
(:documentation ""))
(defun resumes-add-json ()
(with-auth (instance resumes/add-service "resume-modify")
(setf (title instance) "Resume - Add")
(setf (form instance) (make-form "resumes-add-form"
nil
t
`((:name "name" :label "Name" :field-type "text" :required "required")
(:label "Add Resume" :field-type "button" :onclick "on_resumes_add_submit_clicked()"))))))
(defun resumes-add-submit-json (name)
(declare (special name))
(with-auth (instance resumes/add-service "resume-modify")
(with-resume-database
(handler-case
(let* ((resume-pkg (make-instance 'resume-pkg))
(user (get-user))
(resume (make-instance 'resume :user_id (id user) :name name)))
(insert-resume resume-pkg resume)
(setf (session-value :message) (format nil "Resume \"~a\" created successfully." (name resume))))
(error (e)
(setf (session-value :errormsg) (format nil "Error creating resume \"~a\". ~a" name e)))))))
(defclass resumes/modify-service (resumes/add-service)
()
(:documentation ""))
(defun resumes-modify-json (id)
(with-auth (instance resumes/modify-service "resume-modify")
(setf (title instance) "Resume - Modify")
(with-resume-database
(let* ((resume-pkg (make-instance 'resume-pkg))
(me (get-resume))
(resume (get-resume-by-id resume-pkg id))
(role-groups (get-all-role-groups resume-pkg me))
(active-role-groups (get-active-role-groups resume-pkg resume)))
(if resume
(setf (form instance) (make-form "resumes-modify-form"
nil
t
`((:name "id" :field-type "hidden" :value ,(id resume) :required "required")
(:name "name" :label "Name" :field-type "text" :value ,(name resume) :required "required")
(:label "Modify Resume" :field-type "button" :onclick "on_resumes_modify_submit_clicked()"))))
(setf (session-value :errormsg) "Error: could not modify resume. Not found."))))))
(defun resumes-modify-submit-json (id role_groups resumename first_name last_name email phone)
(declare (special role_groups resumename first_name last_name email phone))
(with-auth (instance resumes/modify-service "resume-modify")
(with-resume-database
(let* ((resume-pkg (make-instance 'resume-pkg))
(resume (get-active-resume-by-id resume-pkg id)))
(if resume
(progn
(loop for param in (remove-if (lambda (x)
(intersection `(,x) '(id role_groups)))
(sb-introspect:function-lambda-list #'resumes-modify-submit-json))
do (setf (slot-value resume param) (symbol-value param)))
(update-resume resume-pkg resume)
(delete-role-groups resume-pkg resume)
(loop for role-group in (union '("profile-admin")
(cl-ppcre:split "\\|" role_groups)
:test 'string=)
do (insert-resume-role-group resume-pkg (make-instance 'resume-role
:resume_id (id resume)
:role_group_name role-group)))
(setf (session-value :message) "Resume saved successfully."))
(setf (session-value :errormsg) "An error occured."))))))
(defclass resumes/delete-service (resumes/add-service)
()
(:documentation ""))
(defun resumes-delete-json (id)
(with-auth (instance resumes/delete-service "resume-modify")
(with-resume-database
(let* ((resume-pkg (make-instance 'resume-pkg))
(resume (get-resume-by-id resume-pkg id)))
(if resume
(if (= (id resume) (id (get-resume)))
(setf (session-value :errormsg) "Error: you may not delete yourself.")
(progn
(deactivate-resume resume-pkg resume)
(setf (session-value :errormsg) nil)
(setf (session-value :message) "Resume deleted successfully.")))
(setf (session-value :errormsg) "Error: could not delete resume: not found."))))))
|
