Fisheye: Tag 1.5 refers to a dead (removed) revision in file `openacs-4/packages/new-portal/www/master.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/new-portal/www/master.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/new-portal/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/admin/index.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/admin/index.adp	29 Mar 2002 18:48:29 -0000	1.2
+++ openacs-4/packages/new-portal/www/admin/index.adp	2 Apr 2002 07:31:22 -0000	1.3
@@ -21,18 +21,17 @@
 <master src="@master_template@">
 <property name="title">Welcome to Portals</property>
 
+Portals in the system:
+<P>
 
 <if @users_portals:rowcount@ eq 0>
-    You have not configured any portals. <a href="test-api">Create a portal</a> now	
+    You have not configured any portals. 
 </if>
-
-<multiple name=users_portals>
-    <if @users_portals:rowcount@ gt 0>
-    Goto portal <b><a href="portal-show.tcl?portal_id=@users_portals.portal_id@">@users_portals.name@</a></b> (<b><a href="portal-config?portal_id=@users_portals.portal_id@">edit</a></b>|<b><a href="portal-delete.tcl?portal_id=@users_portals.portal_id@">delete</a></b>)
-    </if>
-    <br>
-</multiple>
-
-<if @users_portals:rowcount@ gt 0>
-    <a href="test-api">Create another portal</a>
-</if>
+<else>
+  <ul>
+    <multiple name=users_portals>
+      <li><a href="portal-show.tcl?portal_id=@users_portals.portal_id@">@users_portals.name@</a> 
+      <small>[<a href="portal-config?portal_id=@users_portals.portal_id@">edit</a>]</li></small>
+    </multiple>
+  </ul>
+</else>
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/new-portal/www/admin/master.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/new-portal/www/admin/master.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/new-portal/www/admin/portal-config.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/admin/portal-config.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/admin/portal-config.adp	29 Mar 2002 18:48:29 -0000	1.2
+++ openacs-4/packages/new-portal/www/admin/portal-config.adp	2 Apr 2002 07:31:22 -0000	1.3
@@ -18,8 +18,9 @@
 
 %>
 
-<master src="master">
-<property name="title">Configure page: @name@</property>
-<p>
+<master>
+<property name="title">Configure portal: @name@</property>
 
+Configure portal: @name@
+
 @rendered_page@
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.2 -r1.3
--- openacs-4/packages/new-portal/www/admin/portal-config.tcl	29 Mar 2002 18:48:29 -0000	1.2
+++ openacs-4/packages/new-portal/www/admin/portal-config.tcl	2 Apr 2002 07:31:22 -0000	1.3
@@ -29,6 +29,10 @@
 # Get the portal's name for the title
 set name [portal::get_name $portal_id]
 
+ad_return_complaint 1 "foo [portal::get_name $portal_id]/$name/$portal_id"
+
+ad_script_abort
+
 set rendered_page [portal::configure $portal_id "index.tcl"]
 
 ad_return_template