Index: openacs-4/packages/recruiting/www/admin/disable-criteria.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/disable-criteria.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/disable-criteria.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,18 @@ +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: disable-criteria.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} { + criteria_id:notnull +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +db_dml disable_criteria {} + +ns_returnredirect list-criteria Index: openacs-4/packages/recruiting/www/admin/disable-criteria.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/disable-criteria.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/disable-criteria.xql 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,12 @@ + + + + + + update recruiting_criteria + set enabled_p = 'f' + where criteria_id = :criteria_id + + + + Index: openacs-4/packages/recruiting/www/admin/disable-status-type.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/disable-status-type.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/disable-status-type.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,18 @@ +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: disable-status-type.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} { + status_type_id:notnull +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +db_dml disable_status_type {} + +ns_returnredirect list-status-types Index: openacs-4/packages/recruiting/www/admin/disable-status-type.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/disable-status-type.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/disable-status-type.xql 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,12 @@ + + + + + + update recruiting_status_types + set enabled_p = 'f' + where status_type_id = :status_type_id + + + + Index: openacs-4/packages/recruiting/www/admin/enable-criteria.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/enable-criteria.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/enable-criteria.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,18 @@ +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: enable-criteria.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} { + criteria_id:notnull +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +db_dml enable_criteria {} + +ns_returnredirect list-criteria Index: openacs-4/packages/recruiting/www/admin/enable-criteria.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/enable-criteria.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/enable-criteria.xql 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,12 @@ + + + + + + update recruiting_criteria + set enabled_p = 't' + where criteria_id = :criteria_id + + + + Index: openacs-4/packages/recruiting/www/admin/enable-status-type.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/enable-status-type.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/enable-status-type.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,18 @@ +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: enable-status-type.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} { + status_type_id:notnull +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +db_dml enable_status_type {} + +ns_returnredirect list-status-types Index: openacs-4/packages/recruiting/www/admin/enable-status-type.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/enable-status-type.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/enable-status-type.xql 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,12 @@ + + + + + + update recruiting_status_types + set enabled_p = 't' + where status_type_id = :status_type_id + + + + 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 --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/index.adp 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,4 @@ + + +Modify Candidate status types
+Modify Interview criteria Index: openacs-4/packages/recruiting/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/index.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,12 @@ +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: index.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] Index: openacs-4/packages/recruiting/www/admin/list-criteria-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-criteria-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-criteria-postgresql.xql 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,4 @@ + + + + Index: openacs-4/packages/recruiting/www/admin/list-criteria.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-criteria.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-criteria.adp 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,28 @@ + + +Add New Criteria + +

+ +Interview criteria: + + + + + + + + + +
@enabled_criteria_types.criteria_name@(disable)
none defined (add one)
+ +

+ + + Disabled criteria: + + + + +
@disabled_criteria_types.criteria_name@(enable)
+ Index: openacs-4/packages/recruiting/www/admin/list-criteria.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-criteria.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-criteria.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,21 @@ +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-criteria.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +db_multirow enabled_criteria_types get_enabled_criteria_types "" { + set disable_url "disable-criteria?[export_vars criteria_id]" +} + +db_multirow disabled_criteria_types get_disabled_criteria_types "" { + set enable_url "enable-criteria?[export_vars criteria_id]" +} + Index: openacs-4/packages/recruiting/www/admin/list-criteria.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-criteria.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-criteria.xql 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,42 @@ + + + + + + select criteria_id, + criteria_name, + '' as disable_url + from recruiting_criteria + where enabled_p = 't' + order by criteria_name + + + + + + select criteria_id, + criteria_name, + '' as enable_url + from recruiting_criteria + where enabled_p = 'f' + order by criteria_name + + + + + + update recruiting_criteria + set enabled_p = 't' + where criteria_id = :criteria_id + + + + + + update recruiting_criteria + set enabled_p = 'f' + where criteria_id = :criteria_id + + + + 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 --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-status-types.adp 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,32 @@ + + +@context_bar@ + +Add new status type + +

+ +Candidate status types:
+ + + + + + + + + + +
@enabled_status_types.short_desc@(disable)
none defined (add one)
+ + +

+ + + Disabled status types: + + + + +
@disabled_status_types.short_desc@(enable)
+ Index: openacs-4/packages/recruiting/www/admin/list-status-types.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-status-types.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-status-types.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,24 @@ +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-status-types.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +db_multirow enabled_status_types get_enabled_status_types {} { + set disable_url "disable-status-type?[export_vars status_type_id]" +} + +db_multirow disabled_status_types get_disabled_status_types {} { + set enable_url "enable-status-type?[export_vars status_type_id]" +} + +set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] "Status Types"] + +ad_return_template Index: openacs-4/packages/recruiting/www/admin/list-status-types.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-status-types.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/list-status-types.xql 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,26 @@ + + + + + + select status_type_id, + short_desc, + '' as disable_url + from recruiting_status_types + where enabled_p = 't' + order by short_desc + + + + + + select status_type_id, + short_desc, + '' as enable_url + from recruiting_status_types + where enabled_p = 'f' + order by short_desc + + + + Index: openacs-4/packages/recruiting/www/admin/new-criteria.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-criteria.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/new-criteria.adp 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,3 @@ + + + Index: openacs-4/packages/recruiting/www/admin/new-criteria.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-criteria.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/new-criteria.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,40 @@ +ad_page_contract { + recruiting admin interface + new criteria page + + @author chak (chak@openforce.net) + @creation-date 2002-07-30 + @version $Id: new-criteria.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +form create new_criteria +element create new_criteria criteria_name \ + -label "Criteria Name:" \ + -datatype text \ + -widget text \ + -html {size 60} + +element create new_criteria description \ + -label "Description:" \ + -datatype text \ + -widget textarea \ + -html {rows 5 cols 60 wrap soft} + +if {[form is_valid new_criteria]} { + form get_values new_criteria \ + criteria_name description + + recruiting_criteria::new \ + -criteria_name $criteria_name \ + -description $description \ + -package_id $package_id \ + -enabled_p "t" + + ad_returnredirect list-criteria + ad_script_abort +} + +ad_return_template Index: openacs-4/packages/recruiting/www/admin/new-status-type.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-status-type.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/new-status-type.adp 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,3 @@ + + + Index: openacs-4/packages/recruiting/www/admin/new-status-type.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-status-type.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/new-status-type.tcl 30 Jul 2002 21:33:38 -0000 1.1 @@ -0,0 +1,40 @@ +ad_page_contract { + recruiting admin interface + new status type page + + @author chak (chak@openforce.net) + @creation-date 2002-07-30 + @version $Id: new-status-type.tcl,v 1.1 2002/07/30 21:33:38 chak Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +form create new_status_type +element create new_status_type short_desc \ + -label "Status type:" \ + -datatype text \ + -widget text \ + -html {size 60} + +element create new_status_type long_desc \ + -label "Description:" \ + -datatype text \ + -widget textarea \ + -html {rows 5 cols 60 wrap soft} + +if {[form is_valid new_status_type]} { + form get_values new_status_type \ + short_desc long_desc + + recruiting_status_type::new \ + -short_desc $short_desc \ + -long_desc $long_desc \ + -package_id $package_id \ + -enabled_p "t" + + ad_returnredirect list-status-types + ad_script_abort +} + +ad_return_template