Index: openacs-4/packages/new-portal/www/show-portal.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/show-portal.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/new-portal/www/show-portal.tcl	29 Sep 2001 20:30:08 -0000	1.1
+++ openacs-4/packages/new-portal/www/show-portal.tcl	30 Sep 2001 18:29:46 -0000	1.2
@@ -1,20 +1,20 @@
 # www/show-portal.tcl
 
 ad_page_contract {
-    The page that does the work - display the portal.
+    Display the portal.
 
     @author AKS
     @creation-date 
     @cvs-id $Id$
 } {
-    portal_id:naturalnum,notnull,optional
+    portal_id:naturalnum,notnull
 }
 
 set master_template [ad_parameter master_template]
 
-set element_list [portal_setup_element_list 2285]
-set element_src [portal_setup_element_src 2285]
-array set portal [portal_render_portal 2285]
+set element_list [portal_setup_element_list $portal_id]
+set element_src [portal_setup_element_src $portal_id]
+array set portal [portal_render_portal $portal_id]
 
 
 ad_return_template