Index: openacs-4/packages/curriculum-central/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/index-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/curriculum-central/www/index-postgresql.xql	11 Dec 2005 05:34:37 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.4</version></rdbms>
+
+   <fullquery name="faculties">
+     <querytext>
+       SELECT faculty_id, faculty_name FROM cc_faculty WHERE
+           package_id = :package_id
+     </querytext>
+   </fullquery>
+
+</queryset>
Index: openacs-4/packages/curriculum-central/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/index.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/curriculum-central/www/index.adp	4 Dec 2005 07:33:41 -0000	1.2
+++ openacs-4/packages/curriculum-central/www/index.adp	11 Dec 2005 05:34:37 -0000	1.3
@@ -3,3 +3,14 @@
 <property name="context">@context;noquote@</property>
 
 <if @admin_p@>[<a href="admin">admin</a>]</if>
+
+<ul>
+<li><a href="uos-add">Add Unit of Study</a></li>
+</ul>
+
+View curriculum for:
+<ul>
+<multiple name="faculties">
+<li><a href="depts?faculty_id=@faculties.faculty_id@">@faculties.faculty_name@</a></li>
+</multiple>
+</ul>
\ No newline at end of file
Index: openacs-4/packages/curriculum-central/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/curriculum-central/www/index.tcl	24 Nov 2005 23:08:32 -0000	1.2
+++ openacs-4/packages/curriculum-central/www/index.tcl	11 Dec 2005 05:34:37 -0000	1.3
@@ -9,13 +9,15 @@
 set page_title [ad_conn instance_name]
 set context [list]
 set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
+set package_id [ad_conn package_id]
 
 # Check for streams.  If no streams, then display no-streams template.
 if { ![curriculum_central::stream::streams_exist_p] } {
     ad_return_template "no-streams"
     return
 }
 
-# Otherwise display list of streams.
+# Get list of faculties.
+db_multirow faculties faculties {}
 
 ad_return_template