Index: openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	3 Dec 2001 02:51:27 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	3 Dec 2001 11:41:33 -0000	1.4
@@ -18,11 +18,17 @@
 }
 
 # We go through all Applets and make sure they are added.
-# NOTE FROM BEN TO ARJUN: Add code here
-#
-#
 
+# The applet_add proc in the dotlrn_applet contract is for one-time
+# init of each applet NOTE: this applet_add proc _must_ be able to be
+# called repeatedly since this script is eval'd at every server startup
+# - aks
 
+foreach applet [dotlrn_community::list_applets] {
+    # Callback on all applets
+    dotlrn_community::applet_call $applet "AppletAdd" [list]
+}
+
 # We check to see if dotLRN has been installed, and if so, if permissions
 # have been granted