Index: openacs-4/packages/recruiting/www/edit-ratings.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/edit-ratings.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/edit-ratings.tcl	1 Aug 2002 22:14:37 -0000	1.1
+++ openacs-4/packages/recruiting/www/edit-ratings.tcl	2 Aug 2002 16:48:26 -0000	1.2
@@ -50,9 +50,16 @@
         -value $interview_info(should_hire_p)
 
 
+element create rate_sheet comment \
+        -label "Comments:" \
+        -datatype text \
+        -widget textarea \
+        -html {rows 10 cols 60 wrap soft} \
+        -value $interview_info(comment)
+
 if {[form is_valid rate_sheet]} {
     form get_values rate_sheet \
-            should_hire_p
+            should_hire_p comment
 
 
     db_dml remove_old_ratings {}
@@ -68,7 +75,7 @@
                 -rating [set criteria_$criteria_id]
     }
 
-    db_dml set_should_hire {}
+    db_dml set_should_hire_and_comment {}
 
     ad_returnredirect index
     ad_script_abort