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.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/list-candidates.tcl	30 Jul 2002 22:38:34 -0000	1.1
+++ openacs-4/packages/recruiting/www/admin/list-candidates.tcl	31 Jul 2002 23:54:00 -0000	1.2
@@ -11,6 +11,17 @@
 set package_id [ad_conn package_id]
 set user_id [ad_verify_and_get_user_id]
 
-db_multirow list_candidates get_candidates {}
+table::setTitle candidates "Recruiting Candidates"
+table::setColumnHeadings candidates [list "Name" "Location" "Status"]
+db_foreach get_candidates {} {
+    table::addSortableRow candidates [list "$first_name $last_name" "$city, $state" "$status" "(<a href=\"mailto:$email\">email</a>) (<a href=\"view-one-candidate?[export_vars candidate_id]\">details</a>)"]
+} if_no_rows {
+    table::addSortableRow candidates [list "No Candidates"]
+}
 
+table::setTitle options "Options"
+table::addUnsortedRow options [list "<a href=new-candidate>Add a new candidate</a>"]
+
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] "Candidates"]
+
 ad_return_template