Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-classes-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-classes-create.sql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-classes-create.sql	1 Dec 2001 23:16:27 -0000	1.10
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-classes-create.sql	11 Dec 2001 00:45:15 -0000	1.11
@@ -1,61 +1,82 @@
-
 --
 -- The DotLRN basic system
 -- copyright 2001, OpenForce, Inc.
 -- distributed under the GNU GPL v2
 --
 -- for Oracle 8/8i. (We're guessing 9i works, too).
 --
--- ben@openforce.net
--- started August 18th, 2001
+-- @author Ben Adida (ben@openforce.net)
+-- @author yon (yon@openforce.net)
+-- @creation-date 2001-08-18
+-- @version $Id$
 --
 
 create table dotlrn_classes (
-       class_key		    constraint dotlrn_class_class_key_fk
-				    references dotlrn_community_types(community_type)
-				    constraint dotlrn_class_class_key_pk
-				    primary key
+       class_key                    constraint dotlrn_class_class_key_fk
+                                    references dotlrn_community_types(community_type)
+                                    constraint dotlrn_class_class_key_pk
+                                    primary key
 );
 
-create view dotlrn_classes_full as select class_key, pretty_name, description, package_id, supertype from dotlrn_classes, dotlrn_community_types where dotlrn_community_types.community_type=dotlrn_classes.class_key;
+create or replace view dotlrn_classes_full
+as
+    select class_key,
+           pretty_name,
+           description,
+           package_id,
+           supertype
+    from dotlrn_classes,
+         dotlrn_community_types
+    where dotlrn_classes.class_key = dotlrn_community_types.community_type;
 
 create table dotlrn_class_instances (
-       class_instance_id	    constraint dotlrn_class_i_id_fk
-				    references dotlrn_communities(community_id)
-				    constraint dotlrn_class_i_id_pk
-				    primary key,
-       class_key		    constraint dotlrn_class_i_class_key_fk
-				    references dotlrn_classes(class_key),
-       year			    varchar(10),
-       term			    varchar(20)
+       class_instance_id            constraint dotlrn_class_i_id_fk
+                                    references dotlrn_communities(community_id)
+                                    constraint dotlrn_class_i_id_pk
+                                    primary key,
+       class_key                    constraint dotlrn_class_i_class_key_fk
+                                    references dotlrn_classes(class_key),
+       year                         varchar(10),
+       term                         varchar(20)
 );
 
-create view dotlrn_class_instances_full as select class_instance_id, class_key, year, term, community_key, pretty_name, description, portal_template_id, package_id from dotlrn_class_instances, dotlrn_communities where dotlrn_class_instances.class_instance_id = dotlrn_communities.community_id;
+create or replace view dotlrn_class_instances_full
+as
+    select class_instance_id,
+           class_key,
+           year,
+           term,
+           community_key,
+           pretty_name,
+           description,
+           portal_template_id,
+           package_id
+    from dotlrn_class_instances,
+         dotlrn_communities
+    where dotlrn_class_instances.class_instance_id = dotlrn_communities.community_id;
 
-
-
 -- 
 -- PL/SQL stuff
 --
 
 create or replace package dotlrn_class
 is
  function new (
-   class_key		in dotlrn_classes.class_key%TYPE,
-   pretty_name		in dotlrn_communities.pretty_name%TYPE,
-   pretty_plural	in dotlrn_community_types.pretty_name%TYPE default null,
-   description		in dotlrn_community_types.description%TYPE,
-   package_id		in dotlrn_community_types.package_id%TYPE default null,
+   class_key                in dotlrn_classes.class_key%TYPE,
+   pretty_name                in dotlrn_communities.pretty_name%TYPE,
+   pretty_plural        in dotlrn_community_types.pretty_name%TYPE default null,
+   description                in dotlrn_community_types.description%TYPE,
+   package_id                in dotlrn_community_types.package_id%TYPE default null,
    creation_date        in acs_objects.creation_date%TYPE
                            default sysdate,
    creation_user        in acs_objects.creation_user%TYPE
                            default null,
    creation_ip          in acs_objects.creation_ip%TYPE default null,
-   context_id		in acs_objects.context_id%TYPE default null
+   context_id                in acs_objects.context_id%TYPE default null
  ) return dotlrn_classes.class_key%TYPE;
 
  procedure delete (
-   class_key		in dotlrn_classes.class_key%TYPE
+   class_key                in dotlrn_classes.class_key%TYPE
  );
 
 end;
@@ -67,32 +88,32 @@
 create or replace package body dotlrn_class
 is
  function new (
-   class_key		in dotlrn_classes.class_key%TYPE,
-   pretty_name		in dotlrn_communities.pretty_name%TYPE,
-   pretty_plural	in dotlrn_community_types.pretty_name%TYPE default null,
-   description		in dotlrn_community_types.description%TYPE,
-   package_id		in dotlrn_community_types.package_id%TYPE default null,
+   class_key                in dotlrn_classes.class_key%TYPE,
+   pretty_name                in dotlrn_communities.pretty_name%TYPE,
+   pretty_plural        in dotlrn_community_types.pretty_name%TYPE default null,
+   description                in dotlrn_community_types.description%TYPE,
+   package_id                in dotlrn_community_types.package_id%TYPE default null,
    creation_date        in acs_objects.creation_date%TYPE
                            default sysdate,
    creation_user        in acs_objects.creation_user%TYPE
                            default null,
    creation_ip          in acs_objects.creation_ip%TYPE default null,
-   context_id		in acs_objects.context_id%TYPE default null
+   context_id                in acs_objects.context_id%TYPE default null
  ) return dotlrn_classes.class_key%TYPE
  is
    v_class_key dotlrn_classes.class_key%TYPE;
  begin
    v_class_key := dotlrn_community_type.new (
-	community_type => class_key,
-	parent_type => 'dotlrn_class',
-	pretty_name => pretty_name,
-	pretty_plural => pretty_plural,
-	description => description,
-	package_id => package_id,
-	creation_date => creation_date,
-	creation_user => creation_user,
-	creation_ip => creation_ip,
-	context_id => context_id
+        community_type => class_key,
+        parent_type => 'dotlrn_class',
+        pretty_name => pretty_name,
+        pretty_plural => pretty_plural,
+        description => description,
+        package_id => package_id,
+        creation_date => creation_date,
+        creation_user => creation_user,
+        creation_ip => creation_ip,
+        context_id => context_id
    );
 
    insert into dotlrn_classes
@@ -102,7 +123,7 @@
  end;
 
  procedure delete (
-   class_key		in dotlrn_classes.class_key%TYPE
+   class_key                in dotlrn_classes.class_key%TYPE
  )
  is
  begin
@@ -119,26 +140,27 @@
 create or replace package dotlrn_class_instance
 is
   function new (
-    class_instance_id		in dotlrn_class_instances.class_instance_id%TYPE default null,
-    class_key			in dotlrn_class_instances.class_key%TYPE,
-    year			in dotlrn_class_instances.year%TYPE,
-    term			in dotlrn_class_instances.term%TYPE,
-    community_key		in dotlrn_communities.community_key%TYPE,
-    pretty_name			in dotlrn_communities.pretty_name%TYPE,
-    description			in dotlrn_communities.description%TYPE,
-    package_id			in dotlrn_communities.package_id%TYPE default null,
-    portal_id			in dotlrn_communities.portal_id%TYPE default null,
-    portal_template_id		in dotlrn_communities.portal_template_id%TYPE default null,
-    creation_date		in acs_objects.creation_date%TYPE
-				default sysdate,
-    creation_user		in acs_objects.creation_user%TYPE
-				default null,
-    creation_ip			in acs_objects.creation_ip%TYPE default null,
-    context_id			in acs_objects.context_id%TYPE default null
+    class_instance_id                in dotlrn_class_instances.class_instance_id%TYPE default null,
+    class_key                        in dotlrn_class_instances.class_key%TYPE,
+    year                        in dotlrn_class_instances.year%TYPE,
+    term                        in dotlrn_class_instances.term%TYPE,
+    community_key                in dotlrn_communities.community_key%TYPE,
+    pretty_name                        in dotlrn_communities.pretty_name%TYPE,
+    description                        in dotlrn_communities.description%TYPE,
+    package_id                        in dotlrn_communities.package_id%TYPE default null,
+    portal_id                        in dotlrn_communities.portal_id%TYPE default null,
+    portal_template_id                in dotlrn_communities.portal_template_id%TYPE default null,
+    join_policy in groups.join_policy%TYPE default null,
+    creation_date                in acs_objects.creation_date%TYPE
+                                default sysdate,
+    creation_user                in acs_objects.creation_user%TYPE
+                                default null,
+    creation_ip                        in acs_objects.creation_ip%TYPE default null,
+    context_id                        in acs_objects.context_id%TYPE default null
   ) return dotlrn_class_instances.class_instance_id%TYPE;
 
   procedure delete (
-    class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE
+    class_instance_id        in dotlrn_class_instances.class_instance_id%TYPE
   ); 
 end;
 /
@@ -148,51 +170,53 @@
 create or replace package body dotlrn_class_instance
 is
   function new (
-    class_instance_id		in dotlrn_class_instances.class_instance_id%TYPE default null,
-    class_key			in dotlrn_class_instances.class_key%TYPE,
-    year			in dotlrn_class_instances.year%TYPE,
-    term			in dotlrn_class_instances.term%TYPE,
-    community_key		in dotlrn_communities.community_key%TYPE,
-    pretty_name			in dotlrn_communities.pretty_name%TYPE,
-    description			in dotlrn_communities.description%TYPE,
-    package_id			in dotlrn_communities.package_id%TYPE default null,
-    portal_id			in dotlrn_communities.portal_id%TYPE default null,
-    portal_template_id		in dotlrn_communities.portal_template_id%TYPE default null,
-    creation_date		in acs_objects.creation_date%TYPE
-				default sysdate,
-    creation_user		in acs_objects.creation_user%TYPE
-				default null,
-    creation_ip			in acs_objects.creation_ip%TYPE default null,
-    context_id			in acs_objects.context_id%TYPE default null
+    class_instance_id                in dotlrn_class_instances.class_instance_id%TYPE default null,
+    class_key                        in dotlrn_class_instances.class_key%TYPE,
+    year                        in dotlrn_class_instances.year%TYPE,
+    term                        in dotlrn_class_instances.term%TYPE,
+    community_key                in dotlrn_communities.community_key%TYPE,
+    pretty_name                        in dotlrn_communities.pretty_name%TYPE,
+    description                        in dotlrn_communities.description%TYPE,
+    package_id                        in dotlrn_communities.package_id%TYPE default null,
+    portal_id                        in dotlrn_communities.portal_id%TYPE default null,
+    portal_template_id                in dotlrn_communities.portal_template_id%TYPE default null,
+    join_policy in groups.join_policy%TYPE default null,
+    creation_date                in acs_objects.creation_date%TYPE
+                                default sysdate,
+    creation_user                in acs_objects.creation_user%TYPE
+                                default null,
+    creation_ip                        in acs_objects.creation_ip%TYPE default null,
+    context_id                        in acs_objects.context_id%TYPE default null
   ) return dotlrn_class_instances.class_instance_id%TYPE
   is
     v_class_instance_id dotlrn_class_instances.class_instance_id%TYPE;
   begin
      v_class_instance_id := dotlrn_community.new (
- 	community_id => class_instance_id,
- 	community_type => class_key,
- 	community_key => community_key,
- 	pretty_name => pretty_name,
- 	description => description,
- 	package_id => package_id,
-	portal_id => portal_id,
-	portal_template_id => portal_template_id,
- 	creation_date => creation_date,
- 	creation_user => creation_user,
- 	creation_ip => creation_ip,
- 	context_id => context_id
+         community_id => class_instance_id,
+         community_type => class_key,
+         community_key => community_key,
+         pretty_name => pretty_name,
+         description => description,
+         package_id => package_id,
+        portal_id => portal_id,
+        portal_template_id => portal_template_id,
+         join_policy => join_policy,
+         creation_date => creation_date,
+         creation_user => creation_user,
+         creation_ip => creation_ip,
+         context_id => context_id
      );
 
     insert into dotlrn_class_instances
     (class_instance_id, class_key, year, term)
     values
     (v_class_instance_id, class_key, year, term);
-  
+
     return v_class_instance_id;
   end;
 
   procedure delete (
-    class_instance_id	in dotlrn_class_instances.class_instance_id%TYPE
+    class_instance_id        in dotlrn_class_instances.class_instance_id%TYPE
   )
   is
   begin
@@ -201,8 +225,6 @@
 
     dotlrn_community.delete(community_id => class_instance_id);
   end;
-
 end;
 /
 show errors
-