Index: openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql	10 May 2002 06:35:15 -0000	1.8
+++ openacs-4/packages/dotlrn-fs/sql/oracle/dotlrn-fs-create.sql	31 Jul 2002 21:18:33 -0000	1.9
@@ -37,9 +37,6 @@
 		'dotlrn_fs'
 	);
 
-	-- add all the hooks
-
-	-- GetPrettyName
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -48,7 +45,6 @@
 	       'TCL'
 	);
 
-	-- AddApplet
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -57,7 +53,6 @@
 	       'TCL'
 	);
 
-	-- RemoveApplet
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -66,7 +61,6 @@
 	       'TCL'
 	);
 
-	-- AddAppletToCommunity
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -75,7 +69,6 @@
 	       'TCL'
 	);
 
-	-- RemoveAppletFromCommunity
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -84,7 +77,6 @@
 	       'TCL'
 	);
 
-	-- AddUser
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -93,7 +85,6 @@
 	       'TCL'
 	);
 
-	-- RemoveUser
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -102,7 +93,6 @@
 	       'TCL'
 	);
 
-	-- AddUserToCommunity
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -111,7 +101,6 @@
 	       'TCL'
 	);
 
-	-- RemoveUserFromCommunity
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
 	       'dotlrn_fs',
@@ -120,7 +109,6 @@
 	       'TCL'
 	);
 
-    -- AddPortlet
     foo := acs_sc_impl.new_alias (
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_fs',
@@ -129,7 +117,6 @@
         impl_pl => 'TCL'
     );
 
-    -- RemovePortlet
     foo := acs_sc_impl.new_alias (
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_fs',
@@ -138,7 +125,6 @@
         impl_pl => 'TCL'
     );
 
-    -- Clone
     foo := acs_sc_impl.new_alias (
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_fs',
@@ -147,11 +133,18 @@
         impl_pl => 'TCL'
     );
 
-	-- Add the binding
-	acs_sc_binding.new (
-	    contract_name => 'dotlrn_applet',
-	    impl_name => 'dotlrn_fs'
-	);
+    foo := acs_sc_impl.new_alias (
+        impl_contract_name => 'dotlrn_applet',
+        impl_name => 'dotlrn_fs',
+        impl_operation_name => 'ChangeEventHandler',
+        impl_alias => 'dotlrn_fs::change_event_handler',
+        impl_pl => 'TCL'
+    );
+
+    acs_sc_binding.new (
+        contract_name => 'dotlrn_applet',
+        impl_name => 'dotlrn_fs'
+    );
 end;
 /
 show errors