Index: openacs-4/packages/curriculum-central/tcl/staff-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/staff-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/curriculum-central/tcl/staff-procs.tcl 2 Apr 2006 07:52:10 -0000 1.4 +++ openacs-4/packages/curriculum-central/tcl/staff-procs.tcl 16 Jun 2006 06:33:58 -0000 1.5 @@ -26,6 +26,26 @@ } +ad_proc -public curriculum_central::staff::pretty_names { + name_ids +} { + Takes a list of name_ids, and concatenates the pretty name for each + ID to a string with comma delimiters. + + @param name_ids List of name IDs. + @return Returns a concatenated string of pretty names. +} { + set names [list] + + foreach name_id $name_ids { + set pretty_name [curriculum_central::staff::pretty_name $name_id] + lappend names "$pretty_name" + } + + return [join $names ,] +} + + ad_proc -public curriculum_central::staff::stream_coordinator_p { user_id } { Index: openacs-4/packages/curriculum-central/www/uos-details-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/uos-details-postgresql.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/curriculum-central/www/uos-details-postgresql.xql 15 Feb 2006 11:42:59 -0000 1.3 +++ openacs-4/packages/curriculum-central/www/uos-details-postgresql.xql 16 Jun 2006 06:33:32 -0000 1.4 @@ -40,7 +40,9 @@ s.title || ' ' || person__name(s.staff_id) AS unit_coordinator_pretty_name, dr.online_course_content, dr.objectives, dr.learning_outcomes, - dr.syllabus, dr.relevance, dr.note, wr.formal_contact_hrs + dr.syllabus, dr.relevance, dr.note, dr.lecturer_ids, dr.tutor_ids, + wr.formal_contact_hrs, wr.student_commitment, wr.expected_feedback, + wr.student_feedback, wr.assumed_concepts, wr.informal_study_hrs FROM cc_uos u, cc_uos_revisions ur, cc_staff s, cc_uos_detail d, cc_uos_detail_revisions dr, cc_uos_workload w, cc_uos_workload_revisions wr Index: openacs-4/packages/curriculum-central/www/uos-details.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/uos-details.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/curriculum-central/www/uos-details.tcl 18 May 2006 02:58:56 -0000 1.7 +++ openacs-4/packages/curriculum-central/www/uos-details.tcl 16 Jun 2006 06:33:32 -0000 1.8 @@ -65,6 +65,12 @@ template::multirow append details [_ curriculum-central.unit_coordinator] \ $unit_coordinator_pretty_name +template::multirow append details [_ curriculum-central.lecturers] \ + "[curriculum_central::staff::pretty_names $lecturer_ids]" + +template::multirow append details [_ curriculum-central.tutors] \ + "[curriculum_central::staff::pretty_names $tutor_ids]" + template::multirow append details [_ curriculum-central.credit_value] \ $credit_value @@ -89,6 +95,21 @@ template::multirow append details [_ curriculum-central.contact_hours] \ [template::util::richtext::get_property html_value $formal_contact_hrs] +template::multirow append details [_ curriculum-central.informal_study_hrs] \ + [template::util::richtext::get_property html_value $informal_study_hrs] + +template::multirow append details [_ curriculum-central.student_commitment] \ + [template::util::richtext::get_property html_value $student_commitment] + +template::multirow append details [_ curriculum-central.expected_feedback] \ + [template::util::richtext::get_property html_value $expected_feedback] + +template::multirow append details [_ curriculum-central.student_feedback] \ + [template::util::richtext::get_property html_value $student_feedback] + +template::multirow append details [_ curriculum-central.assumed_concepts] \ + [template::util::richtext::get_property html_value $assumed_concepts] + template::multirow append details [_ curriculum-central.assessments] \ [join [db_list assessment_names {}] ", "]