Index: openacs-4/packages/recruiting/sql/postgresql/recruiting-api-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/sql/postgresql/recruiting-api-create.sql,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/recruiting/sql/postgresql/recruiting-api-create.sql 29 Jul 2002 23:38:09 -0000 1.2 +++ openacs-4/packages/recruiting/sql/postgresql/recruiting-api-create.sql 30 Jul 2002 22:38:34 -0000 1.3 @@ -64,17 +64,28 @@ end;' language 'plpgsql'; -select define_function_args('recruiting_status_type__delete','status_type_id'); -create function recruiting_status_type__delete(integer) +select define_function_args('recruiting_status_type__disable','status_type_id'); +create function recruiting_status_type__disable(integer) returns integer as ' declare p_status_type_id alias for $1; begin - delete from recruiting_status_types where status_type_id = p_status_type_id; + update recruiting_status_types set enabled_p=''f'' where status_type_id = p_status_type_id; - perform acs_object__delete(p_status_type_id); + return 1; +end;' language 'plpgsql'; + +select define_function_args('recruiting_status_type__enable','status_type_id'); +create function recruiting_status_type__enable(integer) +returns integer as ' +declare + p_status_type_id alias for $1; +begin + + update recruiting_status_types set enabled_p=''t'' where status_type_id = p_status_type_id; + return 1; end;' language 'plpgsql'; @@ -100,14 +111,14 @@ p_criteria_id alias for $1; p_package_id alias for $2; p_criteria_name alias for $3; - p_descriptioin alias for $4; + p_description alias for $4; p_enabled_p alias for $5; p_creation_user alias for $6; p_creation_ip alias for $7; - v_creation_id integer; + v_criteria_id integer; begin - v_creation_id := acs_object_type__create_type( + v_criteria_id := acs_object__new( p_criteria_id, ''recruiting_criteria'', now(), @@ -131,17 +142,28 @@ end;' language 'plpgsql'; -select define_function_args('recruiting_criteria__delete','criteria_id'); -create function recruiting_criteria__delete(integer) +select define_function_args('recruiting_criteria__disable','criteria_id'); +create function recruiting_criteria__disable(integer) returns integer as ' declare p_criteria_id alias for $1; begin - delete from recruiting_criteria where criteria_id = p_criteria_id; + update recruiting_criteria set enabled_p=''f'' where criteria_id = p_criteria_id; - perform acs_object__delete(p_criteria_id); + return 1; +end;' language 'plpgsql'; + +select define_function_args('recruiting_criteria__enable','criteria_id'); +create function recruiting_criteria__enable(integer) +returns integer as ' +declare + p_criteria_id alias for $1; +begin + + update recruiting_criteria set enabled_p=''t'' where criteria_id = p_criteria_id; + return 1; end;' language 'plpgsql'; @@ -171,8 +193,8 @@ p_address2 alias for $6; p_city alias for $7; p_state alias for $8; - p_zip alias for $9 - p_zip_plus_four alias for $10 + p_zip alias for $9; + p_zip_plus_four alias for $10; p_country alias for $11; p_email alias for $12; p_status alias for $13; Index: openacs-4/packages/recruiting/sql/postgresql/recruiting-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/sql/postgresql/recruiting-create.sql,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/recruiting/sql/postgresql/recruiting-create.sql 29 Jul 2002 23:38:09 -0000 1.2 +++ openacs-4/packages/recruiting/sql/postgresql/recruiting-create.sql 30 Jul 2002 22:38:34 -0000 1.3 @@ -120,6 +120,8 @@ status integer constraint recruiting_status_fk references recruiting_status_types(status_type_id) + constraint recruiting_status_nn + not null ); select acs_object_type__create_type ( 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 -N -r1.1 -r1.2 --- openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs-postgresql.xql 30 Jul 2002 17:57:17 -0000 1.1 +++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs-postgresql.xql 30 Jul 2002 22:38:34 -0000 1.2 @@ -1,8 +1,7 @@ + postgresql7.1 - - select recruiting_status_type__disable(:status_type_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 -N -r1.2 -r1.3 --- openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl 30 Jul 2002 17:57:17 -0000 1.2 +++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl 30 Jul 2002 22:38:34 -0000 1.3 @@ -51,20 +51,20 @@ } - ad_proc public disable { + ad_proc -public disable { {-status_type_id:required} } { delete a recruiting status type } { db_dml disable_status_type {} } - ad_proc public enable { + ad_proc -public enable { {-status_type_id:required} } { delete a recruiting status type } { - db_eml enable_status_type {} + db_dml enable_status_type {} } ad_proc -public get { @@ -157,7 +157,7 @@ {-zip_plus_four:required} {-country:required} {-email:required} - {-status:requied} + {-status:required} {-package_id ""} } { add a new recruiting candidate @@ -170,6 +170,7 @@ 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 last_name $last_name ns_set put $extra_vars address1 $address1 ns_set put $extra_vars address2 $address2 ns_set put $extra_vars city $city Index: openacs-4/packages/recruiting/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/index.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/admin/index.adp 30 Jul 2002 21:33:38 -0000 1.1 +++ openacs-4/packages/recruiting/www/admin/index.adp 30 Jul 2002 22:38:34 -0000 1.2 @@ -1,4 +1,11 @@ -Modify Candidate status types
-Modify Interview criteria +Candidates:
+View candidates
+Add a new candidate
+ +

+ +Setup:
+Modify candidate status types
+Modify interview criteria Index: openacs-4/packages/recruiting/www/admin/list-candidates.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-candidates.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-candidates.adp 30 Jul 2002 22:38:34 -0000 1.1 @@ -0,0 +1,15 @@ + + +Candidates:
+ + + + + + + + + + +
@list_candidates.last_name@, @list_candidates.first_name@ from @list_candidates.city@, @list_candidates.state@ (send email)
No candidates (add one)
+ Index: openacs-4/packages/recruiting/www/admin/list-candidates.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-candidates.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-candidates.tcl 30 Jul 2002 22:38:34 -0000 1.1 @@ -0,0 +1,16 @@ +ad_page_contract { + recruiting admin interface + access admin function such as: criteria specification + and interviewee status types + + @author chak (chak@openforce.net) + @creation-date 2002-07-30 + @version $Id: list-candidates.tcl,v 1.1 2002/07/30 22:38:34 chak Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +db_multirow list_candidates get_candidates {} + +ad_return_template Index: openacs-4/packages/recruiting/www/admin/list-candidates.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-candidates.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-candidates.xql 30 Jul 2002 22:38:34 -0000 1.1 @@ -0,0 +1,19 @@ + + + + + + select c.first_name, + c.last_name, + c.city, + c.state, + c.email, + s.short_desc as status + from recruiting_candidates c, + recruiting_status_types s + where c.status = s.status_type_id + order by c.last_name + + + + Index: openacs-4/packages/recruiting/www/admin/list-status-types.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-status-types.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/admin/list-status-types.adp 30 Jul 2002 21:33:38 -0000 1.1 +++ openacs-4/packages/recruiting/www/admin/list-status-types.adp 30 Jul 2002 22:38:34 -0000 1.2 @@ -15,7 +15,7 @@ - none defined (add one) + none defined (add one) Index: openacs-4/packages/recruiting/www/admin/new-candidate.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-candidate.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/new-candidate.adp 30 Jul 2002 22:38:34 -0000 1.1 @@ -0,0 +1,8 @@ + + + + + + + There are no candidate status types defined. You must define a status type before creating candidates. + Index: openacs-4/packages/recruiting/www/admin/new-candidate.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-candidate.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/new-candidate.tcl 30 Jul 2002 22:38:34 -0000 1.1 @@ -0,0 +1,112 @@ +ad_page_contract { + recruiting admin interface + new candidate page + + @author chak (chak@openforce.net) + @creation-date 2002-07-30 + @version $Id: new-candidate.tcl,v 1.1 2002/07/30 22:38:34 chak Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +# check if there are status types defined. if not, +# don't let any candidates be created (what would their +# status type be)? + +set status_type_count [db_string get_status_type_count {}] + +form create new_candidate +element create new_candidate first_name \ + -label "First Name:" \ + -datatype text \ + -widget text \ + -html {size 30} + +element create new_candidate last_name \ + -label "Last Name:" \ + -datatype text \ + -widget text \ + -html {size 30} + +element create new_candidate address1 \ + -label "Address 1:" \ + -datatype text \ + -widget text \ + -html {size 30} + +element create new_candidate address2 \ + -label "Address 2:" \ + -datatype text \ + -widget text \ + -html {size 30} \ + -optional + +element create new_candidate city \ + -label "City:" \ + -datatype text \ + -widget text \ + -html {size 30} + +element create new_candidate state \ + -label "State:" \ + -datatype text \ + -widget text \ + -html {size 2} + +element create new_candidate zip \ + -label "Zip:" \ + -datatype text \ + -widget text \ + -html {size 5} \ + -optional + +element create new_candidate zip_plus_four \ + -label {Zip Plus 4:} \ + -datatype text \ + -widget text \ + -html {size 4} \ + -optional + +element create new_candidate country \ + -label "Country:" \ + -datatype text \ + -widget text \ + -html {size 30} + +element create new_candidate email \ + -label "Email:" \ + -datatype text \ + -widget text \ + -html {size 30} + +element create new_candidate status \ + -label "Status:" \ + -datatype integer \ + -widget select \ + -options [db_list_of_lists get_status_types "select short_desc,status_type_id from recruiting_status_types where enabled_p='t' order by short_desc"] \ + +if {[form is_valid new_candidate]} { + form get_values new_candidate \ + first_name last_name \ + address1 address2 city state zip zip_plus_four country \ + email status + + recruiting_candidate::new \ + -first_name $first_name \ + -last_name $last_name \ + -address1 $address1 \ + -address2 $address2 \ + -city $city \ + -state $state \ + -zip $zip \ + -zip_plus_four $zip_plus_four \ + -country $country \ + -email $email \ + -status $status + + ad_returnredirect list-candidates + ad_script_abort +} + +ad_return_template Index: openacs-4/packages/recruiting/www/admin/new-candidate.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-candidate.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/new-candidate.xql 30 Jul 2002 22:38:34 -0000 1.1 @@ -0,0 +1,10 @@ + + + + + + select count(*) from recruiting_status_types + + + +