Index: openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs-postgresql.xql 30 Jul 2002 17:57:17 -0000 1.1 @@ -0,0 +1,137 @@ + + postgresql7.1 + + + + + + select recruiting_status_type__disable(:status_type_id); + + + + + + select recruiting_status_type__enable(:status_type_id); + + + + + + select package_id, + short_desc, + long_desc, + enabled_p + from recruiting_status_types + where status_type_id = :status_type_id; + + + + + + select recruiting_criteria__disable(:criteria_id); + + + + + + select recruiting_criteria__enable(:criteria_id); + + + + + + select package_id, + criteria_name, + description, + enabled_p + from recruiting_criteria + where criteria_id = :criteria_id; + + + + + + delete from recruiting_ratings rr + where rr.interview_id = recruiting_interviews.interview_id + and recruiting_interviews.candidate_id = :candidate_id; + + + + + + delete from recruiting_interviews + where candidate_id = :candidate_id; + + + + + + delete from recruiting_candidates + where candidate_id = :candidate_id; + + + + + + select package_id, + first_name, + last_name, + address1, + address2, + city, + state, + zip, + zip_plus_four, + city, + state, + country, + email, + status + from recruiting_candidates + where candidate_id = :candidate_id; + + + + + + delete from recruiting_ratings + where interview_id = :interview_id; + + + + + + delete from recruiting_interviews + where interview_id = :interview_id; + + + + + + select package_id, + interviewer_id, + candidate_id + from recruiting_interviews + where interview_id = :interview_id; + + + + + + delete from recruiting_ratings + where rating_id = :rating_id; + + + + + + select package_id, + interview_id, + criteria_id, + rating + from recruiting_ratings + where rating_id = :rating_id; + + + + 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 -r1.1 -r1.2 --- openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl 30 Jul 2002 15:59:42 -0000 1.1 +++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl 30 Jul 2002 17:57:17 -0000 1.2 @@ -131,7 +131,7 @@ } { get a recruiting criteria } { - db_1row get_recruiting_criteria {} + db_1row get_criteria {} set recruiting_criteria(criteria_id) $criteria_id set recruiting_criteria(package_id) $package_id @@ -243,7 +243,8 @@ } { delete an interview } { - db_exec_plsql delete_interview + db_exec_plsql delete_ratings {} + db_exec_plsql delete_interview {} } ad_proc -public get {