Index: openacs-4/packages/new-portal/www/admin/portal-config.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/admin/portal-config.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/new-portal/www/admin/portal-config.tcl	9 Aug 2002 20:56:30 -0000	1.9
+++ openacs-4/packages/new-portal/www/admin/portal-config.tcl	16 Oct 2002 15:39:17 -0000	1.10
@@ -23,14 +23,24 @@
     @creation-date 10/20/2001
     @cvs-id $Id$
 } {
-    {referer:notnull}
+    {referer:optional ""}
     portal_id:naturalnum,notnull
 }
 
+set page_url [ad_conn url]
 set name ""
 set rendered_page [portal::configure \
         -referer $referer \
         -template_p f \
         $portal_id ""
 ]
 set name [portal::get_name $portal_id]
+set return_url "$page_url?portal_id=$portal_id"
+
+
+
+
+
+
+
+