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<br>completed" \
-            "(<a href=\"view-one-candidate?[export_vars candidate_id]\">details</a>)"]
+            "(<a href=\"view-one-candidate?[export_vars candidate_id]\">details</a>) (<a href=delete-candidate?[export_vars {candidate_id referrer}]>Delete this candidate</a>)"]
 } if_no_rows {
     table::addSortableRow candidates [list "No Candidates"]
 }