Index: openacs-4/contrib/packages/portal/lib/plain-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/lib/plain-master.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/portal/lib/plain-master.tcl 17 Mar 2004 02:15:52 -0000 1.1 +++ openacs-4/contrib/packages/portal/lib/plain-master.tcl 18 Mar 2004 00:31:32 -0000 1.2 @@ -19,14 +19,14 @@ set which_navbar [parameter::get -package_id $package_id -parameter NavbarClass] set portal_url [site_node::get_url_from_object_id -object_id $package_id] - db_multirow -unclobber -extend {url} navbar select_user_navbar {} { + db_multirow -unclobber -extend {url} portal_pages select_user_portal_pages {} { set url [export_vars -base $portal_url {portal_id page_num}] } if { [permission::permission_p \ -object_id [portal::get_admin_portal_id -package_id $package_id] \ -privilege admin] } { - db_multirow -unclobber -append -extend {url} navbar select_admin_navbar {} { + db_multirow -unclobber -append -extend {url} portal_pages select_admin_portal_pages {} { set url [export_vars -base $portal_url {portal_id page_num}] } } @@ -41,4 +41,3 @@ } -ad_return_template