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 -r1.2 -r1.3
--- openacs-4/packages/recruiting/www/admin/delete-candidate.tcl	2 Aug 2002 18:53:56 -0000	1.2
+++ openacs-4/packages/recruiting/www/admin/delete-candidate.tcl	7 Aug 2002 23:39:19 -0000	1.3
@@ -21,7 +21,7 @@
     
     table::setTitle delete "Deleting $candidate_info(first_name) $candidate_info(last_name)"
     table::setForm delete [ns_conn url]
-    table::addUnsortedRow delete [list "<center><br>Are you sure you want to delete $candidate_info(first_name) $candidate_info(last_name)?<br><input type=submit name=delete_p value=Yes> <input type=submit name=delete_p value=No><br>[export_form_vars referrer candidate_id]</center>"]
+    table::addUnsortedRow delete [list "<center><br>This will completely remove this candidate and all their information from the system.<br>If instead all you want to do is make this candidate invisible, <a href=\"archive-candidate?[export_vars {candidate_id referrer}]\">archive them</a> instead.<br>Are you sure you want to delete $candidate_info(first_name) $candidate_info(last_name)?.<p><input type=submit name=delete_p value=Yes> <input type=submit name=delete_p value=No><br>[export_form_vars referrer candidate_id]</center>"]
     
     set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] "Delete Candidate"]