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