Index: openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	26 Jul 2002 21:15:00 -0000	1.13
+++ openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	26 Jul 2002 23:34:21 -0000	1.14
@@ -116,7 +116,7 @@
     ad_proc -public add_portlet {
         portal_id
     } {
-        set type [dotlrn::dotlrn::get_type_from_portal_id -portal_id $portal_id]
+        set type [dotlrn::get_type_from_portal_id -portal_id $portal_id]
 
         if {![string equal $type user] && ![string equal $type dotlrn_community] && ![string equal $type dotlrn_club]} {
             add_portlet_helper $portal_id