Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -N -r1.39 -r1.40
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	11 Mar 2008 17:10:20 -0000	1.39
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	14 Mar 2008 16:11:33 -0000	1.40
@@ -17,14 +17,19 @@
 #####
 
 ad_proc -public evaluation::notification::get_url { 
-    -task_id:required
-    -notif_type:required
+    {-task_id ""}
+    {-notif_type ""}
     {-evaluation_id ""}
+    {object_id ""}
 } { 
     returns a full url to the object_id. 
     handles assignments and evaluations. 
 } {  
     
+    if {[exists_and_not_null object_id]} {
+        return "[ad_url][apm_package_url_from_id $object_id]"
+    }
+
     set base_url "[ad_url][ad_conn package_url]" 
     switch $notif_type {
 	"one_assignment_notif" {