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.2 -r1.3
--- openacs-4/packages/new-portal/www/show-portal.tcl	30 Sep 2001 18:29:46 -0000	1.2
+++ openacs-4/packages/new-portal/www/show-portal.tcl	5 Oct 2001 00:15:07 -0000	1.3
@@ -10,12 +10,8 @@
     portal_id:naturalnum,notnull
 }
 
-set master_template [ad_parameter master_template]
 
-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]
 
+array set portal [portal::render_portal $portal_id]
 
-ad_return_template