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 -N -r1.25 -r1.26 --- openacs-4/packages/curriculum-central/tcl/uos-procs.tcl 12 Jan 2006 07:15:23 -0000 1.25 +++ openacs-4/packages/curriculum-central/tcl/uos-procs.tcl 22 Jan 2006 08:43:15 -0000 1.26 @@ -109,7 +109,6 @@ uos_name role_unit_coordinator credit_value - semester } } edit_tl { @@ -302,7 +301,6 @@ -uos_code:required -uos_name:required -credit_value:required - -semester:required -unit_coordinator_id:required -activity_log:required -activity_log_format:required @@ -332,7 +330,6 @@ -uos_code $uos_code \ -uos_name $uos_name \ -credit_value $credit_value \ - -semester $semester \ -unit_coordinator_id $unit_coordinator_id \ -activity_log $activity_log \ -activity_log_format $activity_log_format ] @@ -377,7 +374,6 @@ -uos_code:required -uos_name:required -credit_value:required - -semester:required -unit_coordinator_id:required -activity_log:required -activity_log_format:required @@ -396,7 +392,6 @@ [list uos_code $uos_code] \ [list uos_name $uos_name] \ [list credit_value $credit_value] \ - [list semester $semester] \ [list unit_coordinator_id $unit_coordinator_id] \ [list activity_log $activity_log] \ [list activity_log_format $activity_log_format] \ @@ -953,6 +948,21 @@ } +ad_proc -public curriculum_central::uos::get_pretty_name { + {-uos_id:required} +} { + Get the name for a UoS. + + @param uos_id The ID of the Unit of Study for which we return + the name for. + + @return The name of the given UoS ID. Returns an empty string + if a name could not be found. +} { + return [db_string pretty_name {} -default ""] +} + + ad_proc -public curriculum_central::uos::get_details { {-uos_id:required} {-array:required}