Index: openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-init.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/sql/oracle/Attic/dotlrn-dotlrn-init.sql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-init.sql	9 Oct 2001 03:04:20 -0000	1.1
+++ openacs-4/packages/dotlrn-dotlrn/sql/oracle/dotlrn-dotlrn-init.sql	9 Oct 2001 03:36:13 -0000	1.2
@@ -23,6 +23,15 @@
 
 	-- add all the hooks
 
+	-- GetPrettyName
+	foo := acs_sc_impl.new_alias (
+	       'dotlrn_applet',
+	       'dotlrn_dotlrn',
+	       'GetPrettyName',
+	       'dotlrn_dotlrn::get_pretty_name',
+	       'TCL'
+	);
+
 	-- AddApplet
 	foo := acs_sc_impl.new_alias (
 	       'dotlrn_applet',
@@ -58,6 +67,12 @@
 	       'dotlrn_dotlrn::remove_user',
 	       'TCL'
 	);
+
+	-- Add the binding
+	foo := acs_sc_binding.new (
+	    contract_name => 'dotlrn_applet',
+	    impl_name => 'dotlrn_dotlrn'
+	);
 end;
 /
 show errors