Index: openacs-4/packages/acs-subsite/www/permissions/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.adp,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-subsite/www/permissions/one.adp	16 Mar 2003 14:45:49 -0000	1.1.2.3
+++ openacs-4/packages/acs-subsite/www/permissions/one.adp	1 May 2003 11:15:43 -0000	1.1.2.4
@@ -53,4 +53,15 @@
         <em>No children</em>
       </else>
     </if>
-    <if @context_id@ not nil><p>[<a href="one?object_id=@context_id@">up to @context_name@</a>]</p></if>      
+    <if @return_url@ not nil>
+      <p>
+        [<a href="@return_url@">return to application</a>]
+      </p>
+    </if>
+    <else>
+      <if @context_id@ not nil>
+        <p>
+          [<a href="one?object_id=@context_id@">up to @context_name@</a>]
+        </p>
+      </if>
+    </else>      
Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-subsite/www/permissions/one.tcl	7 Dec 2002 16:06:29 -0000	1.2.2.1
+++ openacs-4/packages/acs-subsite/www/permissions/one.tcl	1 May 2003 11:15:43 -0000	1.2.2.2
@@ -10,6 +10,7 @@
 } {
     object_id:integer,notnull
     {children_p "f"}
+    {return_url ""}
 }
 
 set user_id [ad_maybe_redirect_for_registration]