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)<br>"
 if {![empty_string_p "$info(address2)"]} {
-    append address "$info(address2)"
+    append address "$info(address2)<br>"
 }
 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) (<a href=change-candidate-status?candidate_id=$info(candidate_id)>change status</a>)"]
 
 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 {}]" \
-            "(<a href=view-ratings?[export_vars interview_id]>view ratings</a>)"]
+            "(<a href=view-ratings?[export_vars interview_id]>view ratings</a>) (<a href=view-comments?[export_vars candidate_id]>view comments</a>)"]
 } if_no_rows {
     table::addUnsortedRow interviews [list "No Interviews assigned. (<a href=assign-candidate-interview?[export_vars candidate_id]>assign one</a>)"]
 }
@@ -62,6 +66,7 @@
 table::addUnsortedRow options [list "<a href=edit-candidate?[export_vars candidate_id]>Edit Information</a>"]
 table::addUnsortedRow options [list "<a href=change-candidate-status?[export_vars candidate_id]>Change Status</a>"]
 table::addUnsortedRow options [list "<a href=assign-candidate-interview?[export_vars candidate_id]>Assign Interview</a>"]
+table::addUnsortedRow options [list "<a href=delete-candidate?[export_vars {candidate_id referrer}]>Delete this candidate</a>"]
 
 set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] "One Candidate"]