Index: openacs-4/packages/lab-report-central/lab-report-central.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/lab-report-central.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/lab-report-central.info 24 Apr 2006 11:27:02 -0000 1.1 @@ -0,0 +1,28 @@ + + + + + Lab Report Central + Lab Report Centrals + f + t + lrc + + + Nick Carroll + Lab Report Central is the administrative/management component of the Lab Report application. + Lab Report Central allows instructors to create templates for Lab Reports that students should use in their personal Lab Report application. Lab Report Central also handles submissions of student lab reports, and facilitates grading and feedback by instructors. + 0 + + + + + + + + + + + + + Index: openacs-4/packages/lab-report-central/catalog/lab-report-central.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/catalog/lab-report-central.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/catalog/lab-report-central.en_US.ISO-8859-1.xml 24 Apr 2006 11:27:03 -0000 1.1 @@ -0,0 +1,54 @@ + + + + Add Instructor + Add instructor to list + Add Lab + Add Template + Add template to list + Admin + Create Lab + Create Report Template + Create Template + Delete + Description + Edit + Edit Lab + Enter lab description. + Enter the last day of the lab. + Enter name for lab. + Enter start date for the lab. + Enter a description for the report template. + Enter a name for the report template. + Select "Search" then click on OK to search for a user, otherwise select a user from the list. + Select a lab instructor from the list. + Instructor + Instructors + Lab + Lab Duration + End Date + Lab Report Templates + Start Date + Labs + Name + No instructors have been created. + No lab report templates have been added. + No lab report templates have been created. + No labs have been created. + No report templates have been created. + No templates have been created. + Remove instructor + Remove report template. + Report Sections + Report Templates + Section + Sections + Template + Template Sections + Templates + to + View + Continue with deleting the instructor? + Continue with deleting the lab? + Continue with removing the report template? + Index: openacs-4/packages/lab-report-central/sql/postgresql/lab-report-central-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/sql/postgresql/lab-report-central-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/sql/postgresql/lab-report-central-create.sql 24 Apr 2006 11:27:03 -0000 1.1 @@ -0,0 +1,387 @@ +-- $Id: lab-report-central-create.sql,v 1.1 2006/04/24 11:27:03 ncarroll Exp $ + +-- +-- Create some privileges. +-- +begin; + select acs_privilege__create_privilege('lab_report_central_admin', null, null); + select acs_privilege__create_privilege('lab_report_central_admin_create', null, null); + select acs_privilege__create_privilege('lab_report_central_admin_modify', null, null); + select acs_privilege__create_privilege('lab_report_central_admin_delete', null, null); + select acs_privilege__create_privilege('lab_report_central_write', null, null); + select acs_privilege__create_privilege('lab_report_central_read', null, null); +end; + +-- +-- Define hierarchy of privileges. +-- +begin; + select acs_privilege__add_child('lab_report_central_admin','lab_report_central_admin_create'); + select acs_privilege__add_child('lab_report_central_admin','lab_report_central_admin_modify'); + select acs_privilege__add_child('lab_report_central_admin','lab_report_central_admin_delete'); + select acs_privilege__add_child('admin','lab_report_central_admin'); + select acs_privilege__add_child('read','lab_report_central_read'); + select acs_privilege__add_child('write','lab_report_central_write'); +end; + + +-- +-- Define object types. +-- +select acs_object_type__create_type ( + 'lrc_lab', + '#lab-report-central.lab#', + '#lab-report-central.labs#', + 'acs_object', + 'lrc_lab', + 'lab_id', + null, + 'f', + null, + null + ); + +select acs_object_type__create_type ( + 'lrc_template', + '#lab-report-central.template#', + '#lab-report-central.templates#', + 'acs_object', + 'lrc_template', + 'template_id', + null, + 'f', + null, + null + ); + +select acs_object_type__create_type ( + 'lrc_section', + '#lab-report-central.section#', + '#lab-report-central.sections#', + 'acs_object', + 'lrc_section', + 'section_id', + null, + 'f', + null, + null + ); + +-- +-- Create tables +-- +create table lrc_lab ( + lab_id integer + constraint lrc_lab_lab_id_fk + references acs_objects (object_id) + constraint lrc_lab_pk + primary key, + name varchar (5120) + constraint lrc_lab_name_nn + not null, + description text, + instructor_id integer + constraint lrc_lab_instructor_id_fk + references users(user_id), + start_date timestamptz, + end_date timestamptz, + package_id integer + constraint lrc_lab_package_id_fk + references apm_packages (package_id) + on delete cascade +); + +create table lrc_template ( + template_id integer + constraint lrc_template_template_id_fk + references acs_objects (object_id) + constraint lrc_template_pk + primary key, + name varchar (5120) + constraint lrc_template_name_nn + not null, + description text, + package_id integer + constraint lrc_template_package_id_fk + references apm_packages (package_id) + on delete cascade +); + +create table lrc_section ( + section_id integer + constraint lrc_section_section_id_fk + references acs_objects (object_id) + constraint lrc_section_pk + primary key, + name varchar (5120) + constraint lrc_section_name_nn + not null, + description text, + package_id integer + constraint lrc_section_package_id_fk + references apm_packages (package_id) + on delete cascade +); + +create table lrc_groups ( + magic_name varchar(512) + constraint lrc_groups_name_nn + not null, + group_id integer + constraint lrc_groups_group_id_nn + not null + constraint lrc_groups_group_id_fk + references groups (group_id) + on delete cascade +); + +create table lrc_template_section_map ( + template_id integer + constraint lrc_ts_map_template_id_fk + references lrc_template (template_id) + on delete cascade, + section_id integer + constraint lrc_ts_map_section_id_fk + references lrc_section (section_id) + on delete cascade +); + +-- +-- Create functions +-- +select define_function_args('lrc_lab__new','lab_id,name,description,instructor_id,start_date,end_date,package_id,creation_date;now,creation_user,creation_ip,context_id'); + +create function lrc_lab__new ( + integer, + varchar, + text, + integer, + timestamptz, + timestamptz, + integer, + timestamptz, + integer, + varchar, + integer +) returns integer as ' +declare + p_lab_id alias for $1; -- default null + p_name alias for $2; + p_description alias for $3; + p_instructor_id alias for $4; + p_start_date alias for $5; + p_end_date alias for $6; + p_package_id alias for $7; + p_creation_date alias for $8; -- default now() + p_creation_user alias for $9; -- default null + p_creation_ip alias for $10; -- default null + p_context_id alias for $11; -- default null + + v_lab_id lrc_lab.lab_id%TYPE; + v_inst_group_id integer; +begin + + v_lab_id := acs_object__new ( + p_lab_id, + ''lrc_lab'', + p_creation_date, + p_creation_user, + p_creation_ip, + p_context_id + ); + + INSERT INTO lrc_lab ( + lab_id, + name, + description, + instructor_id, + start_date, + end_date, + package_id + ) VALUES ( + v_lab_id, + p_name, + p_description, + p_instructor_id, + p_start_date, + p_end_date, + p_package_id + ); + + SELECT group_id into v_inst_group_id + FROM lrc_groups + WHERE magic_name = ''instructors''; + + -- Grant permissions to instructors on this object. + PERFORM acs_permission__grant_permission( + v_lab_id, + v_inst_group_id, + ''lab_report_central_read'' + ); + + PERFORM acs_permission__grant_permission( + v_lab_id, + v_inst_group_id, + ''lab_report_central_write'' + ); + + PERFORM acs_permission__grant_permission( + v_lab_id, + v_inst_group_id, + ''lab_report_central_admin'' + ); + + return v_lab_id; + +end;' language 'plpgsql'; + + +select define_function_args('lrc_lab__del','lab_id'); + +create function lrc_lab__del (integer) +returns integer as ' +declare + p_lab_id alias for $1; +begin + DELETE FROM acs_permissions + WHERE object_id = p_lab_id; + + DELETE FROM lrc_lab + WHERE lab_id = p_lab_id; + + raise NOTICE ''Deleting degree...''; + PERFORM acs_object__delete(p_lab_id); + + return 0; + +end;' language 'plpgsql'; + + +select define_function_args('lrc_lab__name','lab_id'); + +create function lrc_lab__name (integer) +returns varchar as ' +declare + p_lab_id alias for $1; + v_lab_name lrc_lab.name%TYPE; +begin + SELECT name INTO v_lab_name + FROM lrc_lab + WHERE lab_id = p_lab_id; + + return v_lab_name; +end; +' language 'plpgsql'; + + +select define_function_args('lrc_template__new','template_id,name,description,package_id,creation_date;now,creation_user,creation_ip,context_id'); + +create function lrc_template__new ( + integer, + varchar, + text, + integer, + timestamptz, + integer, + varchar, + integer +) returns integer as ' +declare + p_template_id alias for $1; -- default null + p_name alias for $2; + p_description 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_template_id lrc_template.template_id%TYPE; + v_inst_group_id integer; +begin + + v_template_id := acs_object__new ( + p_template_id, + ''lrc_template'', + p_creation_date, + p_creation_user, + p_creation_ip, + p_context_id + ); + + INSERT INTO lrc_template ( + template_id, + name, + description, + package_id + ) VALUES ( + v_template_id, + p_name, + p_description, + p_package_id + ); + + SELECT group_id into v_inst_group_id + FROM lrc_groups + WHERE magic_name = ''instructors''; + + -- Grant permissions to instructors on this object. + PERFORM acs_permission__grant_permission( + v_template_id, + v_inst_group_id, + ''lab_report_central_read'' + ); + + PERFORM acs_permission__grant_permission( + v_template_id, + v_inst_group_id, + ''lab_report_central_write'' + ); + + PERFORM acs_permission__grant_permission( + v_template_id, + v_inst_group_id, + ''lab_report_central_admin'' + ); + + return v_template_id; + +end;' language 'plpgsql'; + + +select define_function_args('lrc_template__del','template_id'); + +create function lrc_template__del (integer) +returns integer as ' +declare + p_template_id alias for $1; +begin + DELETE FROM acs_permissions + WHERE object_id = p_template_id; + + DELETE FROM lrc_template + WHERE template_id = p_template_id; + + raise NOTICE ''Deleting template...''; + PERFORM acs_object__delete(p_template_id); + + return 0; + +end;' language 'plpgsql'; + + +select define_function_args('lrc_template__name','template_id'); + +create function lrc_template__name (integer) +returns varchar as ' +declare + p_template_id alias for $1; + v_template_name lrc_template.name%TYPE; +begin + SELECT name INTO v_template_name + FROM lrc_template + WHERE template_id = p_template_id; + + return v_template_name; +end; +' language 'plpgsql'; Index: openacs-4/packages/lab-report-central/sql/postgresql/lab-report-central-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/sql/postgresql/lab-report-central-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/sql/postgresql/lab-report-central-drop.sql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,73 @@ +-- $Id: lab-report-central-drop.sql,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ + +-- +-- Drop hierarchy of privileges. +-- +select acs_privilege__remove_child('lab_report_central_admin','lab_report_central_admin_create'); +select acs_privilege__remove_child('lab_report_central_admin','lab_report_central_admin_modify'); +select acs_privilege__remove_child('lab_report_central_admin','lab_report_central_admin_delete'); +select acs_privilege__remove_child('admin','lab_report_central_admin'); +select acs_privilege__remove_child('read','lab_report_central_read'); +select acs_privilege__remove_child('write','lab_report_central_write'); + +-- +-- Drop privileges. +-- +select acs_privilege__drop_privilege('lab_report_central_admin'); +select acs_privilege__drop_privilege('lab_report_central_admin_create'); +select acs_privilege__drop_privilege('lab_report_central_admin_modify'); +select acs_privilege__drop_privilege('lab_report_central_admin_delete'); +select acs_privilege__drop_privilege('lab_report_central_write'); +select acs_privilege__drop_privilege('lab_report_central_read'); + +-- +-- Drop functions +-- +drop function lrc_lab__name (integer); +drop function lrc_lab__del (integer); +drop function lrc_lab__new ( + integer, + varchar, + text, + integer, + timestamptz, + timestamptz, + integer, + timestamptz, + integer, + varchar, + integer +); + +drop function lrc_template__name (integer); +drop function lrc_template__del (integer); +drop function lrc_template__new ( + integer, + varchar, + text, + integer, + timestamptz, + integer, + varchar, + integer +); + +-- +-- Drop tables +-- +drop table lrc_lab; +drop table lrc_section; +drop table lrc_template; +drop table lrc_groups; +drop table lrc_template_section_map; + +delete from acs_objects where object_type='lrc_lab'; +delete from acs_objects where object_type='lrc_template'; +delete from acs_objects where object_type='lrc_section'; + +-- +-- Drop object types. +-- +select acs_object_type__drop_type ('lrc_lab', 'f'); +select acs_object_type__drop_type ('lrc_template', 'f'); +select acs_object_type__drop_type ('lrc_section', 'f'); Index: openacs-4/packages/lab-report-central/tcl/install-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/tcl/install-procs-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/tcl/install-procs-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,12 @@ + + + + postgresql7.4 + + + + INSERT INTO lrc_groups (magic_name, group_id) VALUES (:magic_name, :group_id) + + + + Index: openacs-4/packages/lab-report-central/tcl/install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/tcl/install-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/tcl/install-procs.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,31 @@ +ad_library { + + Lab Report Central Install library + + Procedures that deal with installing, instantiating, mounting. + + @creation-date 2006-04-17 + @author Nick Carroll + @cvs-id $Id: install-procs.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} + + +namespace eval lab_report_central::install {} + +ad_proc -private lab_report_central::install::package_install {} { + Package installation callback proc +} { + db_transaction { + lab_report_central::install::create_instructor_group + } +} + +ad_proc -private lab_report_central::install::create_instructor_group {} { + Creates the lab group types. +} { + set magic_name "instructors" + set group_id [group::new -group_name "[_ lab-report-central.instructor]"] + + db_dml insert {} +} + Index: openacs-4/packages/lab-report-central/tcl/lab-report-central-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/tcl/lab-report-central-procs-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/tcl/lab-report-central-procs-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,81 @@ + + + + postgresql7.4 + + + + select distinct u.first_names || ' ' || u.last_name || ' (' || u.email || ')' as name, u.user_id + from cc_users u + where lower(coalesce(u.first_names || ' ', '') || + coalesce(u.last_name || ' ', '') || + u.email || ' ' || + coalesce(u.screen_name, '')) like lower('%'||:value||'%') + AND u.user_id NOT IN ( + SELECT user_id + FROM cc_users u, lrc_groups g, group_member_map m + WHERE u.user_id = m.member_id + AND m.group_id = g.group_id + AND g.magic_name = 'instructors' + ) + ORDER by name + + + + + + select distinct u.first_names || ' ' || u.last_name || ' (' || u.email || ')' as name, u.user_id + from cc_users u + where lower(coalesce(u.first_names || ' ', '') || + coalesce(u.last_name || ' ', '') || + u.email || ' ' || + coalesce(u.screen_name, '')) like lower('%'||:value||'%') + AND u.user_id IN ( + SELECT user_id + FROM cc_users u, lrc_groups g, group_member_map m + WHERE u.user_id = m.member_id + AND m.group_id = g.group_id + AND g.magic_name = 'instructors' + ) + ORDER by name + + + + + + SELECT distinct u.last_name || ', ' || u.first_names || ' (' || u.email || ')' AS name, + u.user_id + FROM cc_users u + WHERE u.user_id NOT IN ( + SELECT user_id + FROM cc_users u, lrc_groups g, group_member_map m + WHERE u.user_id = m.member_id + AND m.group_id = g.group_id + AND g.magic_name = 'instructors' + ) + + + + + + SELECT distinct u.last_name || ', ' || u.first_names || ' (' || u.email || ')' AS name, + u.user_id + FROM cc_users u + WHERE u.user_id IN ( + SELECT user_id + FROM cc_users u, lrc_groups g, group_member_map m + WHERE u.user_id = m.member_id + AND m.group_id = g.group_id + AND g.magic_name = 'instructors' + ) + + + + + + SELECT group_id FROM lrc_groups WHERE magic_name = 'instructors' + LIMIT 1 + + + + Index: openacs-4/packages/lab-report-central/tcl/lab-report-central-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/tcl/lab-report-central-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/tcl/lab-report-central-procs.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,35 @@ +ad_library { + + Lab Report Central library + + @creation-date 2006-04-17 + @author Nick Carroll + @cvs-id $Id: lab-report-central-procs.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} + + +namespace eval lab_report_central {} + +ad_proc lab_report_central::non_instructors_get_options {} { + Retrieves an options list of users that aren't instructors.. +} { + set users_list [db_list_of_lists non_instructors {}] + set users_list [concat [list [list Search ":search:"]] $users_list] + + return $users_list +} + +ad_proc lab_report_central::instructors_get_options {} { + Retrieves an options list of users that are instructors.. +} { + set users_list [db_list_of_lists instructors {}] + set users_list [concat [list [list Search ":search:"]] $users_list] + + return $users_list +} + +ad_proc lab_report_central::instructor_group_id {} { + Retrieves the instructor group_id. +} { + return [db_string instructor_group {} -default ""] +} Index: openacs-4/packages/lab-report-central/www/index-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/index-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/index-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,16 @@ + + + + postgresql7.4 + + + + SELECT lab_id, name, start_date, end_date, + to_char(start_date, 'YYYY') AS year + FROM lrc_lab + WHERE package_id = :package_id + ORDER BY year DESC, name ASC + + + + Index: openacs-4/packages/lab-report-central/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/index.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/index.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,36 @@ + +[#lab-report-central.admin#] + + + + +
+ + + + + + + +
+ + +#lab-report-central.no_labs_created# + Index: openacs-4/packages/lab-report-central/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/index.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,30 @@ +ad_page_contract { + Admin page. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2006-04-17 + @cvs-id $Id: index.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_conn user_id] + +db_multirow -extend { view_url edit_url delete_url } labs labs {} { + set view_url [export_vars -url -base lab { lab_id }] + set edit_url [export_vars -url -base lab-ae { lab_id }] + set delete_url [export_vars -url -base lab-del { lab_id }] +} + +set create_p [permission::permission_p -party_id $user_id \ + -object_id $package_id \ + -privilege lab_report_central_admin_create] + +set delete_p [permission::permission_p -party_id $user_id \ + -object_id $package_id \ + -privilege lab_report_central_admin_delete] + +set modify_p [permission::permission_p -party_id $user_id \ + -object_id $package_id \ + -privilege lab_report_central_admin_modify] + +ad_return_template Index: openacs-4/packages/lab-report-central/www/lab-ae-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/lab-ae-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/lab-ae-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,46 @@ + + + + postgresql7.4 + + + + SELECT lrc_lab__new ( + NULL, + :name, + :description, + :instructor_id, + $start_date, + $end_date, + :package_id, + now(), + :user_id, + :peeraddr, + :package_id + ) + + + + + + UPDATE lrc_lab + SET name = :name, + description = :description, + instructor_id = :instructor_id, + start_date = :start_date, + end_date = :end_date + WHERE lab_id = :lab_id + + + + + + UPDATE acs_objects + SET modifying_user = :modifying_user, + modifying_ip = :modifying_ip, + package_id = :package_id + WHERE object_id = :lab_id + + + + Index: openacs-4/packages/lab-report-central/www/lab-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/lab-ae.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/lab-ae.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,6 @@ + +@page_title;noquote@ +@context;noquote@ +lab.name + + Index: openacs-4/packages/lab-report-central/www/lab-ae.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/lab-ae.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/lab-ae.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,81 @@ +ad_page_contract { + Add/Edit a lab. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2006-04-18 + @cvs-id $Id: lab-ae.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + lab_id:integer,optional + {return_url "."} +} + +auth::require_login + +if { [info exists lab_id] } { + set page_title [_ lab-report-central.edit_lab] +} else { + set page_title [_ lab-report-central.add_lab] +} + +set context [list $page_title] +set package_id [ad_conn package_id] +set user_id [ad_conn user_id] +set peeraddr [ad_conn peeraddr] + +ad_form -name lab -cancel_url $return_url -form { + {lab_id:key(acs_object_id_seq)} + {return_url:text(hidden) {value $return_url}} + {name:text + {html {size 50}} + {label "[_ lab-report-central.name]" } + {help_text "[_ lab-report-central.help_enter_lab_name]"} + } + {description:richtext(richtext),optional + {label "[_ lab-report-central.description]" } + {help_text "[_ lab-report-central.help_enter_lab_description]"} + {html {cols 48 rows 6}} + {htmlarea_p 0} + {nospell} + } + {instructor_id:search + {result_datatype integer} + {label "[_ lab-report-central.instructor]" } + {help_text "[_ lab-report-central.help_select_lab_instructor]"} + {options [lab_report_central::instructors_get_options]} + {search_query {[db_map dbqd.lab-report-central.tcl.lab-report-central-procs.instructors_search]}} + } + {start_date:date,to_sql(sql_date),to_html(display_date) + {label "[_ lab-report-central.lab_start_date]" } + {help_text "[_ lab-report-central.help_enter_lab_start_date]"} + {format "[lc_get formbuilder_date_format]"} + } + {end_date:date,to_sql(sql_date),to_html(display_date) + {label "[_ lab-report-central.lab_end_date]" } + {help_text "[_ lab-report-central.help_enter_lab_end_date]"} + {format "[lc_get formbuilder_date_format]"} + } +} -select_query { + SELECT name, description, instructor_id, start_date, end_date + FROM lrc_lab WHERE lab_id = :lab_id +} -validate { + {start_date + { [template::util::date::compare $start_date $end_date] <= 0 } + "#lab-report-central.start_date_must_be_set_before_end_date#" + } +} -new_data { + + # Can't use package_instantiate_object because the underlying + # db_exec_plsql can't know that the contents of the start_date and + # end_date contain functions and not variables + db_exec_plsql object_new {} + +} -edit_data { + set modifying_user [ad_conn user_id] + set modifying_ip [ad_conn peeraddr] + + db_dml lab_update {} + db_dml object_update {} +} -after_submit { + ad_returnredirect $return_url + ad_script_abort +} Index: openacs-4/packages/lab-report-central/www/lab-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/lab-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/lab-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,23 @@ + + + + postgresql7.4 + + + + SELECT name, description, person__name(instructor_id) AS instructor, + to_char(start_date, 'DD Month, YYYY') AS start_date, + to_char(end_date, 'DD Month, YYYY') AS end_date + FROM lrc_lab + WHERE lab_id = :lab_id + + + + + + SELECT template_id, name AS template_name, description AS template_desc + FROM lrc_template + + + + Index: openacs-4/packages/lab-report-central/www/lab.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/lab.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/lab.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,55 @@ + +@page_title;noquote@ +@context;noquote@ +[#lab-report-central.admin#] + + + + +
+ + + + + + + + + + + + + + + + + +
#lab-report-central.name#@name;noquote@
#lab-report-central.instructor#@instructor;noquote@
#lab-report-central.lab_duration#@start_date;noquote@ #lab-report-central.to# @end_date;noquote@
#lab-report-central.description#@description;noquote@ 
+
+ +

#lab-report-central.lab_report_templates#

+
+ + + + + + + + + +
  • #lab-report-central.no_lab_report_templates_added#
+ +
Index: openacs-4/packages/lab-report-central/www/lab.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/lab.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/lab.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,42 @@ +ad_page_contract { + Page for viewing details for a lab. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2006-04-17 + @cvs-id $Id: lab.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + lab_id +} + +set package_id [ad_conn package_id] +set user_id [ad_conn user_id] + +db_1row lab_details {} + +set page_title $name +set context [list $page_title] + +set description [template::util::richtext::get_property html_value \ + $description] + +db_multirow -extend { view_url edit_url delete_url } rt rt {} { + set view_url "" + set edit_url [export_vars -url -base template-ae { lab_id }] + set delete_url "" +} + +set create_url [export_vars -url -base template-ae { lab_id }] + +set create_p [permission::permission_p -party_id $user_id \ + -object_id $package_id \ + -privilege lab_report_central_admin_create] + +set delete_p [permission::permission_p -party_id $user_id \ + -object_id $package_id \ + -privilege lab_report_central_admin_delete] + +set modify_p [permission::permission_p -party_id $user_id \ + -object_id $package_id \ + -privilege lab_report_central_admin_modify] + +ad_return_template Index: openacs-4/packages/lab-report-central/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/index.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/index.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,6 @@ + + + Index: openacs-4/packages/lab-report-central/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/index.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,12 @@ +ad_page_contract { + Admin page. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2006-04-17 + @cvs-id $Id: index.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} + +set package_id [ad_conn package_id] +set user_id [ad_conn user_id] + +ad_return_template Index: openacs-4/packages/lab-report-central/www/admin/instructor-add-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/instructor-add-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/instructor-add-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,32 @@ + + + + postgresql7.4 + + + + SELECT cc_session__new (NULL, :name, $start_date, $end_date, + :user_id, :peeraddr, :package_id) + + + + + + UPDATE cc_session + name = :name, + start_date = :start_date, + end_date = :end_date + WHERE session_id = :session_id + + + + + + UPDATE acs_objects + SET modifying_user = :modifying_user, + modifying_ip = :modifying_ip + WHERE object_id = :session_id + + + + Index: openacs-4/packages/lab-report-central/www/admin/instructor-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/instructor-add.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/instructor-add.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,6 @@ + +@page_title;noquote@ +@context;noquote@ +session.name + + Index: openacs-4/packages/lab-report-central/www/admin/instructor-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/instructor-add.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/instructor-add.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,48 @@ +ad_page_contract { + Add an instructor. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2005-11-20 + @cvs-id $Id: instructor-add.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + instructor_id:integer,optional + {return_url "instructors"} +} + +set page_title [_ lab-report-central.add_instructor] + +set context [list [list instructors [_ lab-report-central.instructors]] $page_title] +set package_id [ad_conn package_id] +set user_id [ad_conn user_id] +set peeraddr [ad_conn peeraddr] + +ad_form -name instructor -cancel_url $return_url -form { + {instructor_id:key(acs_object_id_seq)} + {return_url:text(hidden) {value $return_url}} + {user:search,optional + {result_datatype integer} + {label "#lab-report-central.name#" } + {help_text "[_ lab-report-central.help_search_users]"} + {options [lab_report_central::non_instructors_get_options]} + {search_query {[db_map dbqd.lab-report-central.tcl.lab-report-central-procs.non_instructors_search]}} + } +} -after_submit { + group::add_member -group_id [lab_report_central::instructor_group_id] \ + -user_id $user + + # TODO: Add privileges for new member. + permission::grant -party_id $user \ + -object_id $package_id \ + -privilege lab_report_central_admin + + permission::grant -party_id $user \ + -object_id $package_id \ + -privilege lab_report_central_read + + permission::grant -party_id $user \ + -object_id $package_id \ + -privilege lab_report_central_write + + ad_returnredirect $return_url + ad_script_abort +} Index: openacs-4/packages/lab-report-central/www/admin/instructor-del.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/instructor-del.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/instructor-del.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,38 @@ +ad_page_contract { + Deletes a user from the staff group and redirects back to listing of + staff. Able to specify a return_url if the default is not suitable. + + @param staff_id The ID of the user that needs to be removed from the + staff list. + @param return_url Optional url to redirect to when the delete operation + is complete. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2005-12-04 + @cvs-id $Id: instructor-del.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + instructor_id:integer + {return_url "instructors"} +} + +set package_id [ad_conn package_id] + +# Revoke privileges. +permission::revoke -party_id $instructor_id \ + -object_id $package_id \ + -privilege lab_report_central_admin + +permission::revoke -party_id $instructor_id \ + -object_id $package_id \ + -privilege lab_report_central_read + +permission::revoke -party_id $instructor_id \ + -object_id $package_id \ + -privilege lab_report_central_write + +# Revoke membership. +group::remove_member -group_id [lab_report_central::instructor_group_id] \ + -user_id $instructor_id + +ad_returnredirect $return_url +ad_script_abort Index: openacs-4/packages/lab-report-central/www/admin/instructors-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/instructors-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/instructors-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,18 @@ + + + + postgresql7.4 + + + + SELECT u.last_name || ', ' || u.first_names AS name, + u.user_id AS instructor_id + FROM cc_users u, lrc_groups g, group_member_map m + WHERE u.user_id = m.member_id + AND m.group_id = g.group_id + AND g.magic_name = 'instructors' + [template::list::orderby_clause -orderby -name "instructors"] + + + + Index: openacs-4/packages/lab-report-central/www/admin/instructors.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/instructors.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/instructors.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,5 @@ + +@page_title;noquote@ +@context;noquote@ + + Index: openacs-4/packages/lab-report-central/www/admin/instructors.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/instructors.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/instructors.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,41 @@ +ad_page_contract { + Page for viewing instructors. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2006-04-17 + @cvs-id $Id: instructors.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + {orderby "name,asc"} +} + +set page_title "[_ lab-report-central.instructors]" +set context [list $page_title] +set package_id [ad_conn package_id] + +set elements { + name { + label "#lab-report-central.name#" + } + delete { + sub_class narrow + display_template { + + } + link_url_eval {[export_vars -base instructor-del { instructor_id }]} + link_html {title "#lab-report-central.remove_instructor#" onclick "return confirm(\'[_ lab-report-central.want_to_delete_instructor]\');"} + } +} + +template::list::create \ + -name instructors \ + -actions [list "#lab-report-central.add_instructor#" [export_vars -base instructor-add {}] "#lab-report-central.add_instructor_to_list#"] \ + -multirow instructors \ + -no_data "#lab-report-central.no_instructors_created#" \ + -elements $elements \ + -orderby { + name {orderby {lower(last_name)}} + } + +db_multirow instructors get_instructors {} + +ad_return_template Index: openacs-4/packages/lab-report-central/www/admin/template-ae-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/template-ae-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/template-ae-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,25 @@ + + + + postgresql7.4 + + + + UPDATE lrc_template + SET name = :name, + description = :description + WHERE template_id = :template_id + + + + + + UPDATE acs_objects + SET modifying_user = :modifying_user, + modifying_ip = :modifying_ip, + package_id = :package_id + WHERE object_id = :template_id + + + + Index: openacs-4/packages/lab-report-central/www/admin/template-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/template-ae.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/template-ae.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,6 @@ + +@page_title;noquote@ +@context;noquote@ +template.name + + Index: openacs-4/packages/lab-report-central/www/admin/template-ae.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/template-ae.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/template-ae.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,60 @@ +ad_page_contract { + Add/Edit a report template. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2006-04-18 + @cvs-id $Id: template-ae.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + template_id:integer,optional + {return_url "templates"} +} + +auth::require_login + +if { [info exists template_id] } { + set page_title [_ lab-report-central.edit_template] +} else { + set page_title [_ lab-report-central.add_template] +} + +set context [list $page_title] +set package_id [ad_conn package_id] +set user_id [ad_conn user_id] +set peeraddr [ad_conn peeraddr] + +ad_form -name template -cancel_url $return_url -form { + {template_id:key(acs_object_id_seq)} + {return_url:text(hidden) {value $return_url}} + {name:text + {html {size 50}} + {label "[_ lab-report-central.name]" } + {help_text "[_ lab-report-central.help_enter_template_name]"} + } + {description:richtext(richtext),optional + {label "[_ lab-report-central.description]" } + {help_text "[_ lab-report-central.help_enter_template_description]"} + {html {cols 48 rows 6}} + {htmlarea_p 0} + {nospell} + } +} -select_query { + SELECT name, description + FROM lrc_template WHERE template_id = :template_id +} -new_data { + + package_instantiate_object \ + -var_list [list [list package_id $package_id] \ + [list name $name] \ + [list description $description]] \ + -form_id template lrc_template + +} -edit_data { + set modifying_user [ad_conn user_id] + set modifying_ip [ad_conn peeraddr] + + db_dml template_update {} + db_dml object_update {} +} -after_submit { + ad_returnredirect $return_url + ad_script_abort +} Index: openacs-4/packages/lab-report-central/www/admin/template-del-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/template-del-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/template-del-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,12 @@ + + + + postgresql7.4 + + + + SELECT lrc_template__del(:template_id) + + + + Index: openacs-4/packages/lab-report-central/www/admin/template-del.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/template-del.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/template-del.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,23 @@ +ad_page_contract { + Delete the specified report template. + + @param template_id The ID of the report template to delete. + @param return_url Optional url to redirect to when the delete operation + is complete. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2005-12-04 + @cvs-id $Id: template-del.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + template_id:integer + {return_url "templates"} +} + +set package_id [ad_conn package_id] + +db_transaction { + db_exec_plsql template_delete {} +} + +ad_returnredirect $return_url +ad_script_abort Index: openacs-4/packages/lab-report-central/www/admin/templates-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/templates-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/templates-postgresql.xql 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,14 @@ + + + + postgresql7.4 + + + + SELECT template_id, name, description from lrc_template + WHERE package_id = :package_id + [template::list::orderby_clause -orderby -name "templates"] + + + + Index: openacs-4/packages/lab-report-central/www/admin/templates.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/templates.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/templates.adp 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,5 @@ + +@page_title;noquote@ +@context;noquote@ + + Index: openacs-4/packages/lab-report-central/www/admin/templates.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/admin/Attic/templates.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/admin/templates.tcl 24 Apr 2006 11:27:04 -0000 1.1 @@ -0,0 +1,55 @@ +ad_page_contract { + Page for viewing templates. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2006-04-17 + @cvs-id $Id: templates.tcl,v 1.1 2006/04/24 11:27:04 ncarroll Exp $ +} { + {orderby "name,asc"} +} + +set page_title "[_ lab-report-central.templates]" +set context [list $page_title] +set package_id [ad_conn package_id] + +set elements { + edit { + sub_class narrow + display_template { + + } + link_url_eval {[export_vars -url -base template-ae { template_id }]} + } + name { + label "#lab-report-central.name#" + link_url_eval {[export_vars -url -base template { template_id }]} + } + description { + label "#lab-report-central.description#" + } + delete { + sub_class narrow + display_template { + + } + link_url_eval {[export_vars -url -base template-del { template_id }]} + link_html {title "#lab-report-central.remove_template#" onclick "return confirm(\'[_ lab-report-central.want_to_delete_template]\');"} + } +} + +template::list::create \ + -name templates \ + -actions [list "#lab-report-central.add_template#" [export_vars -base template-ae {}] "#lab-report-central.add_template_to_list#"] \ + -multirow templates \ + -no_data "#lab-report-central.no_templates_created#" \ + -elements $elements \ + -orderby { + name {orderby {lower(name)}} + } + +db_multirow templates get_templates {} { + set description [template::util::richtext::get_property content \ + $description] +} + +ad_return_template Index: openacs-4/packages/lab-report-central/www/resources/lab-report-central.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/resources/lab-report-central.css,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/resources/lab-report-central.css 24 Apr 2006 11:27:05 -0000 1.1 @@ -0,0 +1,144 @@ +/* Lab Container */ +#lrc-lab-container { + margin-left: 30px; +} + +#lrc-lab-container ul { + margin: 0; + padding: 0; + list-style-type: none; + font-family: verdana, arial, sans-serif; +} + +#lrc-lab-container li { + margin: 0; +} + +/* Year */ +#lrc-lab-container ul li { + color: #686868; + font-size: 18px; + font-weight: bold; + padding-top: 20px; + padding-bottom: 6px; +} + +#lrc-lab-container ul ul { + margin-left: 30px; + padding: 0; + list-style-type: none; +} + +/* Lab */ +#lrc-lab-container ul ul li { + color: #000; + font-size: 12px; + display: block; + border-left: 1em solid #686868; + border-bottom: 1px solid #686868; + padding: 4px 8px; + width: 50em; + margin-bottom: 5px; +} + +#lrc-lab-container ul ul li img { + vertical-align: bottom; + border: 0; + text-decoration: none; + margin-right: 3px; + margin-left: 3px; +} + +#lrc-lab-container ul ul li span.label { + margin-left: 3em; + float:left; +} + +#lrc-lab-container ul ul li span.options { + float: right; +} + + +/* Styles for lists */ +#lrc-list-container table { + width: 100%; +} + +#lrc-list-container table tr td { + font-weight: bold; + font-size: 12px; + padding: 5px 10px 5px 10px; + margin: 1px; + vertical-align: top; +} + +#lrc-list-container table tr td.label { + background-color: #CCCCCC; + width: 160px; +} + +#lrc-list-container table tr td.value { + background-color: #F0F0F0; +} + +/* Report Container */ +#lrc-report-container { + margin-left: 30px; +} + +#lrc-report-container ul { + margin: 0; + padding: 0; + list-style-type: none; + font-family: verdana, arial, sans-serif; +} + +#lrc-report-container li { + margin: 0; +} + +/* Report */ +#lrc-report-container ul.report li { + color: #000; + font-size: 12px; + display: block; + border-left: 1em solid #686868; + border-bottom: 1px solid #686868; + padding: 4px 8px; + width: 50em; + margin-bottom: 5px; +} + +#lrc-report-container ul.report li img { + vertical-align: bottom; + border: 0; + text-decoration: none; + margin-right: 3px; + margin-left: 3px; +} + +#lrc-report-container ul.report li span.label { + margin-left: 3em; + float:left; +} + +#lrc-report-container ul.report li span.options { + float: right; +} + +#lrc-report-container ul li.notice { + border: 3px solid #FF6600; + margin: 0px auto; + margin-top: 2em; + padding: 5px; + width: 280px; + text-align: center; + background-color: #FF9966; + font-size: 12px; +} + + +/* Global styles */ +.spacer { + clear: both; +} Index: openacs-4/packages/lab-report-central/www/resources/main-portal.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/resources/main-portal.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/resources/main-portal.adp 24 Apr 2006 11:27:05 -0000 1.1 @@ -0,0 +1,34 @@ + +@title@ +@context;noquote@ + +@header_stuff;noquote@ + + + +

+

+ + + + + + + +
+
+
+ +
+ @admin_options;noquote@ +
+ +
+ @user_options;noquote@ +
+
+ +
+
+
+
Index: openacs-4/packages/lab-report-central/www/resources/main-portal.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/resources/main-portal.css,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/resources/main-portal.css 24 Apr 2006 11:27:05 -0000 1.1 @@ -0,0 +1,39 @@ +.portletOptions { + display: inline; + font-size: 10px; + font-weight: normal; + float:right; + padding: 1px; +} + +.visualClear { + display: block; + clear: both; +} + +#portal-columns { + width: 100% !important; + border-collapse: collapse; + border-spacing: 0; +} + +#portal-column-content { + vertical-align: top; + margin: 0; + padding: 0; +} + +/* Padding for the columns */ +#portal-column-content .visualPadding { + /*padding: 0em 2em 1em 2em;*/ + padding: 0em 1em 1em 1em; +} + +.documentBorder { + border: 1px solid #666; + background: White; +} + +.documentContent { + padding: 1em !important; +} Index: openacs-4/packages/lab-report-central/www/resources/main-portal.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/resources/main-portal.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/lab-report-central/www/resources/main-portal.tcl 24 Apr 2006 11:27:05 -0000 1.1 @@ -0,0 +1,48 @@ +ad_page_contract { + + Simple portal page featuring a main portlet. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2005-03-24 + @cvs-id $Id: main-portal.tcl,v 1.1 2006/04/24 11:27:05 ncarroll Exp $ +} { + +} + + +if { ![info exists title] } { + set title {} +} + +if { ![info exists context] } { + set context {} +} + +if { ![info exists header_stuff] } { + set header_stuff {} +} + +if { ![info exists admin_options] } { + set admin_options {} +} + +if { ![info exists staff_options] } { + set staff_options {} +} + +if { ![info exists user_options] } { + set user_options {} +} + +set user_id [ad_conn user_id] + +set package_id [ad_conn package_id] + +set admin_p [permission::permission_p -object_id $package_id -privilege admin] + +set css [parameter::get_from_package_key \ + -parameter "LabReportCentralCSS" \ + -package_key "lab-report-central" \ + -default "/resources/lab-report-central/main-portal.css"] + +ad_return_template \ No newline at end of file