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 -r1.15 -r1.16 --- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl 8 Aug 2006 21:26:42 -0000 1.15 +++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl 24 Oct 2006 10:54:18 -0000 1.16 @@ -202,8 +202,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 + # if editing the grade and suscribed, 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 -subset [list $party_id] } } @@ -232,6 +232,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 +258,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 +274,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] } }