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