Index: openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl	30 Jul 2002 15:59:42 -0000	1.1
@@ -0,0 +1,308 @@
+#
+#  Copyright (C) 2002 OpenForce, Inc.
+#
+#  This file is part of dotLRN.
+#
+#  dotLRN is free software; you can redistribute it and/or modify it under the
+#  terms of the GNU General Public License as published by the Free Software
+#  Foundation; either version 2 of the License, or (at your option) any later
+#  version.
+#
+#  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+#  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+#  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+#  details.
+#
+
+#
+# The DotLRN Recruiting system
+# copyright 2002, OpenForce, Inc.
+# distributed under the GNU GPL v2
+#
+# for PG 7.1.3 and above
+#
+# @author chak (chak@openforce.net)
+# @creation-date 2002-07-30
+# @version $Id: dotlrn-recruiting-procs.tcl,v 1.1 2002/07/30 15:59:42 chak Exp $
+
+namespace eval recruiting_status_type {
+
+    ad_proc -public new {
+        {-package_id ""}
+        {-short_desc:required}
+        {-long_desc:required}
+        {-enabled_p "t"}
+    } {
+        create a new status type
+    } {
+        if {[empty_string_p $package_id]} {
+            set package_id [ad_conn package_id]
+        }
+        
+        set extra_vars [ns_set create]
+        ns_set put $extra_vars package_id $package_id
+        ns_set put $extra_vars short_desc $short_desc
+        ns_set put $extra_vars long_desc $long_desc
+        ns_set put $extra_vars enabled_p $enabled_p
+
+        set object_type recruiting_status_type
+
+        return [package_instantiate_object -extra_vars $extra_vars $object_type]
+
+    }
+
+    ad_proc public disable {
+        {-status_type_id:required}
+    } {
+        delete a recruiting status type
+    } {
+        db_dml disable_status_type {}
+    }
+
+    ad_proc public enable {
+        {-status_type_id:required}
+    } {
+        delete a recruiting status type
+    } {
+        db_eml enable_status_type {}
+    }
+
+    ad_proc -public get {
+        {-message_id required}
+    } {
+        get a status type
+    } {
+        db_1row get_status_type {}
+        
+        set status_type(status_type_id) $status_type_id
+        set status_type(package_id) $package_id
+        set status_type(short_desc) $short_desc
+        set status_type(long_desc) $long_desc
+        set status_type(enabled_p) $enabled_p
+
+        return [array get status_type]
+    }
+
+}
+
+namespace eval recruiting_criteria {
+    
+    ad_proc -public new {
+        {-criteria_name:required}
+        {-description:required}
+        {-enabled_p:required}
+        {-package_id ""}
+    } {
+        create a new recruiting criteria
+    } {
+        if {[empty_string_p $package_id]} {
+            set package_id [ad_conn package_id]
+        }
+        
+        set extra_vars [ns_set create]
+        ns_set put $extra_vars package_id $package_id
+        ns_set put $extra_vars criteria_name $criteria_name
+        ns_set put $extra_vars description $description
+        ns_set put $extra_vars enabled_p $enabled_p
+
+        set object_type "recruiting_criteria"
+
+        return [package_instantiate_object -extra_vars $extra_vars $object_type]
+    }        
+
+    ad_proc -public disable {
+        {-criteria_id:required}
+    } {
+        disable a recruiting criteria
+    } {
+        db_dml disable_criteria {}
+    }
+
+    ad_proc -public enable {
+        {-criteria_id:required}
+    } {
+        enable a recruiting criteria
+    } {
+        db_dml enable_criteria {}
+    }
+
+    ad_proc -public get {
+        {-criteria_id:required}
+    } {
+        get a recruiting criteria
+    } {
+        db_1row get_recruiting_criteria {}
+
+        set recruiting_criteria(criteria_id) $criteria_id
+        set recruiting_criteria(package_id) $package_id
+        set recruiting_criteria(criteria_name) $criteria_name
+        set recruiting_criteria(description) $description
+        set recruiting_criteria(enabled_p) $enabled_p
+
+        return [array get recruiting_criteria]
+    }
+
+}
+
+namespace eval recruiting_candidate {
+
+    ad_proc -public new {
+        {-first_name:required}
+        {-last_name:required}
+        {-address1:required}
+        {-address2:required}
+        {-city:required}
+        {-state:required}
+        {-zip:required}
+        {-zip_plus_four:required}
+        {-country:required}
+        {-email:required}
+        {-status:requied}
+        {-package_id ""}
+    } {
+        add a new recruiting candidate
+    } {
+        
+        if {[empty_string_p $package_id]} {
+            set package_id [ad_conn package_id]
+        }
+        
+        set extra_vars [ns_set create]
+        ns_set put $extra_vars package_id $package_id
+        ns_set put $extra_vars first_name $first_name
+        ns_set put $extra_vars address1 $address1
+        ns_set put $extra_vars address2 $address2
+        ns_set put $extra_vars city $city
+        ns_set put $extra_vars state $state
+        ns_set put $extra_vars zip $zip
+        ns_set put $extra_vars zip_plus_four $zip_plus_four
+        ns_set put $extra_vars country $country
+        ns_set put $extra_vars email $email
+        ns_set put $extra_vars status $status
+
+        set object_type "recruiting_candidate"
+
+        return [package_instantiate_object -extra_vars $extra_vars $object_type]
+    }
+
+    ad_proc -public delete {
+        {-candidate_id:required}
+    } {
+        delete a recruiting candidate
+    } {
+        db_exec_plsql delete_ratings_for_candidate {}
+        db_exec_plsql delete_interviews_for_candidate {}
+        db_exec_plsql delete_candidate {}
+    }
+
+    ad_proc -public get {
+        db_1row get_recruiting_candidate
+        set recruiting_candidate(candidate_id) $candidate_id
+        set recruiting_candidate(package_id) $package_id
+        set recruiting_candidate(first_name) $first_name
+        set recruiting_candidate(address1) $address1
+        set recruiting_candidate(address2) $address2
+        set recruiting_candidate(city) $city
+        set recruiting_candidate(state) $state
+        set recruiting_candidate(zip) $zip
+        set recruiting_candidate(zip_plus_four) $zip_plus_four
+        set recruiting_candidate(country) $country
+        set recruiting_candidate(email) $email
+        set recruiting_candidate(status) $status
+        
+        return [array get recruiting_candidate]
+    }
+}
+
+namespace eval recruiting_interview {
+
+    ad_proc -public new {
+        {-interviewer_id:required}
+        {-candidate_id:required}
+        {-package_id ""}
+    } {
+        assign an interviewer to interview a candidate
+    } {
+        if {[empty_string_p $package_id]} {
+            set package_id [ad_conn package_id]
+        }
+        
+        set extra_vars [ns_set create]
+        ns_set put $extra_vars package_id $package_id
+        ns_set put $extra_vars interviewer_id $interviewer_id
+        ns_set put $extra_vars candidate_id $candidate_id
+
+        set object_type "recruiting_interview"
+
+
+        return [package_instantiate_object -extra_vars $extra_vars $object_type]
+    }
+
+    ad_proc -public delete {
+        {-interview_id:required}
+    } {
+        delete an interview
+    } {
+        db_exec_plsql delete_interview
+    }
+
+    ad_proc -public get {
+        {-interview_id:required}
+    } {
+        get an interview
+    } {
+        db_1row get_interview {}
+
+        set interview(interview_id) $interview_id
+        set interview(package_id) $package_id
+        set interview(interviewere_id) $interviewer_id
+        set interview(candidate_id) $candidate_id
+
+        return [ns_set get interview]
+    }
+}
+
+namespace eval recruiting_rating {
+    
+    ad_proc -public new {
+        {-interview_id:required}
+        {-criteria_id:required}
+        {-rating:required}
+        {-package_id ""}
+    } {
+        rate a candidate on a particular criteria
+    } {
+        if {[empty_string_p $package_id]} {
+            set package_id [ad_conn package_id]
+        }
+        
+        set extra_vars [ns_set create]
+        ns_set put $extra_vars package_id $package_id
+        ns_set put $extra_vars interview_id $interview_id
+        ns_set put $extra_vars criteria_id $criteria_id
+        ns_set put $extra_vars rating $rating
+
+        set object_type "recruiting_rating"
+        return [package_instantiate_object -extra_vars $extra_vars $object_type]
+    }
+    
+    ad_proc -public delete {
+        {-rating_id:required}
+    } {
+        delete a rating
+    } {
+        db_exec_plsql delete_rating {}
+    }
+
+    ad_proc -public get {
+        {-rating_id:required}
+    } {
+        get a rating
+    } {
+        db_1row get_rating {}
+        set rating(package_id) $package_id
+        set rating(interview_id) $interview_id
+        set rating(criteria_id) $criteria_id
+        set rating(rating) $criteria
+    }
+}