Index: openacs-4/packages/recruiting/dotlrn-recruiting.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/Attic/dotlrn-recruiting.info,v diff -u -r1.4 -r1.5 --- openacs-4/packages/recruiting/dotlrn-recruiting.info 1 Aug 2002 22:14:36 -0000 1.4 +++ openacs-4/packages/recruiting/dotlrn-recruiting.info 2 Aug 2002 16:48:26 -0000 1.5 @@ -31,6 +31,8 @@ + + @@ -71,6 +73,9 @@ + + + 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 -r1.3 -r1.4 --- openacs-4/packages/recruiting/sql/postgresql/recruiting-api-create.sql 30 Jul 2002 22:38:34 -0000 1.3 +++ openacs-4/packages/recruiting/sql/postgresql/recruiting-api-create.sql 2 Aug 2002 16:48:26 -0000 1.4 @@ -181,8 +181,8 @@ end;' language 'plpgsql'; -select define_function_args('recruiting_candidate__new','candidate_id,package_id,first_name,last_name,address1,address2,city,state,zip,zip_plus_four,country,email,status,creation_user,creation_ip'); -create function recruiting_candidate__new(integer,integer,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,integer,integer,varchar) +select define_function_args('recruiting_candidate__new','candidate_id,package_id,first_name,last_name,address1,address2,city,state,zip,zip_plus_four,country,home_phone,cell_phone,email,status,creation_user,creation_ip'); +create function recruiting_candidate__new(integer,integer,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,varchar,integer,integer,varchar) returns integer as ' declare p_candidate_id alias for $1; @@ -196,10 +196,12 @@ 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; - p_creation_user alias for $14; - p_creation_ip alias for $15; + p_home_phone alias for $12; + p_cell_phone alias for $13; + p_email alias for $14; + p_status alias for $15; + p_creation_user alias for $16; + p_creation_ip alias for $17; v_candidate_id integer; begin @@ -223,6 +225,8 @@ zip, zip_plus_four, country, + home_phone, + cell_phone, email, status) values(v_candidate_id, @@ -236,6 +240,8 @@ p_zip, p_zip_plus_four, p_country, + p_home_phone, + p_cell_phone, p_email, p_status); 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 -r1.4 -r1.5 --- openacs-4/packages/recruiting/sql/postgresql/recruiting-create.sql 1 Aug 2002 22:14:36 -0000 1.4 +++ openacs-4/packages/recruiting/sql/postgresql/recruiting-create.sql 2 Aug 2002 16:48:26 -0000 1.5 @@ -115,6 +115,9 @@ zip_plus_four varchar(4), country varchar(1024), + home_phone varchar(10), + cell_phone varchar(10), + email varchar(1024), status integer @@ -154,7 +157,8 @@ references users(user_id), candidate_id integer references recruiting_candidates(candidate_id), - should_hire_p boolean + should_hire_p boolean, + comment varchar(8000) ); 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 -r1.5 -r1.6 --- openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs-postgresql.xql 1 Aug 2002 22:14:36 -0000 1.5 +++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs-postgresql.xql 2 Aug 2002 16:48:26 -0000 1.6 @@ -4,13 +4,13 @@ - select recruiting_status_type__disable(:status_type_id); + select recruiting_status_type__disable(:status_type_id) - select recruiting_status_type__enable(:status_type_id); + select recruiting_status_type__enable(:status_type_id) @@ -21,7 +21,7 @@ long_desc, enabled_p from recruiting_status_types - where status_type_id = :status_type_id; + where status_type_id = :status_type_id @@ -38,13 +38,13 @@ - select recruiting_criteria__disable(:criteria_id); + select recruiting_criteria__disable(:criteria_id) - select recruiting_criteria__enable(:criteria_id); + select recruiting_criteria__enable(:criteria_id) @@ -55,7 +55,7 @@ description, enabled_p from recruiting_criteria - where criteria_id = :criteria_id; + where criteria_id = :criteria_id @@ -71,23 +71,23 @@ - delete from recruiting_ratings rr - where rr.interview_id = recruiting_interviews.interview_id - and recruiting_interviews.candidate_id = :candidate_id; + delete from recruiting_ratings + where interview_id = recruiting_interviews.interview_id + and recruiting_interviews.candidate_id = :candidate_id delete from recruiting_interviews - where candidate_id = :candidate_id; + where candidate_id = :candidate_id delete from recruiting_candidates - where candidate_id = :candidate_id; + where candidate_id = :candidate_id @@ -105,10 +105,12 @@ city, state, country, + home_phone, + cell_phone, email, status from recruiting_candidates - where candidate_id = :candidate_id; + where candidate_id = :candidate_id @@ -124,6 +126,8 @@ zip = :zip, zip_plus_four = :zip_plus_four, country = :country, + home_phone = :home_phone, + cell_phone = :cell_phone, email = :email, status = :status where candidate_id = :candidate_id @@ -133,14 +137,14 @@ delete from recruiting_ratings - where interview_id = :interview_id; + where interview_id = :interview_id delete from recruiting_interviews - where interview_id = :interview_id; + where interview_id = :interview_id @@ -149,16 +153,17 @@ select package_id, interviewer_id, candidate_id, - should_hire_p + should_hire_p, + comment from recruiting_interviews - where interview_id = :interview_id; + where interview_id = :interview_id delete from recruiting_ratings - where rating_id = :rating_id; + 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.6 -r1.7 --- openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl 1 Aug 2002 22:14:36 -0000 1.6 +++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl 2 Aug 2002 16:48:26 -0000 1.7 @@ -168,6 +168,33 @@ namespace eval recruiting_candidate { + ad_proc -public format_phone { + {-phone_number:required} + } { + this proc takes a 10 digit phone number (which should + have only digits, no ()-. characters, and formats it + like this: "(123) 456-7890" + + if the input is not a string of ten digits, an empty + string is returned + } { + if {[string length $phone_number] != 10} { + return "" + } else { + return "\([string range $phone_number 0 2]\) [string range $phone_number 3 5]-[string range $phone_number 6 end]" + } + } + + ad_proc -public strip_phone { + {-phone_number:required} + } { + this proc takes a 10 digit phone number of arbitrary format + and strips away ()-., or any other characters + } { + regsub -all {[^0-9]} $phone_number "" stripped_number + return $stripped_number + } + ad_proc -public new { {-first_name:required} {-last_name:required} @@ -179,6 +206,8 @@ {-zip_plus_four:required} {-country:required} {-email:required} + {-home_phone:required} + {-cell_phone:required} {-status:required} {-package_id ""} } { @@ -200,9 +229,11 @@ 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 home_phone $home_phone + ns_set put $extra_vars cell_phone $cell_phone 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] @@ -213,9 +244,9 @@ } { delete a recruiting candidate } { - db_exec_plsql delete_ratings_for_candidate {} - db_exec_plsql delete_interviews_for_candidate {} - db_exec_plsql delete_candidate {} + db_dml delete_ratings_for_candidate {} + db_dml delete_interviews_for_candidate {} + db_dml delete_candidate {} } ad_proc -public get { @@ -238,6 +269,8 @@ set recruiting_candidate(zip) $zip set recruiting_candidate(zip_plus_four) $zip_plus_four set recruiting_candidate(country) $country + set recruiting_candidate(home_phone) $home_phone + set recruiting_candidate(cell_phone) $cell_phone set recruiting_candidate(email) $email set recruiting_candidate(status) $the_status(short_desc) @@ -255,6 +288,8 @@ {-zip:required} {-zip_plus_four:required} {-country:required} + {-home_phone:required} + {-cell_phone:required} {-email:required} {-status:required} {-package_id:required} @@ -311,6 +346,7 @@ set interview(interviewer_id) $interviewer_id set interview(candidate_id) $candidate_id set interview(should_hire_p) $should_hire_p + set interview(comment) $comment return [array get interview] } Index: openacs-4/packages/recruiting/www/edit-ratings.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/edit-ratings.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/edit-ratings.tcl 1 Aug 2002 22:14:37 -0000 1.1 +++ openacs-4/packages/recruiting/www/edit-ratings.tcl 2 Aug 2002 16:48:26 -0000 1.2 @@ -50,9 +50,16 @@ -value $interview_info(should_hire_p) +element create rate_sheet comment \ + -label "Comments:" \ + -datatype text \ + -widget textarea \ + -html {rows 10 cols 60 wrap soft} \ + -value $interview_info(comment) + if {[form is_valid rate_sheet]} { form get_values rate_sheet \ - should_hire_p + should_hire_p comment db_dml remove_old_ratings {} @@ -68,7 +75,7 @@ -rating [set criteria_$criteria_id] } - db_dml set_should_hire {} + db_dml set_should_hire_and_comment {} ad_returnredirect index ad_script_abort Index: openacs-4/packages/recruiting/www/edit-ratings.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/edit-ratings.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/edit-ratings.xql 1 Aug 2002 22:14:37 -0000 1.1 +++ openacs-4/packages/recruiting/www/edit-ratings.xql 2 Aug 2002 16:48:26 -0000 1.2 @@ -12,10 +12,11 @@ - + update recruiting_interviews - set should_hire_p = :should_hire_p + set should_hire_p = :should_hire_p, + comment = :comment where interview_id = :interview_id Index: openacs-4/packages/recruiting/www/rate-candidate.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/rate-candidate.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/rate-candidate.tcl 1 Aug 2002 21:18:09 -0000 1.1 +++ openacs-4/packages/recruiting/www/rate-candidate.tcl 2 Aug 2002 16:48:26 -0000 1.2 @@ -45,10 +45,15 @@ -widget radio \ -options [list [list Yes t] [list No f]] +element create rate_sheet comment \ + -label "Comments:" \ + -datatype text \ + -widget textarea \ + -html {rows 10 cols 60 wrap soft} if {[form is_valid rate_sheet]} { form get_values rate_sheet \ - should_hire_p + should_hire_p comment foreach criteria_id $criteria_ids { form get_values rate_sheet \ @@ -59,11 +64,12 @@ -package_id $package_id \ -interview_id $interview_id \ -criteria_id $criteria_id \ - -rating [set criteria_$criteria_id] + -rating [set criteria_$criteria_id] \ + -comment $comment } } - db_dml set_should_hire {} + db_dml set_should_hire_and_comment {} ad_returnredirect index ad_script_abort Index: openacs-4/packages/recruiting/www/rate-candidate.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/rate-candidate.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/rate-candidate.xql 1 Aug 2002 21:18:09 -0000 1.1 +++ openacs-4/packages/recruiting/www/rate-candidate.xql 2 Aug 2002 16:48:26 -0000 1.2 @@ -12,10 +12,11 @@ - + update recruiting_interviews - set should_hire_p = :should_hire_p + set should_hire_p = :should_hire_p, + comment = :comment where interview_id = :interview_id Index: openacs-4/packages/recruiting/www/rating-sheet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/rating-sheet.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/rating-sheet.adp 1 Aug 2002 22:14:37 -0000 1.1 +++ openacs-4/packages/recruiting/www/rating-sheet.adp 2 Aug 2002 16:48:26 -0000 1.2 @@ -4,6 +4,8 @@ Index: openacs-4/packages/recruiting/www/rating-sheet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/rating-sheet.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/rating-sheet.tcl 1 Aug 2002 22:14:37 -0000 1.1 +++ openacs-4/packages/recruiting/www/rating-sheet.tcl 2 Aug 2002 16:48:26 -0000 1.2 @@ -38,6 +38,9 @@ table::addUnsortedRow summary [list "Average rating:" [db_string get_average_rating {}]] table::addUnsortedRow summary [list "Hiring suggestion:" [db_string get_should_hire_p {}]] +table::setTitle comments "Comments" +table::addUnsortedRow comments [list $interview_info(comment)] + set context_bar [list \ [list "index" "Recruiting"] \ [list "my-completed-interviews" "My Completed Interviews"] \ Index: openacs-4/packages/recruiting/www/admin/delete-candidate.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/delete-candidate.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/delete-candidate.adp 2 Aug 2002 16:48:26 -0000 1.1 @@ -0,0 +1,5 @@ + +@context_bar@ + +<%= [table::outputTable delete] %> + Index: openacs-4/packages/recruiting/www/admin/delete-candidate.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/delete-candidate.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/delete-candidate.tcl 2 Aug 2002 16:48:26 -0000 1.1 @@ -0,0 +1,39 @@ +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: delete-candidate.tcl,v 1.1 2002/08/02 16:48:26 chak Exp $ +} { + candidate_id:notnull + referrer:notnull + {delete_p "notyet"} +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +if {$delete_p == "notyet"} { + + array set candidate_info [recruiting_candidate::get -candidate_id $candidate_id] + + table::setTitle delete "Deleting $candidate_info(first_name) $candidate_info(last_name)" + table::setForm delete delete-candidate + table::addUnsortedRow delete [list "

Are you sure you want to delete $candidate_info(first_name) $candidate_info(last_name)?

[export_form_vars referrer candidate_id]
"] + + set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] "Delete Candidate"] + + ad_return_template + +} else { + + if {$delete_p == "Yes"} { + recruiting_candidate::delete -candidate_id $candidate_id + ns_returnredirect list-candidates + } else { + ns_returnredirect [ns_urldecode $referrer] + } + +} Index: openacs-4/packages/recruiting/www/admin/edit-candidate.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/edit-candidate.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/admin/edit-candidate.tcl 1 Aug 2002 00:45:49 -0000 1.1 +++ openacs-4/packages/recruiting/www/admin/edit-candidate.tcl 2 Aug 2002 16:48:26 -0000 1.2 @@ -85,6 +85,20 @@ -html {size 30} \ -value $info(country) +element create edit_candidate home_phone \ + -label "Home phone:" \ + -datatype text \ + -widget text \ + -html {size 14} \ + -value [recruiting_candidate::format_phone -phone_number $info(home_phone)] + +element create edit_candidate cell_phone \ + -label "Mobile phone:" \ + -datatype text \ + -widget text \ + -html {size 14} \ + -value [recruiting_candidate::format_phone -phone_number $info(cell_phone)] + element create edit_candidate email \ -label "Email:" \ -datatype text \ @@ -107,6 +121,7 @@ form get_values edit_candidate \ first_name last_name \ address1 address2 city state zip zip_plus_four country \ + home_phone cell_phone \ email status recruiting_candidate::update_candidate \ @@ -120,6 +135,8 @@ -zip $zip \ -zip_plus_four $zip_plus_four \ -country $country \ + -home_phone [recruiting_candidate::strip_phone -phone_number $home_phone] \ + -cell_phone [recruiting_candidate::strip_phone -phone_number $cell_phone] \ -email $email \ -status $status \ -package_id $package_id 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 -r1.4 -r1.5 --- openacs-4/packages/recruiting/www/admin/list-candidates.tcl 1 Aug 2002 22:14:37 -0000 1.4 +++ openacs-4/packages/recruiting/www/admin/list-candidates.tcl 2 Aug 2002 16:48:26 -0000 1.5 @@ -11,6 +11,8 @@ set package_id [ad_conn package_id] set user_id [ad_verify_and_get_user_id] +set referrer [ns_urlencode [ns_conn url]] + table::setTitle candidates "Recruiting Candidates" table::setColumnHeadings candidates [list "Name" "Location" "Status" "Interviews"] table::setColumnAlignment candidates [list left left left center left] @@ -19,7 +21,7 @@ "$city, $state" \ "$status" \ "$num_completed_interviews out of $num_interviews
completed" \ - "(details)"] + "(details) (Delete this candidate)"] } if_no_rows { table::addSortableRow candidates [list "No 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 -r1.2 -r1.3 --- openacs-4/packages/recruiting/www/admin/new-candidate.tcl 31 Jul 2002 23:54:00 -0000 1.2 +++ openacs-4/packages/recruiting/www/admin/new-candidate.tcl 2 Aug 2002 16:48:26 -0000 1.3 @@ -74,6 +74,18 @@ -widget text \ -html {size 30} +element create new_candidate home_phone \ + -label "Home phone:" \ + -datatype text \ + -widget text \ + -html {size 14} + +element create new_candidate cell_phone \ + -label "Mobile phone:" \ + -datatype text \ + -widget text \ + -html {size 14} + element create new_candidate email \ -label "Email:" \ -datatype text \ @@ -90,6 +102,7 @@ form get_values new_candidate \ first_name last_name \ address1 address2 city state zip zip_plus_four country \ + home_phone cell_phone \ email status recruiting_candidate::new \ @@ -102,6 +115,8 @@ -zip $zip \ -zip_plus_four $zip_plus_four \ -country $country \ + -home_phone [recruiting_candidate::strip_phone -phone_number $home_phone] \ + -cell_phone [recruiting_candidate::strip_phone -phone_number $cell_phone] \ -email $email \ -status $status Index: openacs-4/packages/recruiting/www/admin/view-comments.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-comments.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/view-comments.adp 2 Aug 2002 16:48:26 -0000 1.1 @@ -0,0 +1,5 @@ + +@context_bar@ + +<%= [table::outputTable comments] %> + Index: openacs-4/packages/recruiting/www/admin/view-comments.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-comments.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/view-comments.tcl 2 Aug 2002 16:48:26 -0000 1.1 @@ -0,0 +1,26 @@ +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: view-comments.tcl,v 1.1 2002/08/02 16:48:26 chak Exp $ +} { + candidate_id:notnull +} + +set package_id [ad_conn package_id] +set user_id [ad_verify_and_get_user_id] + +array set candidate_info [recruiting_candidate::get -candidate_id $candidate_id] + +table::setTitle comments "Comments for $candidate_info(first_name) $candidate_info(last_name)" + +db_foreach get_comments {} { + table::addUnsortedRow comments [list "$interviewer_name: $comment
(view $interviewer_name's ratings)"] +} + +set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] [list "view-one-candidate?[export_vars candidate_id]" "One Candidate"] "Comments"] + +ad_return_template Index: openacs-4/packages/recruiting/www/admin/view-comments.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-comments.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/recruiting/www/admin/view-comments.xql 2 Aug 2002 16:48:26 -0000 1.1 @@ -0,0 +1,16 @@ + + + + + + select u.first_names||' '||u.last_name as interviewer_name, + i.interview_id, + i.comment + from registered_users u, + recruiting_interviews i + where u.user_id = i.interviewer_id + and i.candidate_id = :candidate_id + + + + Index: openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl 1 Aug 2002 22:14:37 -0000 1.4 +++ openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl 2 Aug 2002 16:48:26 -0000 1.5 @@ -13,13 +13,15 @@ set package_id [ad_conn package_id] set user_id [ad_verify_and_get_user_id] +set referrer [ns_urlencode [ns_conn url]?[export_vars candidate_id]] + array set info [recruiting_candidate::get \ -candidate_id $candidate_id] set address "$info(address1)
" if {![empty_string_p "$info(address2)"]} { - append address "$info(address2)" + append address "$info(address2)
" } append address "$info(city), $info(state) $info(zip)" if {![empty_string_p "$info(zip_plus_four)"]} { @@ -30,6 +32,8 @@ table::setTitle candidate "Recruiting Candidate Detail" table::addUnsortedRow candidate [list "Name:" "$info(last_name), $info(first_name)"] table::addUnsortedRow candidate [list "Address:" "$address"] +table::addUnsortedRow candidate [list "Home Phone:" "[recruiting_candidate::format_phone -phone_number $info(home_phone)]"] +table::addUnsortedRow candidate [list "Mobile Phone:" "[recruiting_candidate::format_phone -phone_number $info(cell_phone)]"] table::addUnsortedRow candidate [list "Status:" "$info(status) (change status)"] set possible_ratings [db_string get_num_criteria {}] @@ -52,7 +56,7 @@ "$num_ratings out of $possible_ratings" \ "[db_string get_average_rating {}]" \ "[db_string get_should_hire_p {}]" \ - "(view ratings)"] + "(view ratings) (view comments)"] } if_no_rows { table::addUnsortedRow interviews [list "No Interviews assigned. (assign one)"] } @@ -62,6 +66,7 @@ table::addUnsortedRow options [list "Edit Information"] table::addUnsortedRow options [list "Change Status"] table::addUnsortedRow options [list "Assign Interview"] +table::addUnsortedRow options [list "Delete this candidate"] set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] "One Candidate"] Index: openacs-4/packages/recruiting/www/admin/view-ratings.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-ratings.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/admin/view-ratings.adp 1 Aug 2002 21:18:09 -0000 1.1 +++ openacs-4/packages/recruiting/www/admin/view-ratings.adp 2 Aug 2002 16:48:26 -0000 1.2 @@ -4,6 +4,8 @@
<%= [table::outputTable ratings] %> +

+<%= [table::outputTable comments] %>

<%= [table::outputTable summary] %>
Index: openacs-4/packages/recruiting/www/admin/view-ratings.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-ratings.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/recruiting/www/admin/view-ratings.tcl 1 Aug 2002 21:18:09 -0000 1.1 +++ openacs-4/packages/recruiting/www/admin/view-ratings.tcl 2 Aug 2002 16:48:26 -0000 1.2 @@ -34,6 +34,9 @@ table::addUnsortedRow summary [list "Average rating:" [db_string get_average_rating {}]] table::addUnsortedRow summary [list "Hiring suggestion:" [db_string get_should_hire_p {}]] +table::setTitle comments "Comments" +table::addUnsortedRow comments [list $interview_info(comment)] + set context_bar [list \ [list "../" "Recruiting"] \ [list "index" "Admin"] \
<%= [table::outputTable ratings] %> +

+<%= [table::outputTable comments] %>

<%= [table::outputTable summary] %>