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.23 -r1.24
--- openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml 6 Jan 2006 04:50:18 -0000 1.23
+++ openacs-4/packages/curriculum-central/catalog/curriculum-central.en_US.ISO-8859-1.xml 6 Jan 2006 05:46:13 -0000 1.24
@@ -70,7 +70,9 @@
Add T&L approach to list
Add T&L Approaches
No T&L approaches have been created.
- View list of T&L approaches
+ Manage your list of teaching & learning approaches
+ Manage your list of graduate attributes
+ Manage your list of assessment methods
Enter the type of teaching delivery method. Eg. Lecture, Seminar, Tutorial, Online Discussions, etc.
Identifier
Enter an identifier (such as the UoS code, eg. ELEC1000 or something more generic such as GENERAL) to distinguish this Teaching & Learning approach from others. This must be entered to allow for multiple types of lectures or online activities that have the same name but have different descriptions.
Index: openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 6 Jan 2006 04:50:18 -0000 1.12
+++ openacs-4/packages/curriculum-central/tcl/uos-procs-postgresql.xql 6 Jan 2006 05:46:13 -0000 1.13
@@ -279,6 +279,7 @@
FROM cc_uos_tl_method m, acs_objects o
WHERE o.object_id = m.method_id
AND o.package_id = :package_id
+ AND o.creation_user = :user_id
@@ -289,6 +290,7 @@
FROM cc_uos_gradattr g, acs_objects o
WHERE o.object_id = g.gradattr_id
AND o.package_id = :package_id
+ AND o.creation_user = :user_id
@@ -299,6 +301,7 @@
FROM cc_uos_assess_method m, acs_objects o
WHERE o.object_id = m.method_id
AND o.package_id = :package_id
+ AND o.creation_user = :user_id
Index: openacs-4/packages/curriculum-central/tcl/uos-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/uos-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/curriculum-central/tcl/uos-procs.tcl 6 Jan 2006 04:50:18 -0000 1.16
+++ openacs-4/packages/curriculum-central/tcl/uos-procs.tcl 6 Jan 2006 05:46:13 -0000 1.17
@@ -930,16 +930,26 @@
ad_proc curriculum_central::uos::tl_method_get_options {
{-package_id ""}
+ {-user_id ""}
} {
Returns a two-column list of registered teaching and learning methods.
+ @param package_id ID of the current package instance.
+ @param user_id Specify a user to retrieve their list of
+ T&L methods, otherwise a list of T&L methods is
+ returned by default for the requesting user.
+
@return Returns a two-column list of registered teaching and
learning methods.
} {
if { $package_id eq ""} {
set package_id [ad_conn package_id]
}
+ if { $user_id_id eq ""} {
+ set user_id [ad_conn user_id]
+ }
+
set method_list [db_list_of_lists tl_methods {}]
return $method_list
@@ -948,15 +958,25 @@
ad_proc curriculum_central::uos::graduate_attributes_get_options {
{-package_id ""}
+ {-user_id ""}
} {
Returns a two-column list of registered graduate attributes.
+ @param package_id ID of the current package instance.
+ @param user_id Specify a user to retrieve their list of
+ graduate attribtues, otherwise a list of graduate attributes is
+ returned by default for the requesting user.
+
@return Returns a two-column list of registered graduate attributes.
} {
if { $package_id eq ""} {
set package_id [ad_conn package_id]
}
+ if { $user_id eq ""} {
+ set user_id [ad_conn user_id]
+ }
+
set ga_list [db_list_of_lists select_ga {}]
return $ga_list
@@ -965,15 +985,25 @@
ad_proc curriculum_central::uos::assess_method_get_options {
{-package_id ""}
+ {-user_id ""}
} {
Returns a two-column list of registered assessment methods.
+ @param package_id ID of the current package instance.
+ @param user_id Specify a user to retrieve their list of
+ assessment methods, otherwise a list of assessment methods is
+ returned by default for the requesting user.
+
@return Returns a two-column list of registered assessment methods.
} {
if { $package_id eq ""} {
set package_id [ad_conn package_id]
}
+ if { $user_id eq ""} {
+ set user_id [ad_conn user_id]
+ }
+
set method_list [db_list_of_lists assess_methods {}]
return $method_list
Index: openacs-4/packages/curriculum-central/www/coordinate/assess-method-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/assess-method-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/assess-method-ae.tcl 6 Jan 2006 04:50:18 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/assess-method-ae.tcl 6 Jan 2006 05:46:13 -0000 1.2
@@ -19,6 +19,7 @@
set context [list $page_title]
set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
ad_form -name assess_method -cancel_url $return_url -form {
{method_id:key(acs_object_id_seq)}
Index: openacs-4/packages/curriculum-central/www/coordinate/assess-methods-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/assess-methods-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/assess-methods-postgresql.xql 6 Jan 2006 04:50:18 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/assess-methods-postgresql.xql 6 Jan 2006 05:46:13 -0000 1.2
@@ -9,6 +9,7 @@
FROM cc_uos_assess_method m, acs_objects o
WHERE package_id = :package_id
AND m.method_id = o.object_id
+ AND o.creation_user = :user_id
[template::list::orderby_clause -orderby -name "methods"]
Index: openacs-4/packages/curriculum-central/www/coordinate/assess-methods.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/assess-methods.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/assess-methods.tcl 6 Jan 2006 04:50:18 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/assess-methods.tcl 6 Jan 2006 05:46:13 -0000 1.2
@@ -8,9 +8,12 @@
{orderby "name,asc"}
}
+auth::require_login
+
set page_title "[_ curriculum-central.assess_methods]"
set context [list [list . [_ curriculum-central.coordinate]] $page_title]
set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
set elements {
edit {
Index: openacs-4/packages/curriculum-central/www/coordinate/gradattr-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/gradattr-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/gradattr-ae.tcl 4 Jan 2006 23:32:36 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/gradattr-ae.tcl 6 Jan 2006 05:46:13 -0000 1.2
@@ -19,6 +19,7 @@
set context [list $page_title]
set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
ad_form -name gradattr -cancel_url $return_url -form {
{gradattr_id:key(acs_object_id_seq)}
Index: openacs-4/packages/curriculum-central/www/coordinate/gradattrs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/gradattrs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/gradattrs-postgresql.xql 4 Jan 2006 23:32:36 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/gradattrs-postgresql.xql 6 Jan 2006 05:46:13 -0000 1.2
@@ -9,6 +9,7 @@
FROM cc_uos_gradattr g, acs_objects o
WHERE package_id = :package_id
AND g.gradattr_id = o.object_id
+ AND o.creation_user = :user_id
[template::list::orderby_clause -orderby -name "gradattrs"]
Index: openacs-4/packages/curriculum-central/www/coordinate/gradattrs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/gradattrs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/gradattrs.tcl 4 Jan 2006 23:32:36 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/gradattrs.tcl 6 Jan 2006 05:46:13 -0000 1.2
@@ -8,9 +8,12 @@
{orderby "name,asc"}
}
+auth::require_login
+
set page_title "[_ curriculum-central.graduate_attributes]"
set context [list [list . [_ curriculum-central.coordinate]] $page_title]
set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
set elements {
edit {
Index: openacs-4/packages/curriculum-central/www/coordinate/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/index.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/curriculum-central/www/coordinate/index.adp 3 Jan 2006 03:23:28 -0000 1.5
+++ openacs-4/packages/curriculum-central/www/coordinate/index.adp 6 Jan 2006 05:46:13 -0000 1.6
@@ -3,12 +3,17 @@
@context;noquote@
+
+
Things To Do
Index: openacs-4/packages/curriculum-central/www/coordinate/tl-method-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/tl-method-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/tl-method-ae.tcl 3 Jan 2006 03:23:28 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/tl-method-ae.tcl 6 Jan 2006 05:46:13 -0000 1.2
@@ -19,6 +19,7 @@
set context [list $page_title]
set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
ad_form -name tl_method -cancel_url $return_url -form {
{method_id:key(acs_object_id_seq)}
Index: openacs-4/packages/curriculum-central/www/coordinate/tl-methods-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/tl-methods-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/coordinate/tl-methods-postgresql.xql 3 Jan 2006 03:23:28 -0000 1.1
+++ openacs-4/packages/curriculum-central/www/coordinate/tl-methods-postgresql.xql 6 Jan 2006 05:46:13 -0000 1.2
@@ -9,6 +9,7 @@
FROM cc_uos_tl_method m, acs_objects o
WHERE package_id = :package_id
AND m.method_id = o.object_id
+ AND o.creation_user = :user_id
[template::list::orderby_clause -orderby -name "methods"]
Index: openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl 4 Jan 2006 23:32:36 -0000 1.2
+++ openacs-4/packages/curriculum-central/www/coordinate/tl-methods.tcl 6 Jan 2006 05:46:13 -0000 1.3
@@ -8,9 +8,12 @@
{orderby "name,asc"}
}
+auth::require_login
+
set page_title "[_ curriculum-central.tl_approaches]"
set context [list [list . [_ curriculum-central.coordinate]] $page_title]
set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
set elements {
edit {