- OpenACS 5.9

www/subsites-oracle.xql

+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="subsite_admin_urls">      
+      <querytext>
+      
+    select s.node_id,
+           site_node.url(node_id) as node_url,
+           instance_name,
+	   p.package_id
+    from   site_nodes s, apm_packages p
+    where  s.object_id = p.package_id
+    and    p.package_key in ($package_keys)
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>

www/subsites-postgresql.xql

+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="subsite_admin_urls">      
+      <querytext>
+      
+    select s.node_id,
+           site_node__url(node_id) as node_url,
+           instance_name,
+	   p.package_id
+    from   site_nodes s, apm_packages p
+    where  s.object_id = p.package_id
+    and    p.package_key in ($package_keys)
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>

www/subsites.adp

+<master>
+<property name="doc(title)">@page_title;literal@</property>
+<property name="context">@context;literal@</property>
+
+<h1>@page_title@</h1>
+
+<if @too_many_subsites_p@ gt 0>
+  <p>Too many subsites to display: @subsite_number@</p>
+</if>
+<else>
+<if @subsites:rowcount@ gt 0>
+    <listtemplate name="subsites" style="table-2third"></listtemplate>
+</if>
+</else>
+
+<p>
+<a class="button" href="/admin/subsite-add">#acs-subsite.Create_new_subsite#</a>
+</p>
+
+

www/subsites.tcl

+ad_page_contract {
+    @author Gustaf Neumann
+
+    @creation-date August 15, 2015
+    @cvs-id $Id$
+}
+
+set page_title "Defined Subsites"
+set context [list $page_title]
+
+set package_keys '[join [subsite::package_keys] ',']'
+set subsite_number [db_string count_subsites [subst {
+    select count(*) from apm_packages where package_key in ($package_keys)
+}]]
+
+if {$subsite_number > 500} {
+    set too_many_subsites_p 1
+} else {
+    set too_many_subsites_p 0
+
+    db_multirow -extend { admin_url path_pretty parameter_url} subsites subsite_admin_urls {} {
+        set admin_url "${node_url}admin/"
+        set parameter_url [export_vars -base /shared/parameters {package_id {return_url "[ad_conn url]"}}]
+        set path_pretty $instance_name
+        array set node [site_node::get -node_id $node_id]
+        set parent_id $node(parent_id)
+        
+        while { $parent_id ne "" } {
+            array unset node
+            array set node [site_node::get -node_id $parent_id]
+            set path_pretty "$node(instance_name) > $path_pretty"
+            set parent_id $node(parent_id)
+        }
+    }
+    multirow sort subsites path_pretty
+
+    template::list::create \
+        -name subsites \
+        -multirow subsites \
+        -elements {
+            path_pretty {
+                label "Subsite Name"
+                html {align left}
+            }
+            node_url {
+                label "Pages"
+                link_html { title "Pages of Subsite" }
+                link_url_col node_url
+                display_template {\#acs-admin.Pages#}
+                html {align left}
+            }
+            
+            admin_url {
+                label "Subsite Administration"
+                link_html { title "Subsite Administration" }
+                link_url_col admin_url
+                display_template {<if @subsites.admin_url@ not nil>#acs-admin.Administration#</if>}
+                html {align left}
+            }
+            parameter_url {
+                label "Parameters"
+                link_html {title "Manage Subsite Parameters" }
+                display_template {\#acs-admin.Parameters#}
+                link_url_col parameter_url
+                html {align left}
+            }
+            sitemap {
+                sub_class narrow
+                display_template {
+                    <img src="/shared/images/Edit16.gif" height="16" width="16" alt="Manage sitemap" style="border:0">
+                    
+                }
+                link_url_eval {[export_vars -base /admin/site-map { {root_id $node_id} }]}
+                link_html { title "Manage sitemap" }
+            }
+        }
+}
+
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: