Index: openacs-4/packages/new-portal/www/master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/master.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/master.adp	28 Sep 2001 21:03:34 -0000	1.1
@@ -0,0 +1,9 @@
+
+
+<%= [ad_header $title $extra_stuff] %> 
+<h2>@title@</h2> 
+<%= [eval ad_context_bar $context_bar] %> 
+<hr> 
+<slave> 
+<br clear="all"> 
+<%= [ad_footer] %>
Index: openacs-4/packages/new-portal/www/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/master.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/master.tcl	28 Sep 2001 21:05:19 -0000	1.1
@@ -0,0 +1,27 @@
+# www/master.tcl
+
+ad_page_contract {
+    Portal master template.
+
+    @author Arjun Sanyal
+    @creation-date 9/28/2001
+    @cvs-id $Id: master.tcl,v 1.1 2001/09/28 21:05:19 oracle Exp $
+}
+
+# This could be implemented entirely using the default master if it
+# supplied a method for adding stuff to the document header.  I heard
+# somewhere that it will soon, so maybe we'll switch to doing that
+# soon.
+
+set css_path [ad_parameter css_path]
+
+if { [exists_and_not_null css_path] } {
+    # if it starts with a "/", it's outside of this package.
+    if { [regexp {^/} $css_path] } {
+	set extra_stuff "<link rel=\"stylesheet\" href=\"$css_path\" type=\"text/css\">"
+    } else {
+	set extra_stuff "<link rel=\"stylesheet\" href=\"[ad_conn package_url]$css_path\" type=\"text/css\">"
+    }
+} else {
+    set extra_stuff {}
+}
Index: openacs-4/packages/new-portal/www/portal-ae.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/portal-ae.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/portal-ae.adp	28 Sep 2001 21:01:43 -0000	1.1
@@ -0,0 +1,53 @@
+<!-- www/admin/portal-ae.adp-->
+
+<master src="@master_template@">
+<property name="title">@title@</property>
+
+<form action="portal-ae-2">
+<%= [export_form_vars portal_id] %>
+
+<p>
+First, tell us what this portal should be named:<br>
+<b>Name:</b> <input type="text" name="name" value="@name@">
+</p>
+
+
+<if @layout_count@ gt 1>
+<p>
+Next, tell us what sort of layout should be used for this portal
+
+<br>
+
+<table border=0>
+<tr>
+
+<multiple name="layouts">
+<td>
+  <table border=0>
+  <tr>
+  <td>
+   <input type=radio name=layout_id value="@layouts.layout_id@" <if @layout_id@ eq @layouts.layout_id@>checked</if>>
+    <b>@layouts.name@</b><br>
+    <table border=0 align=center>
+      <tr><td>
+        <include src="@layouts.resource_dir@/example" resource_dir="@layouts.resource_dir@">
+      </td></tr>
+    </table>
+    <font size=-1>
+    @layouts.description@
+    </font>
+  </td>
+  </tr>
+  </table>
+</td>
+</multiple>
+
+</tr>
+</table>
+</p>
+</if>
+
+<center>
+<input type=submit value="Next &gt;&gt;">
+</center>
+</form>
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/portal-ae.tcl	28 Sep 2001 20:59:49 -0000	1.1
@@ -0,0 +1,75 @@
+# www/portal-ae.tcl
+
+ad_page_contract {
+    Add/edit a portal.
+
+    @author Arjun Sanyal
+    @creation-date 9/28/2001
+    @cvs-id $Id: portal-ae.tcl,v 1.1 2001/09/28 20:59:49 oracle Exp $
+} {
+    portal_id:naturalnum,notnull,optional,object_write
+}
+
+set user_id [ad_conn user_id]
+set master_template [ad_parameter master_template]
+set create_p 0
+
+# Did we get a portal_id passed in? 
+# If not, let make a new one!
+if { ! [info exists portal_id] } {
+    set create_p 1
+    set portal_id [db_nextval acs_object_id_seq]
+} else {
+    # We got a portal_id, check if the user is allowed to mess with it
+    db_1row select_owner_id "select owner_id from portals where portal_id = :portal_id"
+    if { $owner_id != $user_id } {
+	# They are not allowed XXX perms
+	return
+    }
+}
+
+
+# get the layouts
+set layout_count 0
+template::multirow create layouts layout_id name description filename resource_dir checked
+
+db_foreach get_layouts "
+select 
+layout_id, 
+name, 
+description, 
+filename, 
+resource_dir, 
+' ' as checked
+from portal_layouts
+order by name" {
+    if { ! [ regexp {^/} $resource_dir] } {
+	# aks - need this resource dir to be a param
+	set resource_dir "/packages/new-portal/www/$resource_dir"
+    }
+
+    # this is evil and broken.  
+    # I should be able to pass it a list, straight from db_list.
+    template::multirow append layouts $layout_id $name $description $filename $resource_dir $checked
+    incr layout_count
+}
+
+# now, get the correct data and return it.
+if {$create_p} {
+    # 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"
+    ad_return_template
+}