Index: openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-create.sql	25 Feb 2002 22:13:00 -0000	1.1
+++ openacs-4/packages/dotlrn-research/sql/oracle/dotlrn-research-create.sql	5 Mar 2002 00:41:01 -0000	1.2
@@ -1,100 +1,24 @@
 --
--- Creates the research paper module dotLRN applet
+-- Creates the dotLRN research paper module
 --
 -- @author yon (yon@openforce.net)
 -- @creation-date 2002-02-24
 -- @version $Id$
 --
 
-@@ research-portlet-create.sql;
+create table dotlrn_research_papers (
+    community_id                constraint dotlrn_rp_community_id_fk
+                                references dotlrn_communities (community_id)
+                                constraint dotlrn_rp_community_id_nn
+                                not null,
+    file_id                     constraint dotlrn_rp_file_id_fk
+                                references cr_revisions (revision_id)
+                                constraint dotlrn_rp_file_id_nn
+                                not null,
+    constraint dotlrn_research_papers_pk
+    primary key (community_id, file_id)
+);
 
-declare
-    foo                         integer;
-begin
-    -- create the implementation
-    foo := acs_sc_impl.new (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'dotlrn_research'
-    );
-
-    -- GetPrettyName
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'GetPrettyName',
-        'dotlrn_research::get_pretty_name',
-        'TCL'
-    );
-
-    -- AddApplet
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'AddApplet',
-        'dotlrn_research::add_applet',
-        'TCL'
-    );
-
-    -- AddAppletToCommunity
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'AddAppletToCommunity',
-        'dotlrn_research::add_applet_to_community',
-        'TCL'
-    );
-
-    -- RemoveApplet
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'RemoveApplet',
-        'dotlrn_research::remove_applet',
-        'TCL'
-    );
-
-    -- AddUser
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'AddUser',
-        'dotlrn_research::add_user',
-        'TCL'
-    );
-
-    -- AddUserToCommunity
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'AddUserToCommunity',
-        'dotlrn_research::add_user_to_community',
-        'TCL'
-    );
-
-    -- RemoveUser
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'RemoveUser',
-        'dotlrn_research::remove_user',
-        'TCL'
-    );
-
-    -- RemoveUserFromCommunity
-    foo := acs_sc_impl.new_alias (
-        'dotlrn_applet',
-        'dotlrn_research',
-        'RemoveUserFromCommunity',
-        'dotlrn_research::remove_user_from_community',
-        'TCL'
-    );
-
-    -- Add the binding
-    acs_sc_binding.new (
-        contract_name => 'dotlrn_applet',
-        impl_name => 'dotlrn_research'
-    );
-end;
-/
-show errors
+@@ research-portlet-create.sql;
+@@ research-admin-portlet-create.sql;
+@@ dotlrn-research-applet-create.sql