Index: openacs-4/packages/curriculum-central/curriculum-central.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/curriculum-central.info,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/curriculum-central/curriculum-central.info 2 Feb 2006 11:52:15 -0000 1.9
+++ openacs-4/packages/curriculum-central/curriculum-central.info 23 Feb 2006 08:29:54 -0000 1.10
@@ -22,13 +22,16 @@
-
-
+
+
+
+
+
Index: openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml 22 Feb 2006 06:28:37 -0000 1.45
+++ openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml 23 Feb 2006 08:29:54 -0000 1.46
@@ -2,6 +2,17 @@
UoS
+ Week
+ Research and Inquiry
+ Information Literacy
+ Personal and Intellectual Autonomy
+ Ethical, Social and Professional Understanding
+ Communication
+ High Distinction
+ Distinction
+ Credit
+ Pass
+ Fail
Notification
Requisites View
Key
@@ -46,6 +57,7 @@
No vocabulary for years have been created.
View Units of Study offered by:
Edit Year
+ Year
Edit Schedule Week
Edit Session
overview
Index: openacs-4/packages/curriculum-central/sql/postgresql/stream-uos-rel-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/sql/postgresql/stream-uos-rel-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/sql/postgresql/stream-uos-rel-create.sql 16 Feb 2006 10:44:17 -0000 1.1
+++ openacs-4/packages/curriculum-central/sql/postgresql/stream-uos-rel-create.sql 23 Feb 2006 08:29:54 -0000 1.2
@@ -38,8 +38,7 @@
constraint cc_stream_uos_rel_stream_uos_rel_id_pk
primary key,
name varchar(256)
- constraint cc_stream_uos_rel_name_nn not null
- constraint cc_stream_uos_rel_name_un unique,
+ constraint cc_stream_uos_rel_name_nn not null,
package_id integer
constraint cc_stream_uos_rel_package_id_fk
references apm_packages(package_id) on delete cascade
Index: openacs-4/packages/curriculum-central/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/admin-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/curriculum-central/tcl/admin-procs.tcl 23 Feb 2006 08:29:55 -0000 1.1
@@ -0,0 +1,207 @@
+ad_library {
+
+ Curriculum Central Admin Library
+
+ Procedures that deal with the admin pages.
+
+ @creation-date 2006-02-22
+ @author Nick Carroll
+ @cvs-id $Id: admin-procs.tcl,v 1.1 2006/02/23 08:29:55 ncarroll Exp $
+
+}
+
+namespace eval curriculum_central::admin {}
+namespace eval curriculum_central::admin::default_values {}
+
+ad_proc -private curriculum_central::admin::default_values::insert {
+ {-package_id:required}
+} {
+ Inserts default admin values.
+
+ @param package_id Package ID of Curriculum Central that we want to
+ insert default values for.
+} {
+ # Insert default values for stream rels.
+ curriculum_central::admin::default_values::insert_stream_rels \
+ -package_id $package_id
+
+ curriculum_central::admin::default_values::insert_years \
+ -package_id $package_id
+
+ curriculum_central::admin::default_values::insert_grade_types \
+ -package_id $package_id
+
+ curriculum_central::admin::default_values::insert_graduate_attributes \
+ -package_id $package_id
+
+ curriculum_central::admin::default_values::insert_schedule_weeks \
+ -package_id $package_id
+}
+
+
+ad_proc -private curriculum_central::admin::default_values::insert_stream_rels {
+ {-package_id:required}
+} {
+ Inserts default admin values for stream rels.
+
+ @param package_id Package ID of Curriculum Central that we want to
+ insert default values for.
+} {
+ set names "#curriculum-central.core#"
+ lappend names "#curriculum-central.elective#"
+ lappend names "#curriculum-central.recommended#"
+
+ # Insert default values for stream rels.
+ foreach name $names {
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list name $name]] \
+ cc_stream_uos_rel
+ }
+}
+
+
+ad_proc -private curriculum_central::admin::default_values::insert_years {
+ {-package_id:required}
+} {
+ Inserts default admin values for years.
+
+ @param package_id Package ID of Curriculum Central that we want to
+ insert default values for.
+} {
+ set limit [parameter::get -parameter "DefaultNumDegreeStreamYears" \
+ -default 5]
+
+ set names [list]
+
+ set x 1
+ while { $x <= $limit } {
+ lappend names "#curriculum-central.year# $x"
+ incr x
+ }
+
+ # Insert default values for degree stream years.
+ foreach name $names {
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list name $name]] \
+ cc_year
+ }
+}
+
+
+ad_proc -private curriculum_central::admin::default_values::insert_grade_types {
+ {-package_id:required}
+} {
+ Inserts default admin values for grade types.
+
+ @param package_id Package ID of Curriculum Central that we want to
+ insert default values for.
+} {
+
+ # Insert default values for grade types.
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list object_type cc_uos_grade_type] \
+ [list name [_ curriculum-central.high_distinction]] \
+ [list lower_bound 85] \
+ [list upper_bound 100]] \
+ cc_uos_grade_type
+
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list object_type cc_uos_grade_type] \
+ [list name [_ curriculum-central.distinction]] \
+ [list lower_bound 75] \
+ [list upper_bound 84]] \
+ cc_uos_grade_type
+
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list object_type cc_uos_grade_type] \
+ [list name [_ curriculum-central.credit]] \
+ [list lower_bound 65] \
+ [list upper_bound 74]] \
+ cc_uos_grade_type
+
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list object_type cc_uos_grade_type] \
+ [list name [_ curriculum-central.pass]] \
+ [list lower_bound 50] \
+ [list upper_bound 64]] \
+ cc_uos_grade_type
+
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list object_type cc_uos_grade_type] \
+ [list name [_ curriculum-central.fail]] \
+ [list lower_bound 0] \
+ [list upper_bound 49]] \
+ cc_uos_grade_type
+}
+
+
+ad_proc -private curriculum_central::admin::default_values::insert_graduate_attributes {
+ {-package_id:required}
+} {
+ Inserts default admin values for graduate attribute types.
+
+ @param package_id Package ID of Curriculum Central that we want to
+ insert default values for.
+} {
+ set attribute_names [list]
+ lappend attribute_names \
+ "#curriculum-central.research_and_inquiry#"
+
+ lappend attribute_names \
+ "#curriculum-central.information_literacy#"
+
+ lappend attribute_names \
+ "#curriculum-central.personal_and_intellectual_autonomy#"
+
+ lappend attribute_names \
+ "#curriculum-central.ethical_social_and_professional_understanding#"
+
+ lappend attribute_names \
+ "#curriculum-central.communication#"
+
+ # Insert default values for stream rels.
+ foreach name $attribute_names {
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list object_type cc_uos_gradattr_name] \
+ [list name $name]] \
+ cc_uos_gradattr_name
+ }
+}
+
+
+ad_proc -private curriculum_central::admin::default_values::insert_schedule_weeks {
+ {-package_id:required}
+} {
+ Inserts default admin values for schedule weeks
+
+ @param package_id Package ID of Curriculum Central that we want to
+ insert default values for.
+} {
+ set limit [parameter::get -parameter "DefaultNumScheduleWeeks" \
+ -default 13]
+
+ set names [list]
+
+ set x 1
+ while { $x <= $limit } {
+ lappend names "#curriculum-central.week# $x"
+ incr x
+ }
+
+ # Insert default values for scheduled weeks.
+ foreach name $names {
+ package_instantiate_object \
+ -var_list [list [list package_id $package_id] \
+ [list object_type cc_uos_schedule_week] \
+ [list name $name]] \
+ cc_uos_schedule_week
+ }
+}
Index: openacs-4/packages/curriculum-central/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/install-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/curriculum-central/tcl/install-procs.tcl 18 Dec 2005 06:23:30 -0000 1.4
+++ openacs-4/packages/curriculum-central/tcl/install-procs.tcl 23 Feb 2006 08:29:55 -0000 1.5
@@ -17,7 +17,6 @@
} {
db_transaction {
curriculum_central::install::register_implementations
- #bug_tracker::search::register_implementations
curriculum_central::install::roles_create
curriculum_central::uos::workflow_create
}
@@ -31,7 +30,6 @@
curriculum_central::uos::workflow_delete
curriculum_central::install::roles_delete
curriculum_central::install::unregister_implementations
- #bug_tracker::search::unregister_implementations
}
}
@@ -46,6 +44,12 @@
# Create the UoS workflow
curriculum_central::uos::instance_workflow_create -package_id $package_id
+
+ # Install default admin values
+ if { [parameter::get -parameter "InsertDefaultValues" -default 1] } {
+ curriculum_central::admin::default_values::insert \
+ -package_id $package_id
+ }
}