Index: openacs-4/packages/dotlrn/tcl/applets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/applets-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	13 Jul 2002 03:05:24 -0000	1.15
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	31 Jul 2002 21:18:32 -0000	1.16
@@ -130,8 +130,6 @@
     } {
         is the applet specified mounted
     } {
-        ns_log notice "YON: dotlrn_applet::is_applet_mounted applet_key $applet_key"
-        ns_log notice "YON: dotlrn_applet::is_applet_mounted package_key [get_package_key -applet_key $applet_key]"
         if {[apm_package_id_from_key [get_package_key -applet_key $applet_key]] != 0} {
             return 1
         } else {
@@ -169,4 +167,23 @@
         return [db_string select_package_key_from_applet_key {} -default ""]
     }
 
+    ad_proc -public dispatch {
+        {-op:required}
+        {-list_args {}}
+    } {
+        foreach applet [list_applets] {
+            applet_call $applet $op $list_args
+        }
+    }
+
+    ad_proc -public applet_call {
+        applet_key
+        op
+        {list_args {}}
+    } {
+        call a particular applet op
+    } {
+        acs_sc_call dotlrn_applet $op $list_args $applet_key
+    }
+
 }