Index: openacs-4/packages/curriculum-central/www/stream-export.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/stream-export.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/curriculum-central/www/stream-export.tcl 2 Apr 2006 02:06:06 -0000 1.1 +++ openacs-4/packages/curriculum-central/www/stream-export.tcl 2 Apr 2006 08:46:18 -0000 1.2 @@ -51,6 +51,7 @@ set outcomes [lindex $uos 11] set objectives [lindex $uos 12] set syllabus [lindex $uos 13] + set lecturer_ids [lindex $uos 14] foreach session_id $session_ids { @@ -71,6 +72,16 @@ set uos_code_node [$uos_node appendChild [$doc createElement code]] $uos_code_node appendChild [$doc createTextNode $uos_code] + # UoS Lecturers + set lecturers_list [list] + foreach lecturer_id [split $lecturer_ids { }] { + set lecturer_name [curriculum_central::staff::pretty_name $lecturer_id] + lappend lecturers_list $lecturer_name + } + set uos_lecturers [join $lecturers_list {, }] + set uos_lecturer_node [$uos_node appendChild [$doc createElement lecturer]] + $uos_lecturer_node appendChild [$doc createTextNode $uos_lecturers] + # Objectives set objectives_node [$uos_node appendChild \ [$doc createElement objectives]]