Index: openacs-4/packages/recruiting/www/admin/view-ratings.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-ratings.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/recruiting/www/admin/view-ratings.tcl 2 Aug 2002 16:48:26 -0000 1.2
+++ openacs-4/packages/recruiting/www/admin/view-ratings.tcl 9 Aug 2002 20:30:51 -0000 1.3
@@ -18,24 +18,24 @@
db_1row get_interviewer_info {}
-table::setTitle ratings "$interviewer_name\'s ratings for $candidate_info(first_name) $candidate_info(last_name)"
-table::setColumnHeadings ratings [list "Criteria" "Rating"]
-table::setColumnAlignment ratings [list left center]
-table::setExportVars ratings [export_vars interview_id]
+ui::table::set_title ratings "$interviewer_name\'s ratings for $candidate_info(first_name) $candidate_info(last_name)"
+ui::table::set_column_headings ratings [list "Criteria" "Rating"]
+ui::table::set_column_alignment ratings [list left center]
+ui::table::set_export_vars ratings [export_vars interview_id]
db_foreach get_ratings {} {
- table::addSortableRow ratings [list "$criteria_name (view all $criteria_name ratings)
$description" "$rating"]
+ ui::table::add_sortable_row ratings [list "$criteria_name (view all $criteria_name ratings)
$description" "$rating"]
} if_no_rows {
- table::addSortableRow ratings [list "$interviewer_name has not made any ratings for $candidate_info(first_name) $candidate_info(last_name)"]
+ ui::table::add_sortable_row ratings [list "$interviewer_name has not made any ratings for $candidate_info(first_name) $candidate_info(last_name)"]
}
-table::setTitle summary "Summary Info"
-table::addUnsortedRow summary [list "Interviewed by:" "$interviewer_name
$interviewer_email"]
-table::addUnsortedRow summary [list "Average rating:" [db_string get_average_rating {}]]
-table::addUnsortedRow summary [list "Hiring suggestion:" [db_string get_should_hire_p {}]]
+ui::table::set_title summary "Summary Info"
+ui::table::add_unsorted_row summary [list "Interviewed by:" "$interviewer_name
$interviewer_email"]
+ui::table::add_unsorted_row summary [list "Average rating:" [db_string get_average_rating {}]]
+ui::table::add_unsorted_row summary [list "Hiring suggestion:" [db_string get_should_hire_p {}]]
-table::setTitle comments "Comments"
-table::addUnsortedRow comments [list $interview_info(comment)]
+ui::table::set_title comments "Comments"
+ui::table::add_unsorted_row comments [list $interview_info(comment)]
set context_bar [list \
[list "../" "Recruiting"] \
@@ -45,3 +45,10 @@
"Interview Ratings"]
ad_return_template
+
+
+
+
+
+
+