Index: openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	29 Sep 2017 13:54:16 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	27 Jan 2018 17:58:19 -0000	1.7
@@ -36,7 +36,7 @@
     ns_log Notice $msg
     set result [list $msg]
     
-    set from_rel_ids [db_list_of_lists get_from_rel_ids { *SQL* } ]	    
+    set from_rel_ids [db_list_of_lists get_from_rel_ids {} ]	    
     
     foreach rel $from_rel_ids {
 	set l_rel_id [lindex $rel 0]
@@ -76,7 +76,7 @@
 	# select the communities where from_user_id belongs to and
 	# to_user_id does not belong.
 
-	set from_rel_ids [db_list_of_lists get_from_rel_ids { *SQL* } ]	    
+	set from_rel_ids [db_list_of_lists get_from_rel_ids {} ]	    
 
 	foreach rel $from_rel_ids {
 	    set l_rel_id [lindex $rel 0]
@@ -175,7 +175,7 @@
 } {
     
     
-    db_1row get_community_id { }
+    db_1row get_community_id {}
     
     
     dotlrn_privacy::set_user_guest_p -user_id $party_id -value "t"