Index: openacs-4/packages/curriculum-central/www/stream-map.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/stream-map.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/curriculum-central/www/stream-map.adp 9 Feb 2006 11:41:37 -0000 1.2 +++ openacs-4/packages/curriculum-central/www/stream-map.adp 10 Feb 2006 03:44:39 -0000 1.3 @@ -22,7 +22,7 @@ Index: openacs-4/packages/curriculum-central/www/stream-map.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/stream-map.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/curriculum-central/www/stream-map.tcl 9 Feb 2006 11:41:37 -0000 1.2 +++ openacs-4/packages/curriculum-central/www/stream-map.tcl 10 Feb 2006 03:44:39 -0000 1.3 @@ -28,7 +28,7 @@ template::multirow create stream map_id year_id year_name \ session_id session_name core_or_not uos_id uos_code uos_name \ - year_session_group + year_session_group uos_details_url foreach uos $units_of_study { set map_id [lindex $uos 0] @@ -48,9 +48,11 @@ set year_session_group "${year_id}${session_id}" + set uos_details_url [export_vars -url -base uos-details {uos_id stream_id}] + template::multirow append stream $map_id $year_id $year_name \ $session_id $session_name $core_id $uos_id $uos_code $uos_name \ - $year_session_group + $year_session_group $uos_details_url } } 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/curriculum-central/www/uos-details-postgresql.xql 10 Feb 2006 03:44:39 -0000 1.1 @@ -0,0 +1,48 @@ + + + + postgresql7.4 + + + + SELECT f.faculty_id, f.faculty_name, d.department_id, d.department_name, + s.stream_name, n.uos_code, n.uos_name, wr.formal_contact_hrs + FROM cc_faculty f, cc_department d, cc_stream s, + cc_uos u, cc_uos_name n, cc_uos_workload w, + cc_uos_workload_revisions wr + WHERE f.faculty_id = d.faculty_id + AND d.department_id = s.department_id + AND s.stream_id = :stream_id + AND s.package_id = :package_id + AND u.uos_id = :uos_id + AND n.name_id = u.uos_name_id + AND w.parent_uos_id = :uos_id + AND wr.workload_revision_id = w.live_revision_id + + + + + + SELECT ur.credit_value, ur.session_ids, + 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 + FROM cc_uos u, cc_uos_revisions ur, cc_staff s, cc_uos_detail d, + cc_uos_detail_revisions dr + WHERE u.uos_id = :uos_id + AND u.live_revision_id = ur.uos_revision_id + AND ur.unit_coordinator_id = s.staff_id + AND d.parent_uos_id = u.uos_id + AND dr.detail_revision_id = d.live_revision_id + + + + + + SELECT s.name FROM cc_session s + WHERE s.session_id IN ([join $session_ids ,]) + + + + Index: openacs-4/packages/curriculum-central/www/uos-details.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/uos-details.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/curriculum-central/www/uos-details.adp 10 Feb 2006 03:44:39 -0000 1.1 @@ -0,0 +1,19 @@ + +@page_title;noquote@ +@context;noquote@ + + \ No newline at end of file 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/curriculum-central/www/uos-details.tcl 10 Feb 2006 03:44:39 -0000 1.1 @@ -0,0 +1,33 @@ +ad_page_contract { + Page for displaying details for a specific Unit of Study. + + @author Nick Carroll (nick.c@rroll.net) + @creation-date 2005-11-20 + @cvs-id $Id: uos-details.tcl,v 1.1 2006/02/10 03:44:39 ncarroll Exp $ +} { + uos_id:integer + stream_id +} + +set package_id [ad_conn package_id] + +# Retrieve context details. +db_1row context_details {} + +set page_title "${uos_code} ${uos_name}" + +set context [list \ + [list [export_vars -url -base faculty-depts {faculty_name faculty_id}] \ + $faculty_name] \ + [list [export_vars -url -base dept-streams \ + {department_name department_id}] $department_name] \ + [list [export_vars -url -base stream-map \ + {stream_name stream_id}] "$stream_name - [_ curriculum-central.map_view]"] \ + $page_title] + +# Retrieve Unit of Study details. +db_1row uos_details {} + +set session_names [join [db_list session_names {}] ", "] + +ad_return_template