Index: openacs-4/packages/lab-report/sql/postgresql/lab-report-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report/sql/postgresql/lab-report-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lab-report/sql/postgresql/lab-report-create.sql	11 May 2006 11:11:37 -0000	1.1
+++ openacs-4/packages/lab-report/sql/postgresql/lab-report-create.sql	12 May 2006 01:34:34 -0000	1.2
@@ -21,6 +21,35 @@
 
 
 --
+-- Define object types.
+--
+select  acs_object_type__create_type (
+    'lr_report',
+    '#lab-report.report#',
+    '#lab-report.reports#',
+    'acs_object',
+    'lr_report',
+    'report_id',
+    null,
+    'f',
+    null,
+    null
+);
+
+select  acs_object_type__create_type (
+    'lr_section_content',
+    '#lab-report.section_content#',
+    '#lab-report.section_content#',
+    'acs_object',
+    'lr_section_content',
+    'content_id',
+    null,
+    'f',
+    null,
+    null
+);
+
+--
 -- Create tables
 --
 create table lr_author (
@@ -36,7 +65,7 @@
 
 create table lr_author_group (
 	group_id		integer
-				constraint lr_author_group_grou_id_fk
+				constraint lr_author_group_group_id_fk
 				references groups (group_id)
 				constraint lr_author_group_pk
 				primary key,
@@ -45,3 +74,160 @@
 				references apm_packages (package_id)
 				on delete cascade
 );
+
+create table lr_report (
+	report_id		integer
+				constraint lr_report_pk
+				primary key,
+	template_id		integer
+				constraint lr_report_template_id_fk
+				references lrc_template (template_id)
+				on delete cascade,
+	author_id		integer
+				constraint lr_report_author_id_fk
+				references users (user_id)
+				on delete cascade,
+	package_id		integer
+				constraint lr_report_package_id_fk
+				references apm_packages (package_id)
+				on delete cascade
+);
+
+create table lr_section_content (
+	content_id		integer
+				constraint lr_section_content_pk
+				primary key,
+	report_id		integer
+				constraint lr_section_content_report_id_fk
+				references lr_report (report_id)
+				on delete cascade,
+	section_id		integer
+				constraint lr_section_content_section_id_fk
+				references lrc_section (section_id)
+				on delete cascade,
+	content			text
+);
+
+
+--
+-- Create functions
+--
+select define_function_args('lr_report__new','report_id,template_id,author_id,package_id,creation_date;now,creation_user,creation_ip,context_id');
+
+create function lr_report__new (
+	integer,
+	integer,
+	integer,
+	integer,
+	timestamptz,
+	integer,
+	varchar,
+	integer
+) returns integer as '
+declare
+	p_report_id		alias for $1;        	-- default null
+    	p_template_id		alias for $2;
+    	p_author_id	        alias for $3;
+	p_package_id		alias for $4;
+    	p_creation_date         alias for $5;        	-- default now()
+    	p_creation_user         alias for $6;        	-- default null
+    	p_creation_ip           alias for $7;		-- default null
+    	p_context_id            alias for $8;		-- default null
+
+    	v_report_id             lr_report.report_id%TYPE;
+	v_author_group_id	integer;
+begin
+
+    	v_report_id := acs_object__new (
+        	p_report_id,
+        	''lr_report'',
+        	p_creation_date,
+        	p_creation_user,
+        	p_creation_ip,
+        	p_context_id
+    	);
+
+    	INSERT INTO lr_report (
+       		report_id,
+		template_id,
+		author_id,
+	        package_id
+    	) VALUES (
+        	v_report_id,
+		p_template_id,
+		p_author_id,
+        	p_package_id
+    	);
+
+	-- Grant permission to authors on this object.
+    	PERFORM acs_permission__grant_permission(
+          	v_report_id,
+          	p_author_id,
+	        ''lab_report_author''
+    	);
+
+    	return v_report_id;
+
+end;' language 'plpgsql';
+
+
+select define_function_args('lr_section_content__new','content_id,report_id,section_id,content,author_id,package_id,creation_date;now,creation_user,creation_ip,context_id');
+
+create function lr_section_content__new (
+	integer,
+	integer,
+	integer,
+	text,
+	integer,
+	integer,
+	timestamptz,
+	integer,
+	varchar,
+	integer
+) returns integer as '
+declare
+	p_content_id		alias for $1;        	-- default null
+    	p_report_id		alias for $2;
+    	p_section_id	        alias for $3;
+	p_content		alias for $4;
+	p_author_id		alias for $5;
+	p_package_id		alias for $6;
+    	p_creation_date         alias for $7;        	-- default now()
+    	p_creation_user         alias for $8;        	-- default null
+    	p_creation_ip           alias for $9;		-- default null
+    	p_context_id            alias for $10;		-- default null
+
+    	v_content_id             lr_section_content.content_id%TYPE;
+begin
+
+    	v_content_id := acs_object__new (
+        	p_content_id,
+        	''lr_section_content'',
+        	p_creation_date,
+        	p_creation_user,
+        	p_creation_ip,
+        	p_context_id
+    	);
+
+    	INSERT INTO lr_section_content (
+       		content_id,
+		report_id,
+		section_id,
+	        content
+    	) VALUES (
+       		v_content_id,
+		p_report_id,
+		p_section_id,
+	        p_content
+    	);
+
+	-- Grant permission to authors on this object.
+    	PERFORM acs_permission__grant_permission(
+          	v_content_id,
+          	p_author_id,
+	        ''lab_report_author''
+    	);
+
+    	return v_content_id;
+
+end;' language 'plpgsql';