Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.121 -r1.122
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	12 Mar 2002 05:18:21 -0000	1.121
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	29 Mar 2002 17:04:38 -0000	1.122
@@ -764,11 +764,7 @@
     } {
         set ad_dim_struct [list]
 
-        db_foreach list_page_nums_select {
-            select pretty_name, sort_key as page_num from portal_pages where
-            portal_id = :portal_id
-            order by sort_key
-        } {
+        db_foreach list_page_nums_select {} {
             lappend ad_dim_struct [list $page_num $pretty_name [list]]
         } 
 
@@ -1128,7 +1124,7 @@
 
         # If user has no permissions to edit this portal, cancel out
         # some of the config parameters
-        set portal_id [db_string select_portal_id "select portal_id from portal_pages where page_id = (select page_id from portal_element_map where element_id= :element_id)"]
+        set portal_id [db_string select_portal_id {}]
 
         if {![ad_permission_p $portal_id portal_edit_portal]} {
             set config(shadeable_p) "f"