Index: openacs-4/packages/new-portal/www/portal-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/portal-ae.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/www/portal-ae.tcl	29 Sep 2001 18:08:38 -0000	1.2
+++ openacs-4/packages/new-portal/www/portal-ae.tcl	30 Sep 2001 19:04:12 -0000	1.3
@@ -25,6 +25,8 @@
     if { $owner_id != $user_id } {
 	# They are not allowed XXX perms
 	return
+    } else {
+	set owner_where $user_id
     }
 }
 
@@ -59,17 +61,14 @@
     # there's no data at all.  Just return the template.
     set title "Create a New Portal"
     set name {}
-    set template_id {}
     ad_return_template
     return
 } else {
     set title "Edit Your Portal"
     # the portal we're editing exists.  Return it.
     db_1row get_portal "select
-       portal_id,
-       name,
-       template_id
-     from portals
-     where package_id = :package_id and $owner_where"
+    name
+    from portals
+    where portal_id = :portal_id"
     ad_return_template
 }