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.3 -r1.4
--- openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl 1 Aug 2002 21:18:09 -0000 1.3
+++ openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl 1 Aug 2002 22:14:37 -0000 1.4
@@ -35,14 +35,28 @@
set possible_ratings [db_string get_num_criteria {}]
table::setTitle interviews "Interviews for this candidate"
-table::setColumnHeadings interviews [list "Interviewer" "Ratings"]
+table::setColumnHeadings interviews [list \
+ "Interviewer" \
+ "Ratings" \
+ "Average Rating" \
+ "Recommends Hiring"
+]
+
+table::setColumnAlignment interviews [list left left center center]
+
table::setExportVars interviews [export_vars candidate_id]
db_foreach get_interviews {} {
- table::addUnsortedRow interviews [list "$last_name, $first_names" "$num_ratings out of $possible_ratings" "(view ratings)"]
+ table::addUnsortedRow interviews [list \
+ "$last_name, $first_names" \
+ "$num_ratings out of $possible_ratings" \
+ "[db_string get_average_rating {}]" \
+ "[db_string get_should_hire_p {}]" \
+ "(view ratings)"]
} if_no_rows {
table::addUnsortedRow interviews [list "No Interviews assigned. (assign one)"]
}
+table::addUnsortedRow interviews [list "" "" "" "" "(view average ratings)"]
table::setTitle options "Options"
table::addUnsortedRow options [list "Edit Information"]