Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v
diff -u -N -r1.76 -r1.77
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	12 Jul 2006 10:21:55 -0000	1.76
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	13 Jul 2006 13:11:43 -0000	1.77
@@ -647,8 +647,9 @@
     
     if { [info exists table_name] } {
         if { [db_0or1row get_related_on_completion_id ""] } {
-            db_1row get_related_resource_id { *SQL* }
-            imsld::grant_permissions -resources_activities_list $related_resource -user_id $user_id
+            if { [db_0or1row get_related_resource_id { *SQL* }] } {
+                imsld::grant_permissions -resources_activities_list $related_resource -user_id $user_id
+            }
         }
     }
     if { [string eq $type "learning"] || [string eq $type "support"] || [string eq $type "structure"] } {