Index: openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl,v
diff -u -N -r1.14.2.1 -r1.14.2.2
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl	31 May 2005 23:13:11 -0000	1.14.2.1
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl	24 Oct 2006 10:38:46 -0000	1.14.2.2
@@ -178,7 +178,6 @@
 	    # Unfortunately, we can only calculate the file size after the lob is uploaded 
 	    db_dml lob_size { *SQL* }
 	}
-	
 	foreach party_id [array names grades_gs] {
 	    if { ![info exists comments_gs($party_id)] } {
 		set comments_gs($party_id) ""
@@ -202,8 +201,8 @@
 		content::item::set_live_revision -revision_id $revision_id
 		
 		if { [string eq $new_p_gs($party_id) 0] } {
-		    # if editing the grade, send the notification
-		    evaluation::notification::do_notification -task_id $task_id -evaluation_id $revision_id -package_id [ad_conn package_id] -notif_type one_evaluation_notif
+		    # notify the user if suscribed
+            evaluation::notification::do_notification -task_id $task_id -evaluation_id $revision_id -package_id [ad_conn package_id] -notif_type one_evaluation_notif -subset [list $party_id]
 		}
 		
 	    }
@@ -232,6 +231,8 @@
 				 -show_student_p $show_student_wa($party_id) -grade $grades_wa($party_id) -task_item_id $task_item_id -party_id $party_id]
 	    
 	    content::item::set_live_revision -revision_id $revision_id
+        # notify the user if suscribed
+        evaluation::notification::do_notification -task_id $task_id -evaluation_id $revision_id -package_id [ad_conn package_id] -notif_type one_evaluation_notif -subset [list $party_id]
 	}
     }
 }
@@ -256,6 +257,8 @@
 				 -show_student_p $show_student_na($party_id) -grade $grades_na($party_id) -task_item_id $task_item_id -party_id $party_id]
 	    
 	    content::item::set_live_revision -revision_id $revision_id
+        # notify the user if suscribed
+        evaluation::notification::do_notification -task_id $task_id -evaluation_id $revision_id -package_id [ad_conn package_id] -notif_type one_evaluation_notif -subset [list $party_id]
 	}
     }
 }
@@ -270,8 +273,8 @@
 	    
 	    content::item::set_live_revision -revision_id $revision_id
 
-	    # 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
+	    # notify the user (if suscribed)
+        evaluation::notification::do_notification -task_id $task_id -evaluation_id $revision_id -package_id [ad_conn package_id] -notif_type one_evaluation_notif -subset [list $party_id]
 
 	}
     }