Index: openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-create.sql	15 May 2002 19:30:42 -0000	1.5
+++ openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-applet-create.sql	26 Jul 2002 21:15:00 -0000	1.6
@@ -23,126 +23,112 @@
 --
 
 declare
-    foo                         integer;
+    foo                             integer;
 begin
 
-    -- create the implementation
-    foo := acs_sc_impl.new (
+    foo := acs_sc_impl.new(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_owner_name => 'dotlrn_research'
     );
 
-    -- GetPrettyName
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'GetPrettyName',
         impl_alias => 'dotlrn_research::get_pretty_name',
         impl_pl => 'TCL'
     );
 
-    -- AddApplet
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'AddApplet',
         impl_alias => 'dotlrn_research::add_applet',
         impl_pl => 'TCL'
     );
 
-    -- RemoveApplet
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'RemoveApplet',
         impl_alias => 'dotlrn_research::remove_applet',
         impl_pl => 'TCL'
     );
 
-    -- AddAppletToCommunity
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'AddAppletToCommunity',
         impl_alias => 'dotlrn_research::add_applet_to_community',
         impl_pl => 'TCL'
     );
 
-    -- RemoveAppletFromCommunity
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'RemoveAppletFromCommunity',
         impl_alias => 'dotlrn_research::remove_applet_from_community',
         impl_pl => 'TCL'
     );
 
-    -- AddUser
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'AddUser',
         impl_alias => 'dotlrn_research::add_user',
         impl_pl => 'TCL'
     );
 
-    -- RemoveUser
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'RemoveUser',
         impl_alias => 'dotlrn_research::remove_user',
         impl_pl => 'TCL'
     );
 
-    -- AddUserToCommunity
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'AddUserToCommunity',
         impl_alias => 'dotlrn_research::add_user_to_community',
         impl_pl => 'TCL'
     );
 
-    -- RemoveUserFromCommunity
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'RemoveUserFromCommunity',
         impl_alias => 'dotlrn_research::remove_user_from_community',
         impl_pl => 'TCL'
     );
 
-    -- AddPortlet
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'AddPortlet',
         impl_alias => 'dotlrn_research::add_portlet',
         impl_pl => 'TCL'
     );
 
-    -- RemovePortlet
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'RemovePortlet',
         impl_alias => 'dotlrn_research::remove_portlet',
         impl_pl => 'TCL'
     );
 
-    -- Clone
-    foo := acs_sc_impl.new_alias (
+    foo := acs_sc_impl.new_alias(
         impl_contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research',
         impl_operation_name => 'Clone',
         impl_alias => 'dotlrn_research::clone',
         impl_pl => 'TCL'
     );
 
-    -- Add the binding
-    acs_sc_binding.new (
+    acs_sc_binding.new(
         contract_name => 'dotlrn_applet',
         impl_name => 'dotlrn_research'
     );