Index: openacs-4/packages/evaluation/www/admin/evaluations/one-evaluation-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/one-evaluation-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/evaluation/www/admin/evaluations/one-evaluation-edit.tcl	28 Apr 2004 11:06:41 -0000	1.1
+++ openacs-4/packages/evaluation/www/admin/evaluations/one-evaluation-edit.tcl	19 May 2004 17:33:09 -0000	1.2
@@ -7,8 +7,9 @@
     @creation-date Mar 2004
     @cvs-id $Id$
 } {
-	task_id:integer,notnull
-	evaluation_id:integer,notnull
+    task_id:integer,notnull
+    evaluation_id:integer,notnull
+    {evaluation_mode "edit"}
 } 
 
 set return_url "student-list?[export_vars -url { task_id }]"
@@ -17,15 +18,15 @@
 
 set context [list [list [export_vars -base student-list { task_id }] "Students List"] $page_title]
 
-if { [ad_form_new_p -key evaluation_id] } {
+if { [ad_form_new_p -key evaluation_id] || [string eq $evaluation_mode "display"] } {
 	set comment_label "Comments"
 } else {
 	set comment_label "Edit Reason"
 }
 
 db_1row get_evaluation_info { *SQL* }
 	
-ad_form -name evaluation -cancel_url $return_url -export { task_id item_id party_id } -form {
+ad_form -name evaluation -cancel_url $return_url -export { task_id item_id party_id } -mode $evaluation_mode -form {
 
 	evaluation_id:key
 
@@ -78,6 +79,9 @@
 		
 	}
 
+	# send the notification to everyone suscribed
+	evaluation::notification::do_notification -task_id $task_id -evaluation_id $revision_id -package_id [ad_conn package_id] -notif_type one_evaluation_notif
+
  	ad_returnredirect "$return_url"
  	ad_script_abort
 }