Index: openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl	13 Jan 2005 13:55:49 -0000	1.2
@@ -0,0 +1,297 @@
+ad_page_contract {
+    
+    @author rhs@mit.edu
+    @author bquinn@arsidigta.com
+    @creation-date 2000-09-09
+    @cvs-id $Id: site-map.tcl,v 1.2 2005/01/13 13:55:49 jeffd Exp $
+    
+} {
+    {expand:integer,multiple ""}
+    {new_parent:integer ""}
+    {new_type ""}
+    {root_id:integer ""}
+    {new_application:integer ""}
+    {rename_application:integer {}}
+}
+
+if {[empty_string_p $root_id]} {
+    set root_id [ad_conn node_id]
+}
+
+# We do a check for the admin privilege because a user could have
+# admin privilege on a site_node that has other site_nodes beneath it
+# that the user does not have admin privilege on.  If we don't do this
+# check, the user could end up making changes on site_nodes that he
+# does not have the admin privilege for.
+
+array set node [site_node::get -node_id $root_id]
+set parent_id $node(parent_id)
+set object_id $node(object_id)
+
+if {![empty_string_p $object_id]} {
+    ad_require_permission $object_id admin
+}
+
+if {![empty_string_p $new_parent]} {
+    set javascript "onLoad=\"javascript:document.new_parent.name.focus();document.new_parent.name.select()\""
+} elseif {![empty_string_p $new_application]} {
+    set javascript "onLoad=\"javascript:document.new_application.instance_name.focus();document.new_application.instance_name.select()\""
+} elseif {![empty_string_p $rename_application]} {
+   set javascript "onLoad=\"javascript:document.rename_application.instance_name.focus();document.rename_application.instance_name.select()\""
+} else {
+    set javascript ""
+}
+set javascript "onload=\"javascript:document.check_checkbox()\""
+
+
+set parent_link ".?[export_url_vars expand:multiple root_id=$parent_id]"
+
+set page_title "Build Your Site Map "
+set context [list $page_title]
+
+set user_id [ad_conn user_id]
+
+db_foreach path_select {} {
+    if {$node_id != $root_id && $admin_p == "t"} {
+	append head "<a href=.?[export_url_vars expand:multiple root_id=$node_id]>"
+    }
+    if {[empty_string_p $name]} {
+	append head "$obj_name:"
+    } else {
+	append head $name
+    }
+    
+    if {$node_id != $root_id && $admin_p == "t"} {
+	append head "</a>"
+    }
+    
+    if {$directory_p == "t"} {
+	append head "/"
+    }
+} if_no_rows {
+    append head "&nbsp;"
+}
+
+if {[llength $expand] == 0} {
+    lappend expand $root_id 
+    if { ![empty_string_p $parent_id] } {
+        lappend expand $parent_id
+    }
+}
+
+set return_url [ad_return_url]
+template::list::create \
+    -name nodes \
+    -multirow nodes \
+    -key node_id \
+    -has_checkboxes \
+    -bulk_actions {
+	"Allow for view" "allow-for-view" 
+    } \
+    -bulk_action_method post \
+    -bulk_action_export_vars { return_url } \
+    -elements {
+	checkbox {
+	    display_template {
+		<if @nodes.instance_url@ eq "/">
+  		    <input type="checkbox" name="checkbox" checked disabled>
+		    <input type="hidden" name="checkbox" value=@nodes.node_id@>
+		</if>
+		<else>
+		    <if @nodes.view_p@ eq t>
+		        <input type="checkbox" name="checkbox" value=@nodes.node_id@ checked> 
+		    </if>
+		    <else>
+                        <input type="checkbox" name="checkbox" value=@nodes.node_id@ >  
+		    </else>
+		</else>
+	    }
+	}
+	 name {
+            label "URL"
+            html "align left"
+	    display_template {
+		<a name="@nodes.node_id@">@nodes.tree_indent;noquote@</a>
+		<if @nodes.expand_mode@ gt 0>
+		    <b>@nodes.name;noquote@</b>
+		</if>
+		<else>
+		    @nodes.name;noquote@
+		</else>
+
+		<if @nodes.expand_mode@ eq 1>
+		    <a href="?@nodes.expand_url@#@nodes.node_id@"><img border=0 src=/resources/down.gif></a>
+		</if>
+		<if @nodes.expand_mode@ eq 2>
+                    <a href="?@nodes.expand_url@#@nodes.node_id@"><img border=0 src=/resources/up.gif></a>
+                </if>
+		<if @nodes.action_type@ eq "new_folder">
+		<a name="add" />
+		<form name=new_parent action=new>
+		@nodes.tree_indent;noquote@
+		@nodes.action_form_part;noquote@
+		<input name=name type=text size=8 value=Untitled>
+		<input type=submit value=New>
+		</form>
+		</if>
+	    }
+        } instance {
+            label "Instance"
+            html "align left"
+	    display_template {
+		<if @nodes.action_type@ eq "new_app">
+		<a name="new" />
+		<form name=new_application action=package-new>
+		<input name=instance_name type=text size=8 value="">
+		@nodes.action_form_part;noquote@
+		<input type=submit value=New>
+		</form>
+		</if>
+		<if @nodes.action_type@ eq "rename_app">
+		<a name="rename" />
+		<form name=rename_application action=rename>
+		<input name=instance_name type=text value="@nodes.instance@">
+		@nodes.action_form_part;noquote@
+		<input type=submit value=Rename>
+		</form>
+		</if>
+		<else>
+		<a href="@nodes.instance_url@">@nodes.instance;noquote@</a>
+		</else>
+	    }
+        } type {
+            label "Package Type"
+            html "align left"
+	    display_template {
+		@nodes.type;noquote@
+	    }
+        }
+    }
+
+multirow create nodes node_id expand_mode expand_url tree_indent name name_url instance instance_url type action_type action_form_part add_folder_url new_app_url unmount_url mount_url rename_url delete_url parameters_url permissions_url extra_form_part view_p
+set open_nodes [list]
+
+db_foreach nodes_select {} {
+    set add_folder_url ""
+    set new_app_url ""
+    set unmount_url ""
+    set mount_url ""
+    set rename_url ""
+    set delete_url ""
+    set parameters_url ""
+    set permissions_url ""
+    if { [lsearch -exact $open_nodes $parent_id] == -1 && $parent_id != "" && $mylevel > 2 } { continue } 
+        
+    if {$directory_p == "t"} {
+	set add_folder_url "?[export_url_vars expand:multiple root_id node_id new_parent=$node_id new_type=folder]"
+	if {[empty_string_p $object_id]} {
+	    set mount_url "mount?[export_url_vars expand:multiple root_id node_id]"
+	    set new_app_url "?[export_url_vars expand:multiple root_id new_application=$node_id]"
+	} else {
+	    # This makes sure you can't unmount the thing that is serving the page you're looking at.
+	    if {[ad_conn node_id] != $node_id} {
+		set unmount_url "unmount?[export_url_vars expand:multiple root_id node_id]"
+	    }
+	    
+	    # Add a link to control permissioning
+	    if {$object_admin_p} {
+		set permissions_url "../../permissions/one?[export_url_vars object_id]"
+		set rename_url "?[export_url_vars expand:multiple root_id rename_application=$node_id]"
+		set delete_url "instance-delete?package_id=$object_id&root_id=$root_id"
+	    }
+	    # Is the object a package?
+	    if {![empty_string_p $package_id]} {
+		if {$object_admin_p && ($parameter_count > 0)} {
+		    set parameters_url "[export_vars -base "/shared/parameters" { package_id {return_url {[ad_return_url]} } }]"
+		}
+	    }
+	}
+    }
+    
+    if {[ad_conn node_id] != $node_id && $n_children == 0 && [empty_string_p $object_id]} {
+	set delete_url "delete?[export_url_vars expand:multiple root_id node_id]"
+    }
+    
+    # use the indent variable to hold current indent level we'll use it later to indent stuff at the end by the amount of the last node
+   set indent ""
+    if { $mylevel != 1 } {
+	if { $mylevel == 2 } {
+	    append indent "&nbsp;&nbsp;"
+	} else {
+	    for {set i 1} {$i <4*$mylevel} {incr i} {
+		append indent "&nbsp;"
+	    }
+	}
+    }
+    set expand_mode 0
+    if {!$root_p && $n_children > 0} {
+	set expand_mode 1
+	set urlvars [list]
+	foreach n $expand {
+	    if {$n == $node_id} {
+		set expand_mode 2
+		lappend open_nodes "$node_id"
+	    } else {
+		lappend urlvars "expand=$n"
+	    }
+	}
+	
+	if { $expand_mode == 1} {
+	    lappend urlvars "expand=$node_id"
+	}
+	
+	lappend urlvars "root_id=$root_id"
+	
+	set expand_url "[join $urlvars "&"]"
+    } else {
+	set expand_url ""
+    }
+    
+    set name_url [export_url_vars expand:multiple root_id=$node_id]
+        
+    set action_type 0
+    set action_form_part ""
+    
+    if {[empty_string_p $object_id]} {
+	if {$new_application == $node_id} {
+	    
+	    set action_type "new_app"
+	    set action_form_part "[export_form_vars expand:multiple root_id node_id new_package_id] [apm_application_new_checkbox]"
+	    
+	    #Generate a package_id for double click protection
+	    set new_package_id [db_nextval acs_object_id_seq]
+	} else {
+	    set action_form_part "(none)"
+	}
+    } elseif {$rename_application == $node_id} {
+	set action_type "rename_app"
+	set action_form_part "[export_form_vars expand:multiple root_id node_id rename_package_id]"
+	
+    } else {}
+    
+    if {$node_id == $new_parent} {
+	set parent_id $new_parent
+	set node_type $new_type	
+	set action_type "new_folder"
+	set action_form_part "[export_form_vars expand:multiple parent_id node_type root_id]"
+    }
+
+    multirow append nodes $node_id $expand_mode $expand_url $indent $name $name_url $object_name $url $package_pretty_name $action_type $action_form_part $add_folder_url $new_app_url $unmount_url $mount_url $rename_url $delete_url $parameters_url $permissions_url "" $view_p
+
+}
+
+#set new_app_form_part_1 "<p align=\"top\"><form name=new_application action=package-new><input type=hidden name=node_id value=$node(node_id) /><input type=hidden name=root_id value=$node(node_id) /><input type=hidden name=new_node_p value=t />[export_form_vars expand:multiple]<input name=node_name type=text size=8></p>"
+
+#set new_app_form_part_2 "<p align=\"top\">[apm_application_new_checkbox]</p>"
+#set new_app_form_part_3 "<p align=\"top\"><input type=submit value=\"Mount Package\"></form></p>"
+#    multirow append nodes "" "" "" "" $new_app_form_part_1 "" "" "" $new_app_form_part_2 "" "" "" "" "" "" "" "" "" "" $new_app_form_part_3
+
+set services ""
+
+db_foreach services_select {} {
+    if {$parameter_count > 0} {
+        append services "<li><a href=\"[export_vars -base "/shared/parameters" { package_id { return_url {[ad_return_url]} } }]\">$instance_name</a>"
+    }
+} if_no_rows {
+    append services "  <li>(none)\n"
+}