Index: openacs-4/packages/layout-manager/TODO.txt
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/TODO.txt,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/TODO.txt 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,11 @@
+1. Pages and elements should be objects after all, so we can have direct permissions
+ checks on them (restrict an entire page to admins, restrict portal elements to admin).
+
+ Right now check is "if you are priv 'x' on the portal then you can see a priv 'x' portlet".
+ If a portal element was an object, the portlet init code could set perms on the element
+ as it wishes (say, inheriting privs from the package it works with, not the parent
+ portal object).
+
+2. Improve add portlet to portal administration by expanding the portal datasource to
+ include an optional procedure that guides the admin page (a bit like applets in
+ dotlrn).
Index: openacs-4/packages/layout-manager/layout-manager.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/layout-manager.info,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/layout-manager.info 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,41 @@
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="layout-manager" url="http://dotlrn.openforce.net/layout-manager" type="apm_application">
+ <package-name>Layout Manager</package-name>
+ <pretty-plural>Layout Managers</pretty-plural>
+ <initial-install-p>f</initial-install-p>
+ <singleton-p>f</singleton-p>
+
+ <version name="1.0" url="http://dotlrn.openforce.net/layout-manager-1.0.apm">
+ <owner url="mailto:dhogaza@pacifier.com">Don Baccus</owner>
+ <summary>Layout Manager</summary>
+ <release-date>2008-07-15</release-date>
+ <vendor url="http://openacs.org">OpenACS</vendor>
+ <description format="text/plain">The Layout Manager is used to control the layout of sets of pages built from various individual library templates provided by packages. It is a simplified and stand-alone rewrite of the .LRN new-portal package.</description>
+
+ <provides url="layout-manager" version="1.0"/>
+ <requires url="acs-kernel" version="5.5.0d1"/>
+ <requires url="openacs-default-theme" version="5.5.0d1"/>
+
+ <callbacks>
+ <callback type="after-install" proc="layout_manager::install::after_install"/>
+ <callback type="before-uninstall" proc="layout_manager::install::before_uninstall"/>
+ </callbacks>
+ <parameters>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="CacheSize" default="32768" description="Cache size for this instance of the layout manager package" section_name="Performance"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="CreatePrivatePageSets" default="0" description="If set to 1, create private page sets for users. Users will be able to configure their private page sets (number of pages, placement of templates on pages), and, if ThemeChangeable is set true, their private page set theme. If false, a single page set, edited only by layout-manager package admins, will be created and shared by all visitors."/>
+ <parameter datatype="string" min_n_values="1" max_n_values="1" name="DefaultThemeName" default="default" description="The default theme for page sets managed by this instance of the layout manager" section_name="Look and Feel"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="LogDatasourceErrors" default="1" description="Create an entry in the error log whenever an error occurs while evaluating a datasource." section_name="Debug"/>
+ <parameter datatype="string" min_n_values="1" max_n_values="1" name="NavbarClass" default="navbar" description="Use the default ("navbar") if the parent subsite is configured to use the "plain" style of presentation, "subnavbar" if it configured to use the "tabbed" style of presentation." section_name="Look and Feel"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="ShowDatasourceErrors" default="0" description="When set, display datasource errors in lieu of content. Otherwise, a generic error is given." section_name="Debug"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="ShowHideButton" default="0" description="When set, show the "hide" button for page elements if the theme supports it." section_name="Look and Feel"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="ShowShadeButton" default="0" description="When set, show the "shade" button for page elements if the theme supports it." section_name="Look and Feel"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="ShowSingleButtonNavbar" default="0" description="If set true, show the tabbed navigation bar even if there's only one tab on it." section_name="Look and Feel"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="ShowEmptyPages" default="0" description="If set true, show navigation tabs for empty pages." section_name="Look and Feel"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="OldDefaultMaster" description="The template to use as the subsite master template when we've overwritten the subsite's DefaultMaster parameter (this is best maintained by the configuration wizard)." section_name="Look and Feel"/>
+ <parameter datatype="number" min_n_values="1" max_n_values="1" name="ThemeChangeable" default="0" description="If set true, users can change the theme of their page set, if false, they're stuck with the one the administrator choses for them." section_name="Look and Feel"/>
+ </parameters>
+
+ </version>
+</package>
Index: openacs-4/packages/layout-manager/catalog/layout-manager.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/catalog/layout-manager.en_US.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/catalog/layout-manager.en_US.ISO-8859-1.xml 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+<message_catalog package_key="layout-manager" package_version="1.0" locale="en_US" charset="ISO-8859-1">
+
+ <msg key="plain">Portal Plain</msg>
+ <msg key="tabbed">Portal Tabbed</msg>
+ <msg key="nested_tabbed">Portal Nested Tabbed</msg>
+
+ <msg key="simple_1column_layout_description">One columns</msg>
+ <msg key="simple_2column_layout_description">Two columns</msg>
+ <msg key="simple_3column_layout_description">Three columns</msg>
+ <msg key="left_sidebar_layout_description">Left sidebar</msg>
+ <msg key="right_sidebar_layout_description">Right sidebar</msg>
+ <msg key="left_and_right_sidebar_layout_description">Left and right sidebars</msg>
+
+</message_catalog>
Index: openacs-4/packages/layout-manager/lib/add-datasources.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/add-datasources.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/add-datasources.adp 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,5 @@
+<p><i>Add includelets and their associated datasources to this page set.</i></p>
+<listtemplate name="datasources"></listtemplate>
+<if @wizard_p@ true>
+ <formtemplate id="add-datasources"></formtemplate>
+</if>
Index: openacs-4/packages/layout-manager/lib/add-datasources.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/add-datasources.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/add-datasources.tcl 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,77 @@
+ad_page_contract {
+
+ Generate a list of datasources that have supporting portlets.
+
+ The user's returned to the current page after installing the select datasource(s).
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs-id $Id: add-datasources.tcl,v 1.1 2008/07/22 07:31:01 donb Exp $
+
+} { }
+
+set package_id [ad_conn package_id]
+if { ![info exists pageset_id] } {
+ set pageset_id [layout::pageset::get_master_template_id -package_id $package_id]
+}
+
+if { ![info exists return_url] } {
+ set return_url [ad_conn url]?[ad_conn query]
+}
+
+db_multirow -extend {add_url includelets instances} datasources get_datasources {} {
+ set add_url [export_vars -base [ad_conn package_url]add-datasources-2 \
+ { pageset_id datasource return_url }]
+ set includelets [join [db_list get_includelets {}] ", "]
+ db_1row get_instance_count {}
+}
+
+set wizard_p [template::wizard::exists]
+
+# If we're in the wizard and have no datasources or includelets just skip to the next step.
+
+if { $wizard_p && ${datasources:rowcount} == 0 && ${includelets:rowcount} == 0 } {
+ rp_form_put wizard_submit_next wizard_submit_next
+ template::wizard::forward
+}
+
+# Build the list-builder list.
+
+# First, build a list of datasources to add
+
+template::list::create \
+ -name datasources \
+ -multirow datasources \
+ -key datasource \
+ -elements {
+ description {
+ label Datasource
+ }
+ instances {
+ label Instances
+ }
+ includelets {
+ label Includelets
+ }
+ add {
+ label Add
+ link_url_col add_url
+ link_html { title "Add datasource" }
+ display_template {Add}
+ }
+ }
+
+# Now, if we're in the template wizard, generate the wizard form and buttons.
+
+if { $wizard_p } {
+
+ ad_form -name add-datasources -form {
+ foo:text(hidden),optional
+ } -on_submit {
+ template::wizard::forward
+ }
+
+ template::wizard::submit add-datasources -buttons {back next}
+}
+
+ad_return_template
Index: openacs-4/packages/layout-manager/lib/add-datasources.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/add-datasources.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/add-datasources.xql 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,31 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="get_datasources">
+ <querytext>
+ select name as datasource, description
+ from layout_datasources
+ order by description
+ </querytext>
+ </fullquery>
+
+ <fullquery name="get_includelets">
+ <querytext>
+ select title as includelet, name
+ from layout_includelets
+ where datasource = :datasource
+ order by name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="get_instance_count">
+ <querytext>
+ select count(distinct le.package_id) as instances
+ from layout_elements le, layout_includelets li
+ where li.datasource = :datasource
+ and le.includelet_name = li.name
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/lib/column-configure.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/column-configure.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/column-configure.adp 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,43 @@
+<multiple name="elements">
+ <div class="portlet-wrapper">
+ <div class="portlet-header">
+ <div class="portlet-title">
+ <h1>@elements.title;noquote@</h1>
+ </div>
+ <div class="portlet-controls">
+ <a href="@elements.hide_url@">
+ <img src="/resources/layout-manager/images/delete.gif" border="0" alt="remove portlet">
+ </a>
+
+ <if @elements.up_url@ ne "">
+ <a href="@elements.up_url@">
+ <img src="/resources/layout-manager/images/arrow-up.gif" border="0" alt="move up">
+ </a>
+ </if>
+
+ <if @elements.down_url@ ne "">
+ <a href="@elements.down_url@">
+ <img src="/resources/layout-manager/images/arrow-down.gif" border="0" alt="move down">
+ </a>
+ </if>
+
+ <if @elements.right_url@ ne "">
+ <a href="@elements.right_url@">
+ <img src="/resources/layout-manager/images/arrow-right.gif" border="0" alt="move right">
+ </a>
+ </if>
+
+ <if @elements.left_url@ ne "">
+ <a href="@elements.left_url@">
+ <img src="/resources/layout-manager/images/arrow-left.gif" border="0" alt="move left">
+ </a>
+ </if>
+ </div>
+ </div>
+ <div class="portlet">
+ <p>
+ <center><a href="@elements.edit_url@">Edit Properties</a></center>
+ <p>
+ </div>
+ </div>
+</multiple>
Index: openacs-4/packages/layout-manager/lib/column-configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/column-configure.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/column-configure.tcl 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,83 @@
+ad_page_contract {
+
+ Configure a portal page column
+
+ @author Don Baccus (dhogaza@pacifier.com)
+
+}
+
+set return_url [ad_conn url]?[ad_conn query]
+
+# queries need these as a bindvar ...
+set page_id $page(page_id)
+set pageset_id $page(pageset_id)
+
+# See if there's a page before this one
+if { $page(sort_key) > 0 } {
+ db_1row select_prev_page_id {}
+} else {
+ set prev_page_id ""
+}
+
+# See if there's a page after this one (sort_key starts at zero)
+if { $page(sort_key) + 1 < [layout::pageset::get_page_count -pageset_id $pageset_id] } {
+ db_1row select_next_page_id {}
+} else {
+ set next_page_id ""
+}
+
+# Grab all the element information and compute the various motion options
+
+set element_num 1
+db_1row select_element_count {}
+db_multirow -extend {edit_url hide_url up_url down_url left_url right_url} \
+ elements select_elements {} {
+
+ set edit_url [export_vars -base [ad_conn package_url]edit-element \
+ {pageset_id element_id return_url}]
+
+ set hide_url [export_vars -base [ad_conn package_url]pageset-configure-2 \
+ {{op hide} pageset_id element_id page_id return_url}]
+
+ # Set up the "move up" option if possible
+ if { $element_num > 1} {
+ set up_url \
+ [export_vars -base [ad_conn package_url]pageset-configure-2 \
+ {{op move_up} pageset_id element_id page_id return_url}]
+ } elseif { ![string equal $prev_page_id ""] } {
+ set up_url \
+ [export_vars -base [ad_conn package_url]pageset-configure-2 \
+ {{op move_to_page} pageset_id element_id {page_id $prev_page_id} return_url}]
+ }
+
+ # Set up the "move down" option if possible
+ if { $element_num < $element_count } {
+ set down_url \
+ [export_vars -base [ad_conn package_url]pageset-configure-2 \
+ {{op move_down} pageset_id element_id page_id return_url}]
+ } elseif { ![string equal $next_page_id ""] } {
+ set down_url \
+ [export_vars -base [ad_conn package_url]pageset-configure-2 \
+ {{op move_to_page} pageset_id element_id {page_id $next_page_id} return_url}]
+ }
+
+ # If there's more than one column, let the user move the portlet to the right or left
+ if { $column_count > 1 } {
+
+ # if there's space to the right, let them move the portlet right
+ if { $page_column < $column_count } {
+ set right_url \
+ [export_vars -base [ad_conn package_url]pageset-configure-2 \
+ {{op move_right} pageset_id page_id element_id page_column return_url}]
+ }
+
+ # If there's space to the left, let them move the portlet left
+ if { $page_column > 1 } {
+ set left_url \
+ [export_vars -base [ad_conn package_url]pageset-configure-2 \
+ {{op move_left} pageset_id page_id element_id page_column return_url}]
+ }
+ }
+
+ incr element_num
+}
Index: openacs-4/packages/layout-manager/lib/column-configure.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/column-configure.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/column-configure.xql 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,48 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_prev_page_id">
+ <querytext>
+ select page_id as prev_page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ and sort_key = (select sort_key - 1
+ from layout_pages
+ where page_id = :page_id)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_next_page_id">
+ <querytext>
+ select page_id as next_page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ and sort_key = (select sort_key + 1
+ from layout_pages
+ where page_id = :page_id)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_element_count">
+ <querytext>
+ select count(*) as element_count
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column
+ and state <> 'hidden'
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_elements">
+ <querytext>
+ select element_id, name, title, sort_key, state
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column
+ and state <> 'hidden'
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/lib/configure-configurability.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-configurability.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-configurability.adp 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,3 @@
+The following parameters offer the administrator some control over the degree to which
+a user can configure their own personal portal.
+<formtemplate id="configure-configurability"></formtemplate>
Index: openacs-4/packages/layout-manager/lib/configure-configurability.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-configurability.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-configurability.tcl 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,39 @@
+ad_page_contract {
+ Let the admin configure whether or not to present shade and hide buttons on portlets.
+} {
+}
+
+if { ![parameter::get -boolean -parameter CreatePrivatePortals] } {
+ rp_form_put wizard_submit_next wizard_submit_next
+ template::wizard::forward
+}
+
+ad_form -name configure-configurability -form {
+ {ShowShadeButton:boolean(radio)
+ {label "Show \"Shade\" button on portlet title bars?"}
+ {options {{Yes 1} {No 0}}}
+ {help_text "\"No\" will supress the display of \"shade\" widgets in portlet title bars"}
+ }
+ {ShowHideButton:boolean(radio)
+ {label "Show \"Hide\" button on portlet title bars?"}
+ {options {{Yes 1} {No 0}}}
+ {help_text "\"No\" will supress the display of \"hide\" widgets in portlet title bars"}
+ }
+ {ThemeChangeable:boolean(radio)
+ {label "Allow users to change the portlet decoration theme?"}
+ {options {{Yes 1} {No 0}}}
+ {help_text "\"Yes\" will allow the user to change the theme used to display their portal"}
+ }
+} -on_request {
+ set ShowShadeButton [parameter::get -boolean -parameter ShowShadeButton]
+ set ShowHideButton [parameter::get -boolean -parameter ShowHideButton]
+ set ThemeChangeable [parameter::get -boolean -parameter ThemeChangeable]
+ ad_set_form_values ShowShadeButton ShowHideButton
+} -on_submit {
+ parameter::set_value -parameter ShowShadeButton -value $ShowShadeButton
+ parameter::set_value -parameter ShowHideButton -value $ShowHideButton
+ parameter::set_value -parameter ThemeChangeable -value $ThemeChangeable
+ template::wizard::forward
+}
+
+template::wizard::submit configure-configurability -buttons {back next}
Index: openacs-4/packages/layout-manager/lib/configure-finish.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-finish.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-finish.adp 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1 @@
+<formtemplate id="configure-finish"></formtemplate>
Index: openacs-4/packages/layout-manager/lib/configure-finish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-finish.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-finish.tcl 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,11 @@
+# ad_form doesn't like an empty -form block so we've got to provide a dummy
+# field ...
+
+ad_form -name configure-finish -form {
+ foo:text(hidden),optional
+} -on_submit {
+ ad_returnredirect index
+ ad_script_abort
+}
+
+template::wizard::submit configure-finish -buttons {finish}
Index: openacs-4/packages/layout-manager/lib/configure-help.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-help.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-help.adp 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,16 @@
+<p>
+This wizard will take you through the steps necessary to configure the portal package. Before configuring you should:
+<ul>
+<li> Install the applications and portal datasource packages that you want to make available. The wizard will mount the applications you choose and make their portlets available.
+<li> Decide whether or not individual users should have their own private portal
+pages, or whether you want to configure one portal configuration to be shared by
+all visitors. Creating individual private portal pages is more flexible but also consumes
+more system resources.
+<li> Decide whether or not visitors should be able to "hide" or "shade" (shrink) portlets (only
+possible if you decide to give each user their own custom portal).
+<li> Decide the navigation style you wish this portlet and subsite to use.
+<li> Decide whether or not you want the parent subsite to display a portal page rather than
+its standard index page.
+</ul>
+
+<formtemplate id="configure-help"></formtemplate>
Index: openacs-4/packages/layout-manager/lib/configure-help.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-help.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-help.tcl 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,10 @@
+# ad_form doesn't like an empty -form block so we've got to provide a dummy
+# field ...
+
+ad_form -name configure-help -form {
+ foo:text(hidden),optional
+} -on_submit {
+ template::wizard::forward
+}
+
+template::wizard::submit configure-help -buttons {back next}
Index: openacs-4/packages/layout-manager/lib/configure-private-pagesets.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-private-pagesets.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-private-pagesets.adp 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,8 @@
+Check "Yes" if you'd like the layout manager package to create each user their own custom
+page set configuration. This will allow users to to move includelets from column to column
+or page to page, to hide includelets, etc.
+<p>
+Check "no" if you want users to share a single page set configuration. This is more
+efficient of system resources but only administrators will be able to reconfigure
+the layout.
+<formtemplate id="configure-private-pagesets"></formtemplate>
Index: openacs-4/packages/layout-manager/lib/configure-private-pagesets.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-private-pagesets.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-private-pagesets.tcl 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,19 @@
+ad_page_contract {
+ Let the admin configure whether or not we should create a portal for every visitor.
+} {
+}
+
+ad_form -name configure-private-pagesets -form {
+ {CreatePrivatePageSets:boolean(radio)
+ {label "Create a page set for every user?"}
+ {options {{Yes 1} {No 0}}}
+ }
+} -on_request {
+ set CreatePrivatePageSets [parameter::get -boolean -parameter CreatePrivatePageSets]
+ ad_set_form_values CreatePrivatePageSets
+} -on_submit {
+ parameter::set_value -parameter CreatePrivatePageSets -value $CreatePrivatePageSets
+ template::wizard::forward
+}
+
+template::wizard::submit configure-private-pagesets -buttons {back next}
Index: openacs-4/packages/layout-manager/lib/configure-subsite-integration.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-subsite-integration.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-subsite-integration.adp 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1 @@
+<formtemplate id="configure-subsite-integration"></formtemplate>
Index: openacs-4/packages/layout-manager/lib/configure-subsite-integration.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/configure-subsite-integration.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/configure-subsite-integration.tcl 22 Jul 2008 07:31:01 -0000 1.1
@@ -0,0 +1,62 @@
+ad_page_contract {
+ Configure the portal package's interaction with the subsite package in the 'ole
+ look and feel department.
+} {
+}
+
+ad_form -name configure-subsite-integration -form {
+ {template_style:integer(radio)
+ {options {{"Tabbed navigation integrated with existing subsite theme" 0}
+ {"Use existing subsite theme (works best if there's only one portal page)" 1}}}
+ {values {0}}
+ {label "Choose navigation style?"}
+ }
+ {portal_index_page_p:boolean(radio)
+ {options {{Yes 1} {No 0}}}
+ {values {1}}
+ {label "Should the parent subsite serve the portal package as its index page?"}
+ }
+ {show_single_button_navbar_p:boolean(radio)
+ {options {{Yes 1} {No 0}}}
+ {values {0}}
+ {label "Should we show the navigation tabs when there's only one of them?"}
+ }
+} -on_submit {
+
+ switch $template_style {
+
+ 0 {parameter::set_value \
+ -parameter OldDefaultMaster \
+ -package_id [ad_conn package_id] \
+ -value [parameter::get -package_id [ad_conn subsite_id] \
+ -parameter DefaultMasterTemplate]
+ parameter::set_value \
+ -parameter DefaultMaster \
+ -package_id [ad_conn subsite_id] \
+ -value /packages/layout-manager/lib/tabbed-master
+ }
+
+ 2 {parameter::set_value \
+ -parameter OurMasterTemplate \
+ -package_id [ad_conn package_id] \
+ ""
+ }
+
+ }
+
+ if { $portal_index_page_p } {
+ parameter::set_value \
+ -parameter IndexRedirectUrl \
+ -package_id [ad_conn subsite_id] \
+ -value [ad_conn package_url]
+ }
+
+ parameter::set_value \
+ -parameter ShowSingleButtonNavbar \
+ -package_id [ad_conn package_id] \
+ -value $show_single_button_navbar_p
+
+ template::wizard::forward
+}
+
+template::wizard::submit configure-subsite-integration -buttons {back next}
Index: openacs-4/packages/layout-manager/lib/layout-manager-admin-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/layout-manager-admin-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/layout-manager-admin-includelet.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1 @@
+<include src="/packages/layout-manager/lib/layout-manager-admin">
Index: openacs-4/packages/layout-manager/lib/layout-manager-admin.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/layout-manager-admin.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/layout-manager-admin.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,10 @@
+<ul>
+ <li><a href="@configure_url@">Run the configuration wizard</a>
+ <if @datasource_count@ gt 0>
+ <li><a href="@add_datasources_url@">Add new datasources and includelets</a>
+ </if>
+ <li><a href="@edit_pageset_template_url@">Edit the layout manager master layout</a>
+ <if @user_pagesets_p@>
+ <li><a href="@user-pagesets@">Edit user pages ets</a>
+ </if>
+</ul>
Index: openacs-4/packages/layout-manager/lib/layout-manager-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/layout-manager-admin.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/layout-manager-admin.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,30 @@
+ad_page_contract {
+
+ Main administration page for the layout manager package. Return to the script which
+ has included us.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs-id $Id: layout-manager-admin.tcl,v 1.1 2008/07/22 07:31:02 donb Exp $
+} {
+}
+
+set package_id [ad_conn package_id]
+set base_url [ad_conn package_url]
+set return_url [ad_conn url]?[ad_conn query]
+
+set package_edit_p [expr { ![info exists pageset_id] }]
+if { $package_edit_p } {
+ set pageset_id [layout::pageset::get_master_template_id -package_id $package_id]
+}
+
+set edit_pageset_template_url \
+ [export_vars -base ${base_url}pageset-configure {return_url pageset_id}]
+set configure_url [export_vars -base ${base_url}admin/configure {return_url pageset_id}]
+set add_datasources_url [export_vars -base ${base_url}add-datasources {return_url pageset_id}]
+set user_pagesets_p [expr { [parameter::get -parameter CreatePrivatePageSets] && $package_edit_p }]
+if { $user_pagesets_p } {
+ set user_pagesets_url [export_vars -base ${base_url}admin/user-portals {pageset_id return_url}]
+}
+db_1row count_datasources {}
+
Index: openacs-4/packages/layout-manager/lib/layout-manager-admin.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/layout-manager-admin.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/layout-manager-admin.xql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="count_datasources">
+ <querytext>
+ select count(*) as datasource_count
+ from layout_datasources
+ </querytext>
+ </fullquery>
+
+</queryset>
+
+ad_return_template
Index: openacs-4/packages/layout-manager/lib/nested-tabbed-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/nested-tabbed-master.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/nested-tabbed-master.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,122 @@
+<master src="@master_template@">
+ <if @title@ not nil>
+ <property name="title">@title;noquote@</property>
+ </if>
+ <if @signatory@ not nil>
+ <property name="signatory">@signatory;noquote@</property>
+ </if>
+ <if @focus@ not nil>
+ <property name="focus">@focus;noquote@</property>
+ </if>
+
+<div id="subsite-name">
+ <if @subsite_url@ not nil><a href="@subsite_url@" class="subsite-name">@subsite_name@</a></if>
+ <else>@subsite_name@</else>
+</div>
+
+<!-- Top level navigation -->
+
+<div id="navbar-div">
+ <div id="navbar-container">
+ <div id="navbar">
+ <multiple name="sections">
+ <if @sections.selected_p@ true>
+ <div class="tab" id="navbar-here">
+ <if @sections.link_p@ true>
+ <a href="@sections.url@" title="@sections.title@">@sections.label@</a>
+ </if>
+ <else>
+ @sections.label@
+ </else>
+ </div>
+ </if>
+ <else>
+ <div class="tab">
+ <if @sections.link_p@ true>
+ <a href="@sections.url@" title="@sections.title@">@sections.label@</a>
+ </if>
+ <else>
+ @sections.label@
+ </else>
+ </div>
+ </else>
+ </multiple>
+ </div>
+ </div>
+</div>
+<div id="navbar-body">
+
+<!-- Second level navigation -->
+
+ <if @subsections:rowcount@ gt 0 or @package_id@ ne "">
+ <div id="subnavbar-div">
+ <div id="subnavbar-container">
+ <div id="subnavbar">
+ <if @subsections:rowcount@ gt 0>
+ <multiple name="subsections">
+ <if @subsections.selected_p@ true>
+ <div class="tab" id="subnavbar-here">
+ <if @subsections.link_p@ true>
+ <a href="@subsections.url@" title="@subsections.title@">@subsections.label@</a>
+ </if>
+ <else>
+ @subsections.label@
+ </else>
+ </div>
+ </if>
+ <else>
+ <div class="tab">
+ <if @subsections.link_p@ true>
+ <a href="@subsections.url@" title="@subsections.title@">@subsections.label@</a>
+ </if>
+ <else>
+ @subsections.label@
+ </else>
+ </div>
+ </else>
+ </multiple>
+ </if>
+ <elseif @package_id@ ne "" and @page_num@ not nil>
+ <multiple name="portal_pages">
+ <if @portal_pages.page_num@ eq @page_num@
+ and @portal_id@ not nil and @portal_pages.portal_id@ eq @portal_id@>
+ <div class="tab" id="subnavbar-here">
+ @portal_pages.name@
+ </div>
+ </if>
+ <else>
+ <div class="tab">
+ <a href="@portal_pages.url@" title="@portal_pages.name@">@portal_pages.name@</a>
+ </div>
+ </else>
+ </multiple>
+ <if @application@ not nil>
+ <div class="tab" id="subnavbar-here">
+ @application@
+ </div>
+ </if>
+ </elseif>
+ </div>
+ </div>
+ </div>
+ <div id="subnavbar-body">
+ </if>
+
+ <!-- Body -->
+
+ <if @portal_page_p@>
+ <slave>
+ </if>
+ <else>
+ <include src="@theme_template@" title="@title@" &="__adp_slave">
+ </else>
+
+ <div style="clear: both;"></div>
+
+ <if @subsections:rowcount@ gt 0 or @package_id ne "">
+ </div>
+ </if>
+</div>
+
+
+
Index: openacs-4/packages/layout-manager/lib/nested-tabbed-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/nested-tabbed-master.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/nested-tabbed-master.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,83 @@
+# Expects properties:
+# title
+# focus
+# header_stuff
+# section
+# subnavbar_link
+
+if { ![info exists section] } {
+ set section {}
+}
+
+if { ![info exists header_stuff] } {
+ set header_stuff {}
+}
+
+if { ![info exists subnavbar_link] } {
+ set subnavbar_link {}
+}
+
+if { ![info exists title] } {
+ set title ""
+}
+
+set subsite_node_id [site_node::get_node_id_from_object_id -object_id [ad_conn subsite_id]]
+set portal_url [lindex [site_node::get_children -node_id $subsite_node_id -package_key portal] 0]
+
+set package_id [site_node::get_object_id -node_id [site_node::get_node_id -url $portal_url]]
+set package_node_id [site_node::get_node_id_from_object_id -object_id $package_id]
+set portal_page_p 0
+
+set user_portal_id [portal::get_user_portal_id -package_id $package_id]
+set which_navbar [parameter::get -package_id $package_id -parameter NavbarClass]
+set portal_url [site_node::get_url_from_object_id -object_id $package_id]
+array set theme [portal::theme::get -theme_id [portal::get_theme_id -portal_id $user_portal_id]]
+set theme_template $theme(template)
+set master_template [parameter::get -package_id $package_id -parameter SiteMasterTemplate]
+
+db_multirow -unclobber -extend {url} portal_pages select_user_portal_pages {} {
+ set url [export_vars -base $portal_url {portal_id page_num}]
+ if { [string equal $url $portal_url] } {
+ set portal_page_p 1
+ }
+}
+
+if { [permission::permission_p \
+ -object_id [portal::get_admin_portal_id -package_id $package_id] \
+ -privilege admin] } {
+ db_multirow -unclobber -append -extend {url} portal_pages select_admin_portal_pages {} {
+ set url [export_vars -base $portal_url {portal_id page_num}]
+ if { [string equal $url $portal_url] } {
+ set portal_page_p 1
+ }
+ }
+}
+
+array set site_node [site_node::get_from_url \
+ -url [ad_conn package_url] \
+ -exact]
+
+if { $site_node(parent_id) == $package_node_id } {
+ set application $site_node(instance_name)
+} elseif {$site_node(object_id) == $package_id } {
+ set portal_page_p 1
+}
+
+
+# This will set 'sections' and 'subsections' multirows
+subsite::define_pageflow -section $section
+subsite::get_section_info -array section_info
+
+# Find the subsite we belong to
+set subsite_url [site_node_closest_ancestor_package_url]
+array set subsite_sitenode [site_node::get -url $subsite_url]
+set subsite_node_id $subsite_sitenode(node_id)
+set subsite_name $subsite_sitenode(instance_name)
+
+# Where to find the stylesheet
+set css_url "/resources/acs-subsite/group-master.css"
+
+if { [string equal [ad_conn url] $subsite_url] } {
+ set subsite_url {}
+}
+
Index: openacs-4/packages/layout-manager/lib/nested-tabbed-master.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/nested-tabbed-master.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/nested-tabbed-master.xql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_user_portal_pages">
+ <querytext>
+ select name, sort_key as page_num, portal_id
+ from portal_pages
+ where portal_id = :user_portal_id
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+
+ <fullquery name="select_admin_portal_pages">
+ <querytext>
+ select name, 0 as page_num, portal_id
+ from portals
+ where owner_id = :package_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/lib/page-configure.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/page-configure.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/page-configure.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,100 @@
+
+<table class="portal-page" cellpadding="0" cellspacing="4" width="100%">
+
+ <tr width="100%">
+ <td align="left" width="100%" colspan="0">
+ <table>
+ <tr>
+ <td align="left">
+ <form method="post" action="@package_url@pageset-configure-2">
+ <strong>Page:</strong>
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <input type="hidden" name="page_id" value="@page_id@">
+ <input type="text" name="name" value="@page.name@">
+ <input type="hidden" name="op" value="rename_page">
+ <input type=submit value="Rename">
+ </form>
+ </td>
+
+ <td align="left">
+ <form method="post" action="@package_url@pageset-configure-2">
+ <strong>Theme:</strong>
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <input type="hidden" name="page_id" value="@page_id@">
+ <input type="hidden" name="op" value="change_page_theme">
+ <select name="page_theme">
+ <option value=""<if @page.theme@ eq ""> selected</if>></option>
+ <multiple name="page_themes">
+ <option value="@page_themes.name@"
+ <if @page_themes.name@ eq @page.theme@> selected</if>>
+ @page_themes.description@
+ </option>
+ </multiple>
+ </select>
+ <input type=submit value="Update">
+ </form>
+ </td>
+
+ <if @has_visible_elements_p@ false>
+ <td align="left">
+ <form method="post" action="@package_url@pageset-configure-2">
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <input type="hidden" name="page_id" value="@page_id@">
+ <input type="hidden" name="op" value="change_page_template">
+ <strong>Template:</strong>
+ <select name="page_template">
+ <multiple name="page_templates">
+ <option value="@page_templates.name@"
+ <if @page_templates.name@ eq @page.page_template@> selected</if>>
+ @page_templates.description@
+ </option>
+ </multiple>
+ </select>
+ <input type=submit value="Update">
+ </form>
+ </td>
+ </if>
+ </tr>
+ </table>
+ </td>
+ </tr>
+
+ <tr width="100%">
+ <if @has_visible_elements_p@ false>
+ <td colspan="3">
+ <center>
+ No Elements on this page
+ <if @page.sort_key@ ne 0>
+ <form method="post" action="@package_url@pageset-configure-2">
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <input type="hidden" name="page_id" value="@page_id@">
+ <input type="hidden" name="op" value="remove_page">
+ <input type="submit" value="Remove Empty Page">
+ </form>
+ </if>
+ </center>
+ </td>
+ </if>
+ <else>
+ <td align="left" width="100%">
+ <table cellpadding="0" cellspacing="4" width="100%">
+ <tr width="100%">
+ <list name="column_list">
+ <td valign="top" align="left" width="@column_width@">
+ <include src="/packages/layout-manager/lib/column-configure"
+ &="page"
+ column_count="@page_template.columns@"
+ page_column="@column_list:item@">
+ </td>
+ </list>
+ </tr>
+ </table>
+ </td>
+ </else>
+ </tr>
+</table>
+
Index: openacs-4/packages/layout-manager/lib/page-configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/page-configure.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/page-configure.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,31 @@
+ad_page_contract {
+
+ Configure one page within a page set.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+
+}
+
+set return_url [ad_conn url]?[ad_conn query]
+set package_url [ad_conn package_url]
+
+array set page [layout::page::get -page_id $page_id]
+array set page_template [layout::page_template::get -name $page(page_template)]
+
+# Get the layouts for the change layout widget
+db_multirow page_templates select_page_templates {}
+db_multirow page_themes select_page_themes {}
+
+# Build the column list since the template engine has no way to generate an
+# iterator
+
+set column_list [list]
+for { set i 1 } { $i <= $page_template(columns) } { incr i } {
+ lappend column_list $i
+}
+
+# Compute the column widths for the region table
+
+set column_width [expr {100/$page_template(columns)}]%
+
+set has_visible_elements_p [layout::page::has_visible_elements -page_id $page_id]
Index: openacs-4/packages/layout-manager/lib/page-configure.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/page-configure.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/page-configure.xql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,21 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_page_templates">
+ <querytext>
+ select name, description
+ from layout_page_templates
+ order by description
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_page_themes">
+ <querytext>
+ select name, description
+ from layout_themes
+ order by description
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/lib/pageset-configure.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/pageset-configure.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/pageset-configure.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,55 @@
+<form method=post action="@package_url@pageset-configure-2">
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <input type="hidden" name="op" value="change_theme">
+ <strong>Page Set Theme:</strong>
+ <select name="theme">
+ <multiple name="themes">
+ <option value="@themes.name@" <if @current_theme@ eq @themes.name@> selected</if>>@themes.description@</option>
+ </multiple>
+ </select>
+ <input type=submit value="Update">
+</form>
+
+<if @hidden_elements:rowcount@ ne 0>
+ <form method=post action="@package_url@pageset-configure-2">
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <input type="hidden" name="page_id" value="@first_page_id@">
+ <input type="hidden" name="op" value="show_here">
+ <select name="element_id">
+ <multiple name="hidden_elements">
+ <option value="@hidden_elements.element_id@">@hidden_elements.title@</option>
+ </multiple>
+ </select>
+ <input type="submit" value="Add Hidden Portlet">
+ </form>
+</if>
+
+<multiple name="page_ids">
+ <p>
+ <include src="/packages/layout-manager/lib/page-configure" pageset_id="@pageset_id@" page_id="@page_ids.page_id@" page_count="@page_count@">
+ <p>
+</multiple>
+
+<form method=post action="@package_url@pageset-configure-2">
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <b>Add a new page:</b>
+ <input type="text" name="name" value="Page @new_page_num@">
+ <input type="hidden" name=op value="add_page">
+ <input type="submit" value="Add Page">
+</form>
+
+<if @template_id@ not nil>
+ <form method=post action="@package_url@pageset-configure-2">
+ <input type="hidden" name="return_url" value="@return_url@">
+ <input type="hidden" name="pageset_id" value="@pageset_id@">
+ <b>Revert to the default arrangement:</b>
+ <input type=submit name=op value="Revert">
+ </form>
+</if>
+
+<if @wizard_p@ true>
+ <formtemplate id="add-applications"></formtemplate>
+</if>
Index: openacs-4/packages/layout-manager/lib/pageset-configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/pageset-configure.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/pageset-configure.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,42 @@
+ad_page_contract {
+
+ Configure a page set
+
+ @author Don Baccus (dhogaza@pacifier.com)
+
+} {
+}
+
+set return_url [ad_conn url]?[ad_conn query]
+set package_url [ad_conn package_url]
+
+# If we're called from the configuration wizard, pageset_id is not defined but we
+# know we're configuting the master template.
+
+if { ![info exists pageset_id] } {
+ set pageset_id [layout::pageset::get_master_template_id]
+}
+
+set current_theme [layout::pageset::get_column_value -pageset_id $pageset_id -column theme]
+set first_page_id [lindex [layout::pageset::get_page_list -pageset_id $pageset_id] 0]
+db_multirow themes select_themes {}
+db_multirow hidden_elements select_hidden_elements {}
+db_multirow page_ids select_page_ids {}
+set page_count [layout::pageset::get_page_count -pageset_id $pageset_id]
+set new_page_num [expr {$page_count + 1}]
+
+# Now, if we're in the template wizard, generate the wizard form and buttons.
+
+set wizard_p [template::wizard::exists]
+if { $wizard_p } {
+
+ ad_form -name add-applications -form {
+ foo:text(hidden),optional
+ } -on_submit {
+ template::wizard::forward
+ }
+
+ template::wizard::submit add-applications -buttons {back next}
+}
+
+ad_return_template
Index: openacs-4/packages/layout-manager/lib/pageset-configure.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/pageset-configure.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/pageset-configure.xql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,33 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_themes">
+ <querytext>
+ select name, description
+ from layout_themes
+ order by name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_hidden_elements">
+ <querytext>
+ select le.element_id, le.title
+ from layout_elements le, layout_pages lp
+ where lp.pageset_id = :pageset_id
+ and lp.page_id = le.page_id
+ and le.state = 'hidden'
+ order by le.name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_page_ids">
+ <querytext>
+ select page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/lib/plain-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/plain-master.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/plain-master.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,52 @@
+<master>
+ <if @signatory@ not nil>
+ <property name="signatory">@signatory;noquote@</property>
+ </if>
+ <if @focus@ not nil>
+ <property name="focus">@focus;noquote@</property>
+ </if>
+ <property name="header_stuff">
+ @header_stuff;noquote@
+ </property>
+
+ <if @package_id@ ne "">
+ <if @show_single_button_navbar_p@ or @portal_pages:rowcount@ gt 1>
+ <div id="@which_navbar@-div">
+ <div id="@which_navbar@-container">
+ <div id="@which_navbar@">
+ <multiple name="portal_pages">
+ <if @page_num@ not nil and @portal_pages.page_num@ eq @page_num@
+ and @portal_id@ not nil and @portal_pages.portal_id@ eq @portal_id@>
+ <div class="tab" id="@which_navbar@-here">
+ @portal_pages.name@
+ </div>
+ </if>
+ <else>
+ <div class="tab">
+ <a href="@portal_pages.url@" title="@portal_pages.name@">@portal_pages.name@</a>
+ </div>
+ </else>
+ </multiple>
+ <if @application@ not nil>
+ <div class="tab" id="@which_navbar@-here">
+ @application@
+ </div>
+ </if>
+ </div>
+ </div>
+ </div>
+ <div id="@which_navbar@-body">
+ </if>
+ </if>
+
+ <!-- Page Title -->
+
+ <if @title@ not nil>
+ <h1 class="page-title">@title@</h1>
+ </if>
+
+ <!-- Body -->
+
+ <slave>
+
+</master>
Index: openacs-4/packages/layout-manager/lib/plain-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/plain-master.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/plain-master.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,47 @@
+if { ![info exists header_stuff] } {
+ set header_stuff {}
+}
+
+# Where to find the stylesheet
+set css_url "/resources/acs-subsite/group-master.css"
+
+# See if we're visiting a portal instance or an application mounted under a
+# portal instance. If so, build the portal navbar.
+
+set package_id [site_node::closest_ancestor_package \
+ -node_id [ad_conn node_id] \
+ -package_key portal \
+ -include_self]
+
+set show_single_button_navbar_p [parameter::get \
+ -package_id $package_id \
+ -parameter ShowSingleButtonNavbar]
+
+if { ![string equal $package_id ""] } {
+
+ set user_portal_id [portal::get_user_portal_id -package_id $package_id]
+ set which_navbar [parameter::get -package_id $package_id -parameter NavbarClass]
+ set portal_url [site_node::get_url_from_object_id -object_id $package_id]
+
+ db_multirow -unclobber -extend {url} portal_pages select_user_portal_pages {} {
+ set url [export_vars -base $portal_url {portal_id page_num}]
+ }
+
+ if { [permission::permission_p \
+ -object_id [portal::get_admin_portal_id -package_id $package_id] \
+ -privilege admin] } {
+ db_multirow -unclobber -append -extend {url} portal_pages select_admin_portal_pages {} {
+ set url [export_vars -base $portal_url {portal_id page_num}]
+ }
+ }
+
+ array set site_node [site_node::get_from_url \
+ -url [ad_conn package_url] \
+ -exact]
+
+ if { $site_node(object_id) != $package_id } {
+ set application $site_node(instance_name)
+ }
+
+}
+
Index: openacs-4/packages/layout-manager/lib/plain-master.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/plain-master.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/plain-master.xql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_user_portal_pages">
+ <querytext>
+ select name, sort_key as page_num, portal_id
+ from portal_pages
+ where portal_id = :user_portal_id
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+
+ <fullquery name="select_admin_portal_pages">
+ <querytext>
+ select name, 0 as page_num, portal_id
+ from portals
+ where owner_id = :package_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/lib/tabbed-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/tabbed-master.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/tabbed-master.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,10 @@
+<master src="/packages/openacs-default-theme/lib/plain-master">
+<property name="&navigation">navigation</property>
+<property name="main_content_p">@main_content_p@</property>
+
+<if @pageset_page_p@>
+ <slave>
+</if>
+<else>
+ <include src="@theme.template@" title="@title@" &="__adp_slave">
+</else>
Index: openacs-4/packages/layout-manager/lib/tabbed-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/tabbed-master.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/tabbed-master.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,68 @@
+ad_page_contract {
+
+ Build two-level tabbed navigation multirows for a pageset.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+
+ $Id: tabbed-master.tcl,v 1.1 2008/07/22 07:31:02 donb Exp $
+}
+
+set user_id [ad_conn user_id]
+
+set subsite_node_id [site_node::get_node_id_from_object_id -object_id [ad_conn subsite_id]]
+set layout_manager_url \
+ [lindex [site_node::get_children -node_id $subsite_node_id -package_key layout-manager] 0]
+
+set package_id [site_node::get_object_id -node_id [site_node::get_node_id -url $layout_manager_url]]
+set package_node_id [site_node::get_node_id_from_object_id -object_id $package_id]
+
+set pageset_id [layout::pageset::get_user_pageset_id -package_id $package_id]
+
+# set a default title in case an included application page doesn't set it. Should move
+# to the doc() array approach in the future.
+set title ""
+
+# Create the multirow so other code that add to this can do so with multirow append
+template::multirow create navigation group label href target \
+ title lang accesskey class id tabindex
+
+# Grab the pages for the user portal
+db_multirow -cache_key pageset_${pageset_id}_multirow_${user_id} -append \
+ -unclobber -extend {group href target title lang accesskey class id} \
+ navigation select_pageset_pages {} {
+ set group main
+ set href [export_vars -base $layout_manager_url {{pageset_id $pageset_id} \
+ {page_num $tabindex}}]
+}
+
+subsite_navigation::define_pageflow -group main -subgroup sub -initial_pageflow "" \
+ -navigation_multirow navigation -show_applications_p 0
+
+if { [site_node::get_element -url [ad_conn package_url] -element parent_id] == \
+ $package_node_id } {
+ set instance_name [site_node::get_element -url [ad_conn package_url] \
+ -element instance_name]
+ template::multirow append navigation main $instance_name [ad_conn package_url] \
+ "" $instance_name "" [template::multirow size navigation] "" \
+ main-navigation-active [template::multirow size navigation]
+}
+
+set pageset_page_p 0
+if { [info exists page_num] } {
+ for { set i 1 } { $i <= [template::multirow size navigation] } { incr i } {
+ if { [template::multirow get navigation $i tabindex] == $page_num } {
+ template::multirow set navigation $i id "main-navigation-active"
+ set pageset_page_p 1
+ break
+ }
+ }
+}
+
+if { !$pageset_page_p } {
+ array set theme \
+ [layout::theme::get \
+ -name [layout::pageset::get_column_value -pageset_id $pageset_id -column theme]]
+}
+
+# No expr tag in the templating system ...
+set main_content_p [expr { !$pageset_page_p }]
Index: openacs-4/packages/layout-manager/lib/tabbed-master.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/tabbed-master.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/tabbed-master.xql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_pageset_pages">
+ <querytext>
+ select lp.name as label, lp.sort_key as tabindex
+ from layout_pages lp
+ where lp.pageset_id = :pageset_id
+ and exists (select 1
+ from layout_elements le
+ where le.page_id = lp.page_id
+ and exists (select 1
+ from acs_object_party_privilege_map
+ where object_id = le.package_id
+ and party_id = :user_id
+ and privilege = le.required_privilege))
+ order by lp.sort_key
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/lib/undecorated-element.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/Attic/undecorated-element.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/undecorated-element.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,7 @@
+<table border="0" width="100%" cellpadding="0" cellspacing="0" >
+ <tr>
+ <td align="left" valign="top">
+ <slave>
+ </td>
+ </tr>
+</table>
Index: openacs-4/packages/layout-manager/lib/page-templates/simple.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/page-templates/simple.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/page-templates/simple.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,31 @@
+ad_page_contract {
+
+ This template handles predefined page templates via name magic. Probably too
+ clever to be a useful model for how to write your own custom page template, particularly
+ if you want it to be aware of different media types, etc.
+
+ @version $Id: simple.tcl,v 1.1 2008/07/22 07:31:02 donb Exp $
+
+} -properties {
+ element_list:onevalue
+}
+
+set column_count [layout::page_template::get_column_value -name $page(page_template) -column columns]
+
+# The page(element_list) array only contains data for elements actually placed on
+# the page. We initialize the array elements of the regions array to the empty list
+# to simplify the various templates.
+
+for { set i 1 } { $i <= $column_count } { incr i } {
+ set columns($i) [list]
+}
+
+foreach {column element_id_list} $page(element_list) {
+ set columns($column) $element_id_list
+}
+
+set name [layout::page_template::get_column_value -name $page(page_template) -column name]
+
+template::head::add_css -href /resources/layout-manager/page-templates/${name}.css -media all
+
+ad_return_template /packages/layout-manager/lib/page-templates/simple${column_count}
Index: openacs-4/packages/layout-manager/lib/page-templates/simple1.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/page-templates/simple1.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/page-templates/simple1.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,14 @@
+<div id="main">
+
+ <div id="main-content">
+ <div class="main-content-padding">
+ <list name="element_id_list" value="@columns.1@">
+ <include src="/packages/layout-manager/lib/render/render-element"
+ edit_p="@edit_p@"
+ &="pageset"
+ element_id="@element_id_list:item@">
+ </list>
+ </div> <!-- /main-content-padding -->
+ </div> <!-- /main-content -->
+
+</div> <!-- /main -->
Index: openacs-4/packages/layout-manager/lib/page-templates/simple2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/page-templates/simple2.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/page-templates/simple2.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,25 @@
+<div id="main">
+
+ <div id="main-content">
+ <div class="main-content-padding">
+ <list name="element_id_list" value="@columns.2@">
+ <include src="/packages/layout-manager/lib/render/render-element"
+ edit_p="@edit_p@"
+ &="pageset"
+ element_id="@element_id_list:item@">
+ </list>
+ </div> <!-- /main-content-padding -->
+ </div> <!-- /main-content -->
+
+ <div id="sidebar-1">
+ <div class="sidebar-1-padding">
+ <list name="element_id_list" value="@columns.1@">
+ <include src="/packages/layout-manager/lib/render/render-element"
+ edit_p="@edit_p@"
+ &="pageset"
+ element_id="@element_id_list:item@">
+ </list>
+ </div> <!-- /sidebar-1-padding -->
+ </div> <!-- /sidebar-1 -->
+
+</div> <!-- /main -->
Index: openacs-4/packages/layout-manager/lib/page-templates/simple3.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/page-templates/simple3.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/page-templates/simple3.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,34 @@
+<div id="main">
+ <div id="main-content">
+ <div class="main-content-padding">
+ <list name="element_id_list" value="@columns.2@">
+ <include src="/packages/layout-manager/lib/render/render-element"
+ edit_p="@edit_p@"
+ &="pageset"
+ element_id="@element_id_list:item@">
+ </list>
+ </div> <!-- /main-content-padding -->
+ </div> <!-- /main-content -->
+
+ <div id="sidebar-1">
+ <div class="sidebar-1-padding">
+ <list name="element_id_list" value="@columns.1@">
+ <include src="/packages/layout-manager/lib/render/render-element"
+ edit_p="@edit_p@"
+ &="pageset"
+ element_id="@element_id_list:item@">
+ </list>
+ </div> <!-- /sidebar-1-padding -->
+ </div> <!-- /sidebar-1 -->
+</div> <!-- /main -->
+
+<div id="sidebar-2">
+ <div class="sidebar-2-padding">
+ <list name="element_id_list" value="@columns.3@">
+ <include src="/packages/layout-manager/lib/render/render-element"
+ edit_p="@edit_p@"
+ &="pageset"
+ element_id="@element_id_list:item@">
+ </list>
+ </div> <!-- /sidebar-2-padding -->
+</div> <!-- /sidebar-2 -->
Index: openacs-4/packages/layout-manager/lib/render/render-element.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/render/render-element.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/render/render-element.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,10 @@
+<master src="@element.theme_template@">
+ <property name="title">@element.title;noquote@</property>
+ <property name="element_id">@element.element_id;noquote@</property>
+
+ <if @element.dotlrn_compat_p@>
+ <include src="@element.template_path@" cf="@element.config@">
+ </if>
+ <else>
+ <layout_includelet src="@element.template_path@" &="config">
+ </else>
Index: openacs-4/packages/layout-manager/lib/render/render-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/render/render-element.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/render/render-element.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,15 @@
+ad_page_contract {
+
+ Render a layout element.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs_id $Id: render-element.tcl,v 1.1 2008/07/22 07:31:02 donb Exp $
+
+}
+
+array set element [layout::element::get_render_data \
+ -element_id $element_id \
+ -edit_p $edit_p]
+
+set config $element(config)
Index: openacs-4/packages/layout-manager/lib/render/render-page.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/render/render-page.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/render/render-page.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,3 @@
+<if @elements_exist_p@>
+ <include src="@page.template;noquote@" &="page" &="pageset" &="edit_p">
+</if>
Index: openacs-4/packages/layout-manager/lib/render/render-page.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/render/render-page.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/render/render-page.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,17 @@
+ad_page_contract {
+
+ Render a layout page.
+
+ This is intended to be included, not called directly, with the following parameters
+ defined:
+
+ @param pageset The array describing the current portal (passed by reference)
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2004/01/24
+ @cvs_id $Id: render-page.tcl,v 1.1 2008/07/22 07:31:02 donb Exp $
+
+}
+
+array set page [layout::page::get_render_data -page_id $pageset(page_id)]
+set elements_exist_p [expr {[llength $page(element_list)] > 0}]
Index: openacs-4/packages/layout-manager/lib/render/render-pageset.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/render/render-pageset.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/render/render-pageset.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1 @@
+<include src="/packages/layout-manager/lib/render/render-page" &="pageset" &="edit_p">
Index: openacs-4/packages/layout-manager/lib/render/render-pageset.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/render/render-pageset.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/render/render-pageset.tcl 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,5 @@
+array set pageset [layout::pageset::get_render_data \
+ -pageset_id $pageset_id \
+ -page_num $page_num]
+
+ad_return_template
Index: openacs-4/packages/layout-manager/lib/themes/blank.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/themes/blank.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/themes/blank.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,2 @@
+<h1>@title;noquote@</h1>
+<slave>
Index: openacs-4/packages/layout-manager/lib/themes/raw-theme.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/themes/raw-theme.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/themes/raw-theme.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1 @@
\ No newline at end of file
Index: openacs-4/packages/layout-manager/lib/themes/standard.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/lib/themes/standard.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/lib/themes/standard.adp 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,15 @@
+<!-- Portal Element '@title@' begin -->
+<div class="portlet-wrapper">
+ <if @title@ not nil>
+ <div class="portlet-header">
+ <div class="portlet-title">
+ <h1>@title;noquote@</h1>
+ </div>
+ <div class="portlet-controls">
+ </div>
+ </div>
+ </if>
+ <div class="portlet">
+ <slave>
+ </div>
+</div>
Index: openacs-4/packages/layout-manager/sql/oracle/copy-pagesets-temp.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/copy-pagesets-temp.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/copy-pagesets-temp.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,53 @@
+ if p_template_id is not null then
+ -- now insert the pages from the layout template
+ for v_page in select *
+ from layout_pages
+ where pageset_id = p_template_id
+ loop
+
+ v_page_id := layout_page__new(
+ v_page.name,
+ v_pageset_id,
+ v_page.layout_template,
+ v_pageset_id);
+
+ -- now get the elements on the templates page and put them on the new page
+ for v_element in select *
+ from layout_elements
+ where page_id = v_page.page_id
+ loop
+
+ select nextval(''layout_seq'')
+ into v_new_element_id
+ from dual;
+
+ insert into layout_elements
+ (element_id, name, title, page_id, includelet_id, page_column, sort_key, state)
+ select v_new_element_id, name, title, v_page_id, includelet_id, page_column, sort_key,
+ state
+ from layout_elements
+ where element_id = v_element.element_id;
+
+ -- now for the elements params
+ for v_param in select *
+ from layout_element_parameters
+ where element_id = v_element.element_id
+ loop
+
+ select nextval(''layout_seq'')
+ into v_new_parameter_id
+ from dual;
+
+ insert into layout_element_parameters
+ (parameter_id, element_id, key, value)
+ select v_new_parameter_id, v_new_element_id, key, value
+ from layout_element_parameters
+ where parameter_id = v_param.parameter_id;
+
+ end loop;
+
+ end loop;
+
+ end loop;
+
+ end if;
Index: openacs-4/packages/layout-manager/sql/oracle/elements-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/elements-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/elements-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,87 @@
+-- create layout manager elements datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2001-10-01
+-- @version $Id: elements-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_elements (
+ element_id integer
+ constraint layout_elements_pk
+ primary key,
+ includelet_name varchar(100)
+ constraint l_elements_includelet_name_fk
+ references layout_includelets (name)
+ on delete cascade
+ constraint l_elements_includelet_name_nn
+ not null,
+ name varchar(100)
+ constraint l_elements_name_nn
+ not null,
+ title varchar(100) default null,
+ page_id integer
+ constraint l_elements_page_id_fk
+ references layout_pages
+ on delete cascade
+ constraint l_elements_page_id_nn
+ not null,
+ page_column integer
+ constraint l_elements_column_nn
+ not null,
+ theme varchar(100)
+ constraint l_elements_theme_fk
+ references layout_themes (name),
+ sort_key integer
+ constraint l_elements_sort_key_nn
+ not null,
+ state varchar(20)
+ default 'full'
+ constraint l_elements_state_ck
+ check (state in ('full', 'shaded', 'hidden', 'pinned')),
+ required_privilege varchar(20) default 'read'
+);
+
+comment on table layout_elements is '
+ The user-visible "box" on a layout page that displays the content of a includelet
+';
+
+comment on column layout_elements.includelet_name is '
+ The name of the includelet to which this element is bound.
+';
+
+comment on column layout_elements.page_column is '
+ The column to which this element has been assigned ("column" is a keyword in SQL)
+';
+
+comment on column layout_elements.sort_key is '
+ An ordering of elements contained in the same column on a page starting from
+ 0 for the first element and increasing in a gapless integer sequence
+';
+
+comment on column layout_elements.theme is '
+ Optional theme for this element.
+';
+
+comment on column layout_elements.state is '
+ one of the set "full" (normal), "shaded" (title bar only), or "hidden" (not shown).
+';
+
+create table layout_element_parameters (
+ element_id integer
+ constraint l_element_params_element_id_fk
+ references layout_elements (element_id)
+ on delete cascade
+ constraint l_element_params_element_id_nn
+ not null,
+ key varchar(100)
+ constraint l_element_params_key_nn
+ not null,
+ value varchar(1000)
+);
+
+create index l_element_params_key_idx on layout_element_parameters (element_id, key);
+
+comment on table layout_element_parameters is '
+ Parameters for a given element. The data structure is that of a multiset (aka bag)
+ where multiple entries with the same key are allowed.
+';
Index: openacs-4/packages/layout-manager/sql/oracle/elements-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/elements-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/elements-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,9 @@
+-- drop layout elements model
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: elements-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_element_parameters;
+drop table layout_elements;
Index: openacs-4/packages/layout-manager/sql/oracle/includelets-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/includelets-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/includelets-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,86 @@
+-- create layout includelet
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-06
+-- @version $Id: includelets-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_includelets (
+ name varchar(100)
+ constraint l_includelets_name_pk
+ primary key,
+ title varchar(100) default null,
+ application varchar(100)
+ constraint l_includelets_application_fk
+ references apm_package_types (package_key)
+ on delete cascade
+ constraint l_includelets_app_nn
+ not null,
+ owner varchar(100)
+ constraint l_includelets_owner_fk
+ references apm_package_types (package_key)
+ on delete cascade
+ constraint l_includelets_owner_nn
+ not null,
+ template varchar(100)
+ constraint l_includelets_template_nn
+ not null,
+ dotlrn_compat_p char(1) not null
+ constraint layout_includelets_d_c_p_ck
+ check (dotlrn_compat_p in ('t', 'f')),
+ constructor varchar(100),
+ destructor varchar(100),
+ description varchar(1000),
+ required_privilege varchar(20) default 'read'
+);
+
+-- indexes for referential integrity checking
+
+create index l_includelets_application_idx on layout_includelets(application);
+create index l_includelets_owner_idx on layout_includelets(owner);
+
+comment on table layout_includelets is '
+ A layout includelet is the package of code that generates the content of a layout
+ element. By convention, a package named foo-layout-includelets creates includelets
+ for the package foo.
+';
+
+comment on column layout_includelets.name is '
+ The name of this layout includelet. We can''t arbitrarily use layout_includelet_key
+ because many lincludelet packages will support at least two includelets, one user
+ includelet and one admin includelet. Includelet names, like package keys, must be
+ unique throughout a single OpenACS instance.
+';
+
+comment on column layout_includelets.title is '
+ The external name or message resource of this layout includelet. We can''t arbitrarily
+ use portlet_key because many portlet packages will support at least two portlets, one
+ user portlet and one admin portlet.
+';
+
+comment on column layout_includelets.application is '
+ The package key of the application that this includelet works with. For instance the
+ forums layout includelet works with the forums package.
+';
+
+comment on column layout_includelets.owner is '
+ The package key of the package that implements this includelet.
+';
+
+comment on column layout_includelets.template is '
+ The name of template that displays the layout includelet content. Note this is not a full
+ path, layout templates go in the standard package template library directory.
+';
+
+comment on column layout_includelets.dotlrn_compat_p is '
+ If true, pass the includelet params in an array named "cf", rather than pass them
+ directly.
+';
+
+comment on column layout_includelets.constructor is '
+ The name of an optional constructor to run after the default constructor.
+';
+
+comment on column layout_includelets.destructor is '
+ The name of an optional constructor to run after the default destructor.
+';
Index: openacs-4/packages/layout-manager/sql/oracle/includelets-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/includelets-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/includelets-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,8 @@
+-- drop layout includelet package
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: includelets-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_includelets;
Index: openacs-4/packages/layout-manager/sql/oracle/layout-manager-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/layout-manager-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/layout-manager-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,16 @@
+-- create the layout manager datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-11
+-- @version $Id: layout-manager-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create sequence layout_seq;
+
+@@includelets-create
+@@page-templates-create
+@@themes-create
+@@pagesets-create
+@@pages-create
+@@pageset-package-create
+@@elements-create
Index: openacs-4/packages/layout-manager/sql/oracle/layout-manager-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/layout-manager-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/layout-manager-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,13 @@
+-- drop the layout manager datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+
+drop package layout_pageset;
+@@elements-drop
+@@pages-drop
+@@pagesets-drop
+@@themes-drop
+@@page-templates-drop
+@@includelets-drop
+
+drop sequence layout_seq;
Index: openacs-4/packages/layout-manager/sql/oracle/page-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/page-package-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/page-package-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,151 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- create portal pages package
+--
+-- @author <a href="mailto:arjun@openforce.net">arjun@openforce.net</a>
+-- @author <a href="mailto:yon@openforce.net">yon@openforce.net</a>
+-- @creation-date 2001-10-01
+-- @version $Id: page-package-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create or replace package portal_page
+as
+
+ function new (
+ p_page_id in portal_pages.page_id%TYPE default null,
+ p_name in portal_pages.name%TYPE default 'Untitled Page',
+ p_portal_id in portal_pages.portal_id%TYPE,
+ p_layout_id in portal_pages.layout_id%TYPE default null,
+ p_object_type in acs_objects.object_type%TYPE default 'portal_page',
+ p_creation_date in acs_objects.creation_date%TYPE default sysdate,
+ p_creation_user in acs_objects.creation_user%TYPE default null,
+ p_creation_ip in acs_objects.creation_ip%TYPE default null,
+ p_context_id in acs_objects.context_id%TYPE default null
+ ) return portal_pages.page_id%TYPE;
+
+ procedure del (
+ p_page_id in portal_pages.page_id%TYPE
+ );
+
+end portal_page;
+/
+show errors
+
+create or replace package body portal_page
+as
+
+ function new (
+ p_page_id in portal_pages.page_id%TYPE default null,
+ p_name in portal_pages.name%TYPE default 'Untitled Page',
+ p_portal_id in portal_pages.portal_id%TYPE,
+ p_layout_id in portal_pages.layout_id%TYPE default null,
+ p_object_type in acs_objects.object_type%TYPE default 'portal_page',
+ p_creation_date in acs_objects.creation_date%TYPE default sysdate,
+ p_creation_user in acs_objects.creation_user%TYPE default null,
+ p_creation_ip in acs_objects.creation_ip%TYPE default null,
+ p_context_id in acs_objects.context_id%TYPE default null
+ ) return portal_pages.page_id%TYPE
+ is
+ v_page_id portal_pages.page_id%TYPE;
+ v_layout_id portal_pages.layout_id%TYPE;
+ v_sort_key portal_pages.sort_key%TYPE;
+ begin
+
+ v_page_id := acs_object.new(
+ object_id => p_page_id,
+ object_type => p_object_type,
+ creation_date => p_creation_date,
+ creation_user => p_creation_user,
+ creation_ip => p_creation_ip,
+ context_id => nvl(p_context_id, p_portal_id)
+ );
+
+ if p_layout_id is null then
+ select min(layout_id)
+ into v_layout_id
+ from portal_layouts;
+ else
+ v_layout_id := p_layout_id;
+ end if;
+
+ select nvl(max(sort_key) + 1, 0)
+ into v_sort_key
+ from portal_pages
+ where portal_id = p_portal_id;
+
+ insert into portal_pages
+ (page_id, name, portal_id, layout_id, sort_key)
+ values
+ (v_page_id, p_name, p_portal_id, v_layout_id, v_sort_key);
+
+ return v_page_id;
+
+ end new;
+
+ procedure del (
+ p_page_id in portal_pages.page_id%TYPE
+ )
+ is
+ v_portal_id portal_pages.portal_id%TYPE;
+ v_sort_key portal_pages.sort_key%TYPE;
+ v_curr_sort_key portal_pages.sort_key%TYPE;
+ v_page_count_from_0 integer;
+ begin
+
+ -- IMPORTANT: sort keys MUST be an unbroken sequence from 0 to max(sort_key)
+
+ select portal_id, sort_key
+ into v_portal_id, v_sort_key
+ from portal_pages
+ where page_id = p_page_id;
+
+ select (count(*) - 1)
+ into v_page_count_from_0
+ from portal_pages
+ where portal_id = v_portal_id;
+
+ for i in 0 .. v_page_count_from_0 loop
+
+ if i = v_sort_key then
+
+ delete
+ from portal_pages
+ where page_id = p_page_id;
+
+ elsif i > v_sort_key then
+
+ update portal_pages
+ set sort_key = -1
+ where sort_key = i;
+
+ update portal_pages
+ set sort_key = i - 1
+ where sort_key = -1;
+
+ end if;
+
+ end loop;
+
+ acs_object.del(p_page_id);
+
+ end del;
+
+end portal_page;
+/
+show errors
+
Index: openacs-4/packages/layout-manager/sql/oracle/page-package-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/page-package-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/page-package-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,26 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- drop portal pages package
+--
+-- @author <a href="mailto:arjun@openforce.net">arjun@openforce.net</a>
+-- @author <a href="mailto:yon@openforce.net">yon@openforce.net</a>
+-- @creation-date 2001-10-01
+-- @version $Id: page-package-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop package portal_page;
Index: openacs-4/packages/layout-manager/sql/oracle/page-templates-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/page-templates-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/page-templates-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,32 @@
+-- create layout page templates datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: page-templates-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_page_templates (
+ name varchar(100)
+ constraint l_page_templates_name_un
+ unique
+ constraint l_page_templates_name_nn
+ not null,
+ columns integer
+ constraint l_page_templates_column_nn
+ not null
+ constraint l_page_templates_column_ck
+ check (columns > 0),
+ description varchar(250),
+ template varchar(100)
+);
+
+
+comment on table layout_page_templates is '
+ a layout page template is a template used to render a page built of zero or more
+ elements. Examples of page page templates are the three column simple, or two column
+ "Thin Thick" templates.
+';
+
+comment on column layout_page_templates.template is '
+ The path relative to layout/lib to the page template.
+';
Index: openacs-4/packages/layout-manager/sql/oracle/page-templates-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/page-templates-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/page-templates-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,9 @@
+-- drop layout manager page templates datamodel
+--
+-- @author <a href="mailto:arjun@openforce.net">arjun@openforce.net</a>
+-- @author <a href="mailto:yon@openforce.net">yon@openforce.net</a>
+-- @creation-date 2001-10-01
+-- @version $Id: page-templates-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_page_templates;
Index: openacs-4/packages/layout-manager/sql/oracle/pages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/pages-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/pages-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,55 @@
+-- create layout pages datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: pages-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_pages (
+ page_id integer
+ constraint layout_pages_pk
+ primary key,
+ name varchar(100)
+ default 'Untitled Page'
+ constraint l_pages_name_nn
+ not null,
+ pageset_id integer
+ constraint l_pages_pageset_id_fk
+ references layout_pagesets (pageset_id)
+ on delete cascade
+ constraint l_pages_pageset_id_nn
+ not null,
+ page_template varchar(100)
+ constraint l_page_template_fk
+ references layout_page_templates (name)
+ constraint l_page_template_nn
+ not null,
+ theme varchar(100)
+ constraint l_page_theme_fk
+ references layout_themes (name),
+ sort_key integer
+ constraint l_pages_sort_key_nn
+ not null,
+ constraint l_pages_pageset_id_sort_key_un
+ unique (pageset_id, sort_key)
+);
+
+create index layout_pages_page_idx on layout_pages (pageset_id, page_id);
+
+comment on table layout_pages is '
+ layout pages are containers for portal elements. They can be thought of
+ as the "tabs" of a page set.
+';
+
+comment on column layout_pages.page_template is '
+ The name of the template to be used when rendering this page.
+';
+
+comment on column layout_pages.theme is '
+ The default theme to use for elements on this page, if not null.
+';
+
+comment on column layout_pages.sort_key is '
+ An ordering of the pages contained in the same page set starting from
+ 0 for the first page and increasing in an gapless integer sequence
+';
Index: openacs-4/packages/layout-manager/sql/oracle/pages-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/pages-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/pages-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1 @@
+drop table layout_pages;
Index: openacs-4/packages/layout-manager/sql/oracle/pageset-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/pageset-package-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/pageset-package-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,63 @@
+
+create or replace package layout_pageset
+as
+ function new (
+ p_owner_id in acs_objects.object_id%TYPE,
+ p_package_id in apm_packages.package_id%TYPE,
+ p_name in layout_pagesets.name%TYPE default 'Untitled',
+ p_theme in layout_pagesets.theme%TYPE default null,
+ p_template_id in layout_pagesets.template_id%TYPE default null
+ ) return layout_pagesets.pageset_id%TYPE;
+
+ procedure del (
+ p_pageset_id in layout_pagesets.pageset_id%TYPE
+ );
+
+end layout_pageset;
+/
+show errors
+
+create or replace package body layout_pageset
+as
+
+ function new (
+ p_owner_id in acs_objects.object_id%TYPE,
+ p_package_id in apm_packages.package_id%TYPE,
+ p_name in layout_pagesets.name%TYPE default 'Untitled',
+ p_theme in layout_pagesets.theme%TYPE default null,
+ p_template_id in layout_pagesets.template_id%TYPE default null,
+ p_context_id in acs_objects.context_id%TYPE
+ ) return layout_pagesets.pageset_id%TYPE
+ is
+ v_pageset_id layout_pagesets.pageset_id%TYPE;
+ begin
+
+ v_pageset_id := acs_object.new(
+ object_type => 'layout_pageset',
+ context_type => p_context_id
+ );
+
+ insert into layout_pagesets
+ (pageset_id, owner_id, package_id, name, theme)
+ values
+ (v_pageset_id, p_owner_id, p_package_id, p_name, p_theme);
+
+ return v_pageset_id;
+
+ end new;
+
+ procedure del (
+ p_pageset_id in layout_pagesets.pageset_id%TYPE
+ )
+ is
+ v_page_id layout_pages.page_id%TYPE;
+ begin
+ delete from layout_pagesets
+ where pageset_id = p_pageset_id;
+ acs_object.del(p_pageset_id);
+ end del;
+
+end layout_pageset;
+/
+show errors
+
Index: openacs-4/packages/layout-manager/sql/oracle/pagesets-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/pagesets-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/pagesets-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,68 @@
+-- create layout manager page sets datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: pagesets-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+
+create table layout_pagesets (
+ pageset_id integer
+ constraint l_pageset_id_fk
+ references acs_objects (object_id)
+ on delete cascade
+ constraint layout_pagesets_pk
+ primary key,
+ owner_id integer
+ constraint l_owner_id_fk
+ references acs_objects (object_id)
+ constraint l_owner_id_nn
+ not null,
+ package_id integer
+ constraint l_package_id_fk
+ references apm_packages (package_id)
+ on delete cascade
+ constraint l_package_id_nn
+ not null,
+ name varchar(100)
+ default 'Untitled'
+ constraint l_name_nn
+ not null,
+ theme varchar(100)
+ constraint l_theme_fk
+ references layout_themes (name),
+ template_id integer
+ constraint l_template_id_fk
+ references layout_pagesets (pageset_id)
+);
+
+create index layout_pagesets_owner_id_idx on layout_pagesets(owner_id);
+create index layout_pagesets_package_id_idx on layout_pagesets(package_id);
+
+comment on table layout_pagesets is '
+ layout_pagesets are containers of one or more portal pages mapped to a party.
+';
+
+comment on column layout_pagesets.package_id is '
+ The portal instance that ownns this portal
+';
+
+comment on column layout_pagesets.template_id is '
+ A portal may have a template (another portal)
+';
+
+comment on column layout_pagesets.theme is '
+ The default theme to use for pages in this page set, if not null.
+';
+
+begin
+ acs_object_type.create_type (
+ object_type => 'layout_pageset',
+ pretty_name => 'Layout Page Set',
+ pretty_plural => 'Layout Page Sets',
+ table_name => 'layout_pagesets',
+ id_column => 'pageset_id',
+ package_name => 'layout_pageset'
+ );
+
+end;
+/
+show errors
Index: openacs-4/packages/layout-manager/sql/oracle/pagesets-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/pagesets-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/pagesets-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,14 @@
+-- drop layout pagesets datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier)
+-- @creation-date 2008-07-05
+-- @version $Id: pagesets-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+begin
+acs_rel_type.drop_type('layout_pageset');
+end;
+/
+show errors
+
+drop table layout_pagesets;
Index: openacs-4/packages/layout-manager/sql/oracle/themes-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/themes-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/themes-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,21 @@
+-- create layout manager themes datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: themes-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+
+create table layout_themes (
+ name varchar(100)
+ constraint layout_themes_pk
+ primary key,
+ description varchar(250),
+ template varchar(100)
+);
+
+comment on table layout_themes is '
+ decoration templates for layout elements
+';
+
+comment on column layout_themes.template is '
+ The path relative to the lib directory to the theme template
+';
Index: openacs-4/packages/layout-manager/sql/oracle/themes-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/oracle/themes-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/oracle/themes-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,8 @@
+-- drop layout manager themes datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: themes-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_themes;
Index: openacs-4/packages/layout-manager/sql/postgresql/copy-pagesets-temp.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/copy-pagesets-temp.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/copy-pagesets-temp.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,53 @@
+ if p_template_id is not null then
+ -- now insert the pages from the layout template
+ for v_page in select *
+ from layout_pages
+ where pageset_id = p_template_id
+ loop
+
+ v_page_id := layout_page__new(
+ v_page.name,
+ v_pageset_id,
+ v_page.layout_template,
+ v_pageset_id);
+
+ -- now get the elements on the templates page and put them on the new page
+ for v_element in select *
+ from layout_elements
+ where page_id = v_page.page_id
+ loop
+
+ select nextval(''layout_seq'')
+ into v_new_element_id
+ from dual;
+
+ insert into layout_elements
+ (element_id, name, title, page_id, includelet_id, page_column, sort_key, state)
+ select v_new_element_id, name, title, v_page_id, includelet_id, page_column, sort_key,
+ state
+ from layout_elements
+ where element_id = v_element.element_id;
+
+ -- now for the elements params
+ for v_param in select *
+ from layout_element_parameters
+ where element_id = v_element.element_id
+ loop
+
+ select nextval(''layout_seq'')
+ into v_new_parameter_id
+ from dual;
+
+ insert into layout_element_parameters
+ (parameter_id, element_id, key, value)
+ select v_new_parameter_id, v_new_element_id, key, value
+ from layout_element_parameters
+ where parameter_id = v_param.parameter_id;
+
+ end loop;
+
+ end loop;
+
+ end loop;
+
+ end if;
Index: openacs-4/packages/layout-manager/sql/postgresql/datasources-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/Attic/datasources-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/datasources-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,22 @@
+-- create layout includelet
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-06
+-- @version $Id: datasources-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+-- ADD COMMENTS AND INDEXES!!!
+
+create table layout_datasources (
+ name text
+ constraint l_ds_name_pk
+ primary key,
+ description text
+ constraint l_ds_description_nn
+ not null,
+ package_key text
+ constraint l_ds_package_key_fk
+ references apm_package_types(package_key),
+ constructor text,
+ destructor text
+);
Index: openacs-4/packages/layout-manager/sql/postgresql/datasources-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/Attic/datasources-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/datasources-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,8 @@
+-- drop layout datasources
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-06
+-- @version $Id: datasources-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_datasources;
Index: openacs-4/packages/layout-manager/sql/postgresql/elements-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/elements-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/elements-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,93 @@
+-- create layout manager elements datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2001-10-01
+-- @version $Id: elements-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_elements (
+ element_id integer
+ constraint layout_elements_pk
+ primary key,
+ includelet_name text
+ constraint l_elements_includelet_name_fk
+ references layout_includelets (name)
+ on delete cascade
+ constraint l_elements_includelet_name_nn
+ not null,
+ name text
+ constraint l_elements_name_nn
+ not null,
+ title text default null,
+ page_id integer
+ constraint l_elements_page_id_fk
+ references layout_pages
+ on delete cascade
+ constraint l_elements_page_id_nn
+ not null,
+ page_column integer
+ constraint l_elements_column_nn
+ not null,
+ package_id integer
+ constraint l_elements_package_Id_fk
+ references apm_packages (package_id)
+ on delete cascade
+ constraint l_elements_package_Id_nn
+ not null,
+ theme text
+ constraint l_elements_theme_fk
+ references layout_themes (name),
+ sort_key integer
+ constraint l_elements_sort_key_nn
+ not null,
+ state text
+ default 'full'
+ constraint l_elements_state_ck
+ check (state in ('full', 'shaded', 'hidden', 'pinned')),
+ required_privilege varchar(20) default 'read'
+);
+
+comment on table layout_elements is '
+ The user-visible "box" on a layout page that displays the content of a includelet
+';
+
+comment on column layout_elements.includelet_name is '
+ The name of the includelet to which this element is bound.
+';
+
+comment on column layout_elements.page_column is '
+ The column to which this element has been assigned ("column" is a keyword in SQL)
+';
+
+comment on column layout_elements.sort_key is '
+ An ordering of elements contained in the same column on a page starting from
+ 0 for the first element and increasing in a gapless integer sequence
+';
+
+comment on column layout_elements.theme is '
+ Optional theme for this element.
+';
+
+comment on column layout_elements.state is '
+ one of the set "full" (normal), "shaded" (title bar only), or "hidden" (not shown).
+';
+
+create table layout_element_parameters (
+ element_id integer
+ constraint l_element_params_element_id_fk
+ references layout_elements (element_id)
+ on delete cascade
+ constraint l_element_params_element_id_nn
+ not null,
+ key text
+ constraint l_element_params_key_nn
+ not null,
+ value text
+);
+
+create index l_element_params_element_key_idx on layout_element_parameters (element_id, key);
+
+comment on table layout_element_parameters is '
+ Parameters for a given element. The data structure is that of a multiset (aka bag)
+ where multiple entries with the same key are allowed.
+';
Index: openacs-4/packages/layout-manager/sql/postgresql/elements-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/elements-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/elements-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,9 @@
+-- drop layout elements model
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: elements-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_element_parameters;
+drop table layout_elements;
Index: openacs-4/packages/layout-manager/sql/postgresql/includelets-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/includelets-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/includelets-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,75 @@
+-- create layout includelet
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-06
+-- @version $Id: includelets-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_includelets (
+ name text
+ constraint l_includelets_name_pk
+ primary key,
+ title text default null,
+ template text
+ constraint l_includelets_template_nn
+ not null,
+ dotlrn_compat_p boolean
+ constraint l_includelets_d_c_p_nn
+ not null,
+ constructor text,
+ destructor text,
+ description text,
+ required_privilege text default 'read',
+ datasource text
+ constraint l_includelets_ds_fk
+ references layout_datasources(name)
+ on delete cascade
+ constraint l_includelets_ds_nn
+ not null
+);
+
+-- indexes for referential integrity checking
+
+create index l_includelets_datasource_idx on layout_includelets(datasource);
+
+comment on table layout_includelets is '
+ A layout includelet is the package of code that generates the content of a layout
+ element. By convention, a package named foo-layout-includelets creates includelets
+ for the package foo.
+';
+
+comment on column layout_includelets.name is '
+ The name of this layout includelet. We can''t arbitrarily use layout_includelet_key
+ because many lincludelet packages will support at least two includelets, one user
+ includelet and one admin includelet. Includelet names, like package keys, must be
+ unique throughout a single OpenACS instance.
+';
+
+comment on column layout_includelets.title is '
+ The external name or message resource of this layout includelet. We can''t arbitrarily
+ use portlet_key because many portlet packages will support at least two portlets, one
+ user portlet and one admin portlet.
+';
+
+comment on column layout_includelets.datasource is '
+ The package key of the datasource that this includelet works with. For instance the
+ forums layout includelet works with the forums package.
+';
+
+comment on column layout_includelets.template is '
+ The name of template that displays the layout includelet content. Note this is not a full
+ path, layout templates go in the standard package template library directory.
+';
+
+comment on column layout_includelets.dotlrn_compat_p is '
+ If true, pass the includelet params in an array named "cf", rather than pass them
+ directly.
+';
+
+comment on column layout_includelets.constructor is '
+ The name of an optional constructor to run after the default constructor.
+';
+
+comment on column layout_includelets.destructor is '
+ The name of an optional constructor to run after the default destructor.
+';
Index: openacs-4/packages/layout-manager/sql/postgresql/includelets-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/includelets-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/includelets-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,8 @@
+-- drop layout includelet package
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: includelets-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_includelets;
Index: openacs-4/packages/layout-manager/sql/postgresql/layout-manager-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/layout-manager-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/layout-manager-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,16 @@
+-- create the layout manager datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2001-10-01
+-- @version $Id: layout-manager-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create sequence layout_seq;
+
+\i datasources-create.sql
+\i includelets-create.sql
+\i page-templates-create.sql
+\i themes-create.sql
+\i pagesets-create.sql
+\i pages-create.sql
+\i elements-create.sql
Index: openacs-4/packages/layout-manager/sql/postgresql/layout-manager-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/layout-manager-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/layout-manager-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,13 @@
+-- drop the layout manager datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+
+\i elements-drop.sql
+\i pages-drop.sql
+\i pagesets-drop.sql
+\i themes-drop.sql
+\i page-templates-drop.sql
+\i includelets-drop.sql
+\i datasources-drop.sql
+
+drop sequence layout_seq;
Index: openacs-4/packages/layout-manager/sql/postgresql/page-templates-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/page-templates-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/page-templates-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,34 @@
+-- create layout page templates datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: page-templates-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_page_templates (
+ name text
+ constraint l_page_templates_name_un
+ unique
+ constraint l_page_templates_name_nn
+ not null,
+ columns integer
+ constraint l_page_templates_column_nn
+ not null
+ constraint l_page_templates_column_ck
+ check (columns > 0),
+ description text,
+ template text
+);
+
+
+comment on table layout_page_templates is '
+ a layout page template is a template used to render a page built of zero or more
+ elements. Examples of page page templates are the three column simple, or two column
+ "Thin Thick" templates.
+';
+
+comment on column layout_page_templates.template is '
+ The path relative to layout/lib to the page template.
+
+ Example: "layouts/simple"
+';
Index: openacs-4/packages/layout-manager/sql/postgresql/page-templates-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/page-templates-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/page-templates-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,9 @@
+-- drop layout manager page templates datamodel
+--
+-- @author <a href="mailto:arjun@openforce.net">arjun@openforce.net</a>
+-- @author <a href="mailto:yon@openforce.net">yon@openforce.net</a>
+-- @creation-date 2001-10-01
+-- @version $Id: page-templates-drop.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+drop table layout_page_templates;
Index: openacs-4/packages/layout-manager/sql/postgresql/pages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/pages-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/pages-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,55 @@
+-- create layout pages datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: pages-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+--
+
+create table layout_pages (
+ page_id integer
+ constraint layout_pages_pk
+ primary key,
+ name text
+ default 'Untitled Page'
+ constraint l_pages_name_nn
+ not null,
+ pageset_id integer
+ constraint l_pages_pageset_id_fk
+ references layout_pagesets (pageset_id)
+ on delete cascade
+ constraint l_pages_pageset_id_nn
+ not null,
+ page_template text
+ constraint l_page_template_fk
+ references layout_page_templates (name)
+ constraint l_page_template_nn
+ not null,
+ theme text
+ constraint l_page_theme_fk
+ references layout_themes (name),
+ sort_key integer
+ constraint l_pages_sort_key_nn
+ not null,
+ constraint l_pages_pageset_id_sort_key_un
+ unique (pageset_id, sort_key)
+);
+
+create index layout_pages_page_idx on layout_pages (pageset_id, page_id);
+
+comment on table layout_pages is '
+ layout pages are containers for portal elements. They can be thought of
+ as the "tabs" of a page set.
+';
+
+comment on column layout_pages.page_template is '
+ The name of the template to be used when rendering this page.
+';
+
+comment on column layout_pages.theme is '
+ The default theme to use for elements on this page, if not null.
+';
+
+comment on column layout_pages.sort_key is '
+ An ordering of the pages contained in the same page set starting from
+ 0 for the first page and increasing in an gapless integer sequence
+';
Index: openacs-4/packages/layout-manager/sql/postgresql/pages-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/pages-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/pages-drop.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1 @@
+drop table layout_pages;
Index: openacs-4/packages/layout-manager/sql/postgresql/pagesets-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/pagesets-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/pagesets-create.sql 22 Jul 2008 07:31:02 -0000 1.1
@@ -0,0 +1,114 @@
+-- create layout manager page sets datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: pagesets-create.sql,v 1.1 2008/07/22 07:31:02 donb Exp $
+
+create table layout_pagesets (
+ pageset_id integer
+ constraint l_pageset_id_fk
+ references acs_objects (object_id)
+ on delete cascade
+ constraint layout_pagesets_pk
+ primary key,
+ owner_id integer
+ constraint l_owner_id_fk
+ references acs_objects (object_id)
+ constraint l_owner_id_nn
+ not null,
+ package_id integer
+ constraint l_package_id_fk
+ references apm_packages (package_id)
+ on delete cascade
+ constraint l_package_id_nn
+ not null,
+ name text
+ default 'Untitled'
+ constraint l_name_nn
+ not null,
+ theme name
+ constraint l_theme_fk
+ references layout_themes (name),
+ template_id integer
+ constraint l_template_id_fk
+ references layout_pagesets (pageset_id)
+);
+
+create index layout_pagesets_owner_id_idx on layout_pagesets(owner_id);
+create index layout_pagesets_package_id_idx on layout_pagesets(package_id);
+
+comment on table layout_pagesets is '
+ layout_pagesets are containers of one or more portal pages mapped to a party.
+';
+
+comment on column layout_pagesets.package_id is '
+ The portal instance that ownns this portal
+';
+
+comment on column layout_pagesets.template_id is '
+ A portal may have a template (another portal)
+';
+
+comment on column layout_pagesets.theme is '
+ The default theme to use for pages in this page set, if not null.
+';
+
+select acs_object_type__create_type(
+ 'layout_pageset',
+ 'Layout Page Set',
+ 'Layout Page Sets',
+ 'acs_object',
+ 'LAYOUT_PAGESETS',
+ 'PAGESET_ID',
+ 'layout_pageset',
+ 'f',
+ null,
+ null
+);
+
+
+-- DRB template id needs to be implemented by copy pageset, which copies pages, which
+-- copies elements, which copies element parameters ...
+
+select define_function_args('layout_pageset__new', 'p_owner_id,p_package_id,p_name,p_theme,p_context_id');
+
+create or replace function layout_pageset__new (integer, integer, varchar, varchar, integer)
+returns integer as '
+declare
+ p_owner_id alias for $1;
+ p_package_id alias for $2;
+ p_name alias for $3;
+ p_theme alias for $4;
+ p_context_id alias for $5;
+ v_pageset_id layout_pagesets.pageset_id%TYPE;
+begin
+
+ v_pageset_id := acs_object__new(
+ null,
+ ''layout_pageset'',
+ null,
+ p_owner_id,
+ null,
+ p_context_id
+ );
+
+ insert into layout_pagesets
+ (pageset_id, owner_id, package_id, name, theme)
+ values
+ (v_pageset_id, p_owner_id, p_package_id, p_name, p_theme);
+
+ return v_pageset_id;
+
+end;' language 'plpgsql';
+
+select define_function_args('layout_pageset__del', 'p_pageset_id');
+
+create or replace function layout_pageset__del(integer)
+returns void as '
+declare
+ p_pageset_id alias for $1;
+begin
+ delete from layout_pagesets
+ where pageset_id = p_pageset_id;
+ perform acs_object__delete(p_pageset_id);
+end;' language 'plpgsql';
Index: openacs-4/packages/layout-manager/sql/postgresql/pagesets-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/pagesets-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/pagesets-drop.sql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,10 @@
+-- drop layout pagesets datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier)
+-- @creation-date 2008-07-05
+-- @version $Id: pagesets-drop.sql,v 1.1 2008/07/22 07:31:03 donb Exp $
+--
+
+select drop_package('layout_pageset');
+drop table layout_pagesets;
+select acs_object_type__drop_type('layout_pageset', 't');
Index: openacs-4/packages/layout-manager/sql/postgresql/t.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/Attic/t.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/t.sql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1 @@
+select acs_object_type__drop_type('layout_pageset', 't');
Index: openacs-4/packages/layout-manager/sql/postgresql/themes-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/themes-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/themes-create.sql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,23 @@
+-- create layout manager themes datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: themes-create.sql,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+create table layout_themes (
+ name text
+ constraint layout_themes_pk
+ primary key,
+ description text,
+ template text
+);
+
+comment on table layout_themes is '
+ decoration templates for layout elements
+';
+
+comment on column layout_themes.template is '
+ The path relative to the lib directory to the theme template
+
+ Example: "themes/deco-theme"
+';
Index: openacs-4/packages/layout-manager/sql/postgresql/themes-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/sql/postgresql/themes-drop.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/sql/postgresql/themes-drop.sql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,8 @@
+-- drop layout manager themes datamodel
+--
+-- @author Don Baccus (dhogaza@pacifier.com)
+-- @creation-date 2008-07-05
+-- @version $Id: themes-drop.sql,v 1.1 2008/07/22 07:31:03 donb Exp $
+--
+
+drop table layout_themes;
Index: openacs-4/packages/layout-manager/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/apm-callback-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,88 @@
+namespace eval layout_manager {}
+namespace eval layout_manager::install {}
+
+ad_proc layout_manager::install::after_install {} {
+ Package after installation callback proc
+} {
+
+ apm_source [acs_root_dir]/packages/layout-manager/tcl/includelet-procs.tcl
+ apm_source [acs_root_dir]/packages/layout-manager/tcl/page-template-procs.tcl
+ apm_source [acs_root_dir]/packages/layout-manager/tcl/theme-procs.tcl
+
+ db_transaction {
+
+ # Now define some default layouts.
+
+ layout::page_template::new \
+ -name 1_column \
+ -description #layout-manager.simple_1column_layout_description# \
+ -columns 1 \
+ -template /packages/layout-manager/lib/page-templates/simple
+
+ layout::page_template::new \
+ -name 2_column \
+ -columns 2 \
+ -description #layout-manager.simple_2column_layout_description# \
+ -template /packages/layout-manager/lib/page-templates/simple
+
+ layout::page_template::new \
+ -name 3_column\
+ -columns 3 \
+ -description "Three columns" \
+ -description #layout-manager.simple_3column_layout_description# \
+ -template /packages/layout-manager/lib/page-templates/simple
+
+ layout::page_template::new \
+ -name thin_thick \
+ -columns 2 \
+ -description #layout-manager.left_sidebar_layout_description# \
+ -template /packages/layout-manager/lib/page-templates/simple
+
+ layout::page_template::new \
+ -name thin_thick_thin \
+ -columns 3 \
+ -description #layout-manager.left_and_right_sidebar_layout_description# \
+ -template /packages/layout-manager/lib/page-templates/simple
+
+ # And some themes
+
+ layout::theme::new \
+ -name default \
+ -description "Default OpenACS Theme" \
+ -template /packages/layout-manager/lib/themes/standard
+
+ layout::theme::new \
+ -name blank \
+ -description "No Graphics" \
+ -template /packages/layout-manager/lib/themes/blank
+
+ # Now define a couple of datasource apps and includelets
+
+ layout::datasource::new \
+ -name layout_manager_includelets \
+ -description "Layout Manager Includelets" \
+ -package_key layout-manager \
+ -constructor layout::datasource::constructor::closest_ancestor
+
+ layout::includelet::new \
+ -name layout_manager_admin_includelet \
+ -description "Layout Manager Administration" \
+ -title "Layout Manager Administration" \
+ -datasource layout_manager_includelets \
+ -template /packages/layout-manager/lib/layout-manager-admin-includelet \
+ -required_privilege admin
+
+ layout::datasource::new \
+ -name subsite_includelets \
+ -description "Subsite Includelets" \
+ -package_key acs-subsite \
+ -constructor layout::datasource::constructor::closest_ancestor
+
+ layout::includelet::new \
+ -name subsites_includelet \
+ -description "Display Subsites" \
+ -title "Subsites" \
+ -datasource subsite_includelets \
+ -template /packages/acs-subsite/lib/subsites
+ }
+}
Index: openacs-4/packages/layout-manager/tcl/constructor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/constructor-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/constructor-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,24 @@
+ad_library {
+
+ Constructors for standard datasources.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-12
+ @version $Id: constructor-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::datasource::constructor {}
+
+ad_proc layout::datasource::constructor::closest_ancestor {
+ package_key
+ node_id
+} {
+ Returns the package_id of the closest ancestor instance of package_key, including
+ the current package as an ancestor.
+} {
+ return [site_node::closest_ancestor_package \
+ -node_id $node_id \
+ -package_key $package_key \
+ -include_self]
+}
Index: openacs-4/packages/layout-manager/tcl/datasource-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/Attic/datasource-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/datasource-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,75 @@
+ad_library {
+
+ Layout Manager Application Datasources
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-5
+ @version $Id: datasource-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::datasource {}
+namespace eval layout::datasource::binding {}
+
+ad_proc layout::datasource::new {
+ -name:required
+ {-description ""}
+ {-package_key ""}
+ {-constructor ""}
+ {-destructor ""}
+} {
+ Create a new layout manager application binding..
+
+ @param name The unique internal name of the new application binding.
+ @param description A human-readable description (defaults to name)
+ @param package_key The package to associate with client includelets
+ @param constructor Custom constructor to run after the default constructor
+ @param destructor Custom destructor to run before the default destructor
+
+ @author Don Baccus (dhogaza@pacifier.com)
+} {
+ # Default datasource description to its name
+ if { ![info exists description] } {
+ set description $name
+ }
+
+ db_dml insert_datasource {}
+}
+
+ad_proc layout::datasource::get {
+ -name:required
+} {
+ Return the datasource in "array get" format.
+} {
+ db_1row select_datasource {} -column_array datasource
+ return [array get datasource]
+}
+
+ad_proc layout::datasource::get_column_value {
+ -name:required
+ -column:required
+} {
+ Return the value of one column for one row in the datasources table.
+} {
+ array set datasource [layout::datasource::get -name $name]
+ return $datasource($column)
+}
+
+ad_proc layout::datasource::delete {
+ -name:required
+} {
+ db_dml delete_datasource {}
+}
+
+ad_proc layout::datasource::construct {
+ -name:required
+ -node_id:required
+ -package_key:required
+} {
+ set constructor [layout::datasource::get_column_value -name $name -column constructor]
+ if { $constructor ne "" } {
+ return [$constructor $package_key $node_id]
+ } else {
+ return ""
+ }
+}
Index: openacs-4/packages/layout-manager/tcl/datasource-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/Attic/datasource-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/datasource-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,29 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::datasource::new.insert_datasource">
+ <querytext>
+ insert into layout_datasources
+ (name, description, package_key, constructor, destructor)
+ values
+ (:name, :description, :package_key, :constructor, :destructor)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::datasource::get.select_datasource">
+ <querytext>
+ select *
+ from layout_datasources
+ where name = :name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::datasource::delete.delete_datasource">
+ <querytext>
+ delete from layout_datasources
+ where name = :name
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/element-parameter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/element-parameter-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/element-parameter-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,85 @@
+ad_library {
+
+ Page Set Element Parameter Procs
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-05
+ @version $Id: element-parameter-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::element::parameter {}
+
+ad_proc layout::element::parameter::add_values {
+ -element_id:required
+ -parameters:required
+} {
+ Create new parameter values
+
+ @param element_id The element to add the parameters to.
+ @param parameters The parameter keys and values in array get format
+} {
+ foreach {key value} $parameters {
+ db_dml insert_parameter {}
+ }
+ layout::element::flush -element_id $element_id
+}
+
+ad_proc -private layout::element::parameter::delete {
+ -element_id:required
+ -key:required
+ -value
+} {
+ Removes a value for a parameter or all values for that parameter.
+
+ @param element_id The element the parameter(s) belong to
+ @param key The key of the parameter
+ @param value If set, only delete keys with this value, if not, all parameters
+ for the element with the given key.
+} {
+ if {[info exists value]} {
+ db_dml delete_one_parameter_value {}
+ } else {
+ db_dml delete_parameter {}
+ }
+ layout::element::flush -element_id $element_id
+}
+
+ad_proc layout::element::parameter::get {
+ -element_id:required
+ -key:required
+} {
+ returns a list of values for this element/key combination
+} {
+ return [db_list select_parameters {}]
+}
+
+ad_proc layout::element::parameter::set_values {
+ -element_id:required
+ -parameters:required
+} {
+ Overwrite existing values of parameters with the given keys and element_id.
+ Use with great care.
+
+ @param element_id The element the parameter(s) belong to
+ @param parameters The parameter keys and values in array get format
+
+} {
+ foreach {key value} $parameters {
+ db_dml delete_parameter {}
+ db_dml insert_parameter {}
+ }
+ layout::element::flush -element_id $element_id
+}
+
+ad_proc layout::element::parameter::get_all {
+ -element_id:required
+} {
+ Return all parameters for element_id in "array get" format
+} {
+ db_foreach select_parameters {} {
+ lappend parameters($key) $value
+ }
+
+ return [array get parameters]
+}
Index: openacs-4/packages/layout-manager/tcl/element-parameter-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/element-parameter-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/element-parameter-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,65 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::element::parameter::add_values.insert_parameter">
+ <querytext>
+ insert into layout_element_parameters
+ (element_id, key, value)
+ values
+ (:element_id, :key, :value)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::parameter::delete.delete_one_parameter_value">
+ <querytext>
+ delete from layout_element_parameters
+ where element_id = :element_id
+ and key = :key
+ and value = :value
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::parameter::delete.delete_parameter">
+ <querytext>
+ delete from layout_element_parameters
+ where element_id = :element_id
+ and key = :key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::parameter::get.select_parameters">
+ <querytext>
+ select value
+ from layout_element_parameters
+ where element_id = :element_id
+ and key = :key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::parameter::set_values.delete_parameter">
+ <querytext>
+ delete from layout_element_parameters
+ where element_id = :element_id
+ and key = :key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::parameter::set_values.insert_parameter">
+ <querytext>
+ insert into layout_element_parameters
+ (element_id, key, value)
+ values
+ (:element_id, :key, :value)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::parameter::get_all.select_parameters">
+ <querytext>
+ select key, value
+ from layout_element_parameters
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/element-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/element-procs-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/element-procs-oracle.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,63 @@
+<?xml version="1.0"?>
+
+<queryset>
+ <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+ <fullquery name="layout::element::move_vertically.select_previous_element">
+ <querytext>
+ select sort_key as other_sort_key,
+ element_id as other_element_id
+ from (select *
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column
+ and sort_key < :sort_key
+ order by sort_key desc)
+ where rownum = 1
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_vertically.select_next_element">
+ <querytext>
+ select sort_key as other_sort_key,
+ element_id as other_element_id
+ from (select *
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column
+ and sort_key > :sort_key
+ order by sort_key asc)
+ where rownum = 1
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_horizontally.update_page_column">
+ <querytext>
+ update layout_elements
+ set page_column = :page_column,
+ sort_key = (select nvl((select max(sort_key) + 1
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column),
+ 1)
+ from dual)
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_to_page.update_element">
+ <querytext>
+ update layout_elements
+ set page_id = :page_id,
+ page_column = :page_column,
+ sort_key = (select nvl((select max(sort_key) + 1
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column),
+ 1)
+ from dual)
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/element-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/element-procs-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/element-procs-postgresql.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,63 @@
+<?xml version="1.0"?>
+
+<queryset>
+ <rdbms><type>postgresql</type><version>7.2</version></rdbms>
+
+ <fullquery name="layout::element::move_vertically.select_previous_element">
+ <querytext>
+ select sort_key as other_sort_key,
+ element_id as other_element_id
+ from (select *
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column
+ and sort_key < :sort_key
+ order by sort_key desc) as other_element
+ limit 1
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_vertically.select_next_element">
+ <querytext>
+ select sort_key as other_sort_key,
+ element_id as other_element_id
+ from (select *
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column
+ and sort_key > :sort_key
+ order by sort_key asc) as other_element
+ limit 1
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_horizontally.update_page_column">
+ <querytext>
+ update layout_elements
+ set page_column = :page_column,
+ sort_key = (select coalesce((select max(sort_key) + 1
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column),
+ 1)
+ from dual)
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_to_page.update_element">
+ <querytext>
+ update layout_elements
+ set page_id = :page_id,
+ page_column = :page_column,
+ sort_key = (select coalesce((select max(sort_key) + 1
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column),
+ 1)
+ from dual)
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/element-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/element-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,424 @@
+ad_library {
+
+ Layout Manager Element Procs
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-05
+ @version $Id: element-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::element {}
+
+ad_proc layout::element::new {
+ -pageset_id:required
+ -package_id:required
+ {-page_name ""}
+ {-page_column ""}
+ {-state full}
+ -includelet_name:required
+ {-name ""}
+ {-title ""}
+ {-parameters ""}
+ -initialize:boolean
+ {-theme ""}
+} {
+ Create a new layout manager element of type includelet_name on the given layout manager.
+
+ @param pageset_id The page set to add this element to.
+ @param package_id The object this element is bound to.
+ @param page_name The name of the page to place it on (defaults to the first page.)
+ @param name The internal name for this element
+ @param title The external name or message resource for this element
+ @param page_column The page page_column to placer the element on.
+ @param includelet_name The layout manager includelet name
+ @param name The name of the element
+ @param parameters Optional args to set in array get format
+ @param initialize If set, call the layout manager's default constructor
+ @param theme Override page and pageset theme if set
+
+ @return The element_id of the new portlet
+
+ Note of the day: use of a parameter named "args" breaks ad_proc in very hard
+ to debug ways ...
+
+} {
+
+ set page_id [layout::page::get_id -pageset_id $pageset_id -page_name $page_name]
+
+ if {[string equal "" $page_column]} {
+ set page_column [layout::element::choose_page_column -page_id $page_id]
+ }
+
+ array set includelet [layout::includelet::get -name $includelet_name]
+
+ # Default name to be the same as the includelet name
+ if { $name eq "" } {
+ set name $includelet_name
+ }
+
+ # Default the display title to the value given in the includelet definition
+ if { $title eq "" } {
+ set title $includelet(title)
+ }
+
+ set element_id [db_nextval layout_seq]
+
+ db_dml insert_element {}
+
+ layout::element::parameter::add_values \
+ -element_id $element_id \
+ -parameters $parameters
+
+ if { $initialize_p && $includelet(constructor) ne "" } {
+ $includelet(constructor) $element_id
+ }
+
+ layout::page::flush -page_id $page_id
+
+ return $element_id
+}
+
+ad_proc layout::element::delete {
+ -element_id:required
+} {
+ Delete the given element.
+
+ @param element_id The id of the parameter to be deleted.
+} {
+ set page_id [layout::element::get_column_value -element_id $element_id -column page_id]
+ db_dml delete_element {}
+ layout::element::flush -element_id $element_id
+ layout::page::flush -page_id $page_id
+}
+
+ad_proc layout::element::get {
+ -element_id:required
+} {
+ Return element info in "array get" format.
+
+ @param element_id The id of the element.
+} {
+ ns_cache eval db_cache_pool element_${element_id}_get {
+ db_1row select_element {} -column_array element
+ return [array get element]
+ }
+}
+
+ad_proc layout::element::get_column_value {
+ -element_id:required
+ -column:required
+} {
+ Return one row column from a layout element.
+
+ @param element_id The id of the element.
+ @param column The name of the column in the layout_elements table.
+} {
+ array set element [layout::element::get -element_id $element_id]
+ return $element($column)
+}
+
+ad_proc layout::element::set_values {
+ -element:required
+} {
+ Set the fields of a layout manager element.
+
+ @param element The new value of the element in array get format (including the element_id).
+} {
+ array set element_array $element
+ template::util::array_to_vars element_array
+
+ db_dml update_element {}
+ layout::element::flush -element_id $element_id
+}
+
+ad_proc layout::element::set_column_value {
+ -element_id:required
+ -column:required
+ -value:required
+} {
+ Set a column to a given value in a particular row.
+
+ @param element_id The id of the element to modify.
+ @param column The name of the column being set.
+ @param value The new value for the column.
+} {
+ array set element [layout::element::get -element_id $element_id]
+ set element($column) $value
+
+ layout::element::set_values -element [array get element]
+}
+
+ad_proc layout::element::get_id_list {
+ -pageset_id:required
+ -includelet_name:required
+ {-name "%"}
+ {-title "%"}
+} {
+ get a list of element_ids of type includelet_name on a particular pageset, restricted
+ by the SQL LIKE patterns applied to the name and title columns.
+
+ @param pageset_id The pageset to search
+ @param includelet_name The portlet type
+ @param name If present, SQL LIKE pattern that restricts the search by the element's name
+ @param title If present, like name but on the title column
+} {
+ return [db_list select_element_ids {}]
+}
+
+ad_proc layout::element::get_id {
+ -pageset_id:required
+ -includelet_name:required
+ {-name "%"}
+ {-title "%"}
+} {
+ get an element_id of type includelet_name on a particular pageset, restricted
+ by the SQL LIKE patterns applied to the name and title columns. Give an error if
+ more than one such element is found.
+
+ @param pageset_id The pageset to search
+ @param includelet_name The portlet type
+ @param name If present, SQL LIKE pattern that restricts the search by the element's name
+ @param title If present, like name but on the title column
+} {
+ set id_list [layout::element::get_id_list \
+ -pageset_id $id \
+ -includelet_name $includelet_name \
+ -name $name \
+ -title $title]
+ if { [llength $id_list] != 1 } {
+ ad_return -code error "Check for exactly one layout manager element failed"
+ }
+ return [lindex $id_list 0]
+}
+
+ad_proc -private layout::element::move {
+ -page_id:required
+ -element_id:required
+ -direction:required
+} {
+ moves an element within a page
+} {
+ if {[string equal $direction up] || [string equal $direction down]} {
+ move_vertically -element_id $element_id -direction $direction
+ } elseif {[string equal $direction left] || [string equal $direction right]} {
+ move_horizontally -element_id $element_id -direction $direction
+ }
+ layout::page::flush -page_id $page_id
+}
+
+ad_proc -private layout::element::move_vertically {
+ -element_id:required
+ -direction:required
+} {
+ swaps the element with either the previous or next one in the page_column,
+ depending on the value of direction.
+} {
+
+ array set element [layout::element::get -element_id $element_id]
+ template::util::array_to_vars element
+
+ if {[string equal $direction up]} {
+ if {![db_0or1row select_previous_element {}]} {
+ return
+ }
+ } elseif {[string equal $direction down]} {
+ if {![db_0or1row select_next_element {}]} {
+ return
+ }
+ } else {
+ ad_return_complaint 1 "layout::element::swap: bad direction: $direction"
+ }
+
+ db_transaction {
+ # because of the uniqueness constraint on sort_keys we need to set
+ # a dummy key, then do the swap.
+ set dummy_sort_key -1
+
+ # set the source element to the dummy key
+ db_dml swap_sort_keys_1 {}
+
+ # set the target's sort_key to the source's sort_key
+ db_dml swap_sort_keys_2 {}
+
+ # set the source's sort_key to the target's sort_key
+ db_dml swap_sort_keys_3 {}
+ }
+ flush -element_id $element_id
+ flush -element_id $other_element_id
+
+}
+
+ad_proc -private layout::element::move_horizontally {
+ -element_id:required
+ -direction:required
+} {
+ move a pageset element between page_columns
+} {
+
+ array set element [layout::element::get -element_id $element_id]
+ template::util::array_to_vars element
+
+ if {[string equal $direction left]} {
+ incr page_column -1
+ } elseif {[string equal $direction right]} {
+ incr page_column 1
+ }
+
+ db_dml update_page_column {}
+ flush -element_id $element_id
+
+}
+
+ad_proc -private layout::element::move_to_page {
+ -element_id:required
+ -page_id:required
+ {-page_column ""}
+} {
+ move this element to another page
+} {
+
+ set from_page_id [layout::element::get_column_value -element_id $element_id -column page_id]
+ set current_page_column $page_column
+ if { $page_column eq "" } {
+ set current_page_column \
+ [layout::element::get_column_value -element_id $element_id -column page_column]
+ }
+
+ set target_n_page_columns [layout::page_template::get_column_value -column columns \
+ -name [layout::page::get_column_value -page_id $page_id -column page_template]
+ ]
+
+ if {$current_page_column > $target_n_page_columns} {
+ set page_column $target_n_page_columns
+ } else {
+ set page_column $current_page_column
+ }
+
+ db_dml update_element {}
+ flush -element_id $element_id
+ layout::page::flush -page_id $from_page_id
+ layout::page::flush -page_id $page_id
+
+}
+
+ad_proc layout::element::choose_page_column {
+ -page_id:required
+} {
+ select the page_column on the page with the fewest elements on it
+} {
+ set min_count 99999
+ set min_page_column 0
+
+ set page_template [layout::page::get_column_value -page_id $page_id -column page_template]
+ set page_columns [layout::page_template::get_column_value -name $page_template -column columns]
+
+ for { set page_column 1 } { $page_column <= $page_columns } { incr page_column } {
+ set count [db_string select_page_column_count {}]
+ if {$count < $min_count} {
+ set min_count $count
+ set min_page_column $page_column
+ }
+ }
+
+ return $min_page_column
+}
+
+ad_proc -private layout::element::get_render_data {
+ -element_id:required
+ {-edit_p 0}
+} {
+ Return all the good stuff a render template needs to render an element.
+
+ @element_id The element in question
+ @decorate_p If true decorate the element with the layout manager theme.
+ @edit_p If true the render template should show the shade and hide widgets
+
+} {
+
+ # Everything we call here caches their database queries, so we won't do any
+ # caching of our own. This (trust me) simplified the cache coherency problem.
+
+ array set element [layout::element::get -element_id $element_id]
+ array set page [layout::page::get -page_id $element(page_id)]
+ array set pageset [layout::pageset::get -pageset_id $page(pageset_id)]
+
+ # If the element has no custom theme assigned to it, inherit the
+ # default theme from the page or page set that owns this element.
+
+ if { $element(theme) eq "" } {
+ set element(theme) $page(theme)
+ if { $element(theme) eq "" } {
+ set element(theme) $pageset(theme)
+ }
+ }
+
+ array set theme [layout::theme::get -name $element(theme)]
+ set element(theme_template) $theme(template)
+
+ set config [list \
+ element_id $element_id \
+ package_id $element(package_id)
+ ]
+
+ set config [concat $config [layout::element::parameter::get_all -element_id $element_id]]
+
+ array set includelet [layout::includelet::get -name $element(includelet_name)]
+
+ # Kludge to allow portlet templates to live in the package's lib directory
+ # while remaining compatible with the existing .LRN portlet structure which has
+ # them in www. If you're porting an old portlet and are too lazy to move
+ # it to lib, specify the full path when you declare your portlet.
+
+ if { [string match /* $includelet(template)] } {
+ set element(template_path) "$includelet(template)"
+ } else {
+ set element(template_path) "/packages/$includelet(owner)/lib/$includelet(template)"
+ }
+ set element(dotlrn_compat_p) $includelet(dotlrn_compat_p)
+
+ set element(config) $config
+
+ return [array get element]
+
+}
+
+ad_proc layout::element::configure {
+ -element_id:required
+ -op:required
+ -return_url:required
+} {
+ dispatch on the element_id and op requested
+} {
+
+ set state [layout::element::get_column_value -element_id $element_id -column state]
+
+ switch $op {
+ shade {
+ if {[string equal $state shaded]} {
+ set new_state full
+ } else {
+ set new_state shaded
+ }
+ }
+ hide {
+ if {[string equal $state hidden]} {
+ set new_state full
+ } else {
+ set new_state hidden
+ }
+ }
+ }
+
+ layout::element::set_column_value -element_id $element_id -column state -value $new_state
+ ad_returnredirect $return_url
+
+}
+
+ad_proc layout::element::flush {
+ -element_id:required
+} {
+ Flush all cache entries built for element_id
+} {
+ db_flush_cache -cache_key_pattern element_${element_id}_*
+}
Index: openacs-4/packages/layout-manager/tcl/element-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/element-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/element-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,141 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::element::new.insert_element">
+ <querytext>
+ insert into layout_elements
+ (element_id, includelet_name, name, title, page_id, page_column, theme,
+ state, sort_key, required_privilege, package_id)
+ select :element_id,
+ :includelet_name,
+ :name,
+ :title,
+ :page_id,
+ :page_column,
+ :theme,
+ :state,
+ coalesce((select max(layout_elements.sort_key) + 1
+ from layout_elements
+ where page_id = :page_id
+ and page_column = :page_column), 1),
+ layout_includelets.required_privilege,
+ :package_id
+ from layout_includelets
+ where layout_includelets.name = :includelet_name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::delete.delete_element">
+ <querytext>
+ delete
+ from layout_elements
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::get.select_element">
+ <querytext>
+ select *
+ from layout_elements
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::set_values.update_element">
+ <querytext>
+ update layout_elements
+ set includelet_name = :includelet_name,
+ name = :name,
+ title = :title,
+ page_id = :page_id,
+ page_column = :page_column,
+ sort_key = :sort_key,
+ theme = :theme,
+ state = :state
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::choose_page_column.select_page_column_count">
+ <querytext>
+ select count(*) as count
+ from layout_elements pe,
+ layout_pages pp
+ where pp.page_id = :page_id
+ and pe.page_column = :page_column
+ and pp.page_id = pe.page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::get_id_list.select_element_ids">
+ <querytext>
+ select layout_elements.element_id
+ from layout_elements,
+ layout_pages
+ where layout_pages.pageset_id = :pageset_id
+ and layout_elements.includelet_name = :includelet_name
+ and layout_elements.page_id = layout_pages.page_id
+ and layout_elements.name like :name
+ and layout_elements.title like :title
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::get_id_from_unique_param.select_id">
+ <querytext>
+ select layout_elements.element_id
+ from layout_elements, layout_element_parameters
+ where layout_elements.page_id in (select page_id
+ from layout_pages
+ where layout_id = :layout_id)
+ and layout_element_parameters.element_id = layout_elements.element_id
+ and layout_element_parameters.key = :key
+ and layout_element_parameters.value = :value
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_vertically.swap_sort_keys_1">
+ <querytext>
+ update layout_elements
+ set sort_key = :dummy_sort_key
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_vertically.swap_sort_keys_2">
+ <querytext>
+ update layout_elements
+ set sort_key = :sort_key
+ where element_id = :other_element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::move_vertically.swap_sort_keys_3">
+ <querytext>
+ update layout_elements
+ set sort_key = :other_sort_key
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::get_id.element_id">
+ <querytext>
+ select pe.element_id
+ from layout_elements pe, layout_includelets pd
+ where pe.page_id = :page_id
+ and pe.includelet_name= pd.includelet_name
+ and pd.name = :includelet_name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::element::get_id_from_name.element_id">
+ <querytext>
+ select pe.element_id
+ from layout_elements pe, layout_pages pp
+ where pe.page_id = pp.page_id
+ and pe.name = :name
+ and pp.layout_id = :layout_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/includelet-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/includelet-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,67 @@
+ad_library {
+
+ Layout Manager Includelet Procs
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-5
+ @version $Id: includelet-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::includelet {}
+
+ad_proc layout::includelet::new {
+ -name:required
+ -title:required
+ -datasource:required
+ -template:required
+ -description
+ {-dotlrn_compat_p f}
+ {-constructor ""}
+ {-destructor ""}
+ {-required_privilege read}
+} {
+ Create a new layout manager includelet.
+
+ @param name The internal name of the new includelet. Like package keys, this must
+ be unique in a single OpenACS instance, so it is best to incorporate the includelet's
+ package key in the name (forums_includelet, forums_admin_includelet, etc)
+ @param title The external name (or message key) of the includelet
+ @param owner The package that owns this portlet
+ @param application The package the portlet works with, if any
+ @param template The template the displays the portlet content
+ @param description A human-readable description (defaults to name)
+ @param constructor Custom constructor to run after the default constructor
+ @param destructor Custom destructor to run before the default destructor
+ @param required_privilege The default privilege the user needs to be able to see this
+ includelet (defaults to 'read')
+
+ @author Don Baccus (dhogaza@pacifier.com)
+} {
+ # Default includelet description to its name
+ if { ![info exists description] } {
+ set description $name
+ }
+
+ db_dml insert_includelet {}
+}
+
+ad_proc -private layout::includelet::delete {
+ -name:required
+} {
+ Delete an includelet and any layout element referencing it.
+
+ @param name The name of the includelet to delete
+} {
+ db_dml delete_includelet {}
+}
+
+
+ad_proc layout::includelet::get {
+ -name:required
+} {
+ Return the includelet in "array get" format.
+} {
+ db_1row select_includelet {} -column_array includelet
+ return [array get includelet]
+}
Index: openacs-4/packages/layout-manager/tcl/includelet-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/includelet-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/includelet-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,31 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::includelet::new.insert_includelet">
+ <querytext>
+ insert into layout_includelets
+ (name, title, datasource, template, constructor, destructor, required_privilege,
+ description, dotlrn_compat_p)
+ values
+ (:name, :title, :datasource, :template, :constructor, :destructor,
+ :required_privilege, :description, :dotlrn_compat_p)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::includelet::delete.delete_includelet">
+ <querytext>
+ delete from layout_includelets
+ where name = :name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::includelet::get.select_includelet">
+ <querytext>
+ select *
+ from layout_includelets
+ where name = :name
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/layout-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/layout-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/layout-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,31 @@
+ad_library {
+
+ Layout Manager Procs
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-05
+ @version $Id: layout-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout {}
+
+ad_proc layout::package_id {} {
+ Returns our package_id. Works with acs-subsite's internal redirect parameter.
+} {
+ if { [ad_conn package_key] eq "layout-manager" } {
+ return [ad_conn package_id]
+ } elseif { [ad_conn package_key] eq "acs-subsite" } {
+ return [site_node::get_children \
+ -package_key layout-manager \
+ -node_id [ad_conn node_id] \
+ -element object_id]
+ }
+ return -code error "pageset::package_id called with package_key not acs-subsite or layout-manager"
+}
+
+ad_proc layout::mount_point {} {
+ Caches the mount point
+} {
+ return [lindex [site_node::get_url_from_object_id -object_id [ad_conn package_id]] 0]
+}
Index: openacs-4/packages/layout-manager/tcl/layout-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/Attic/layout-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/layout-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,20 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::page_template::::get_column_values.select_columns">
+ <querytext>
+ select columns
+ from layout_page_templates
+ where name = :name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page_template::::get_list.select_list">
+ <querytext>
+ select name, description
+ from layout_page_templates
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/page-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/page-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/page-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,190 @@
+ad_library {
+
+ layout page procs
+
+ @creation-date 2008-07-05
+ @version $Id: page-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::page {}
+
+ad_proc layout::page::new {
+ -pageset_id:required
+ -name:required
+ {-page_template 2_column}
+} {
+ Create a new page and associate it with the given page set.
+
+ @param pageset_id The id of the page set the new page will be bound to.
+ @param name The page name (used for navigation).
+ @param page_template The page template to use to render this page.
+} {
+ set page_id [db_nextval layout_seq]
+ db_dml insert_page {}
+ layout::pageset::flush -pageset_id $pageset_id
+ return $page_id
+}
+
+ad_proc layout::page::delete {
+ -page_id:required
+} {
+ Delete a page.
+
+ @param page_id The id of the page to delete.
+} {
+ set pageset_id [layout::page::get_column_value -page_id $page_id -column pageset_id]
+
+ # Renumber pages that have a sort key greater than ours, then delete the page.
+ db_transaction {
+ set page_list [db_list_of_lists get_pages {}]
+ db_dml delete_page {}
+ foreach page $page_list {
+ foreach {update_page_id sort_key} $page {}
+ db_dml update_page {}
+ }
+ }
+
+ layout::pageset::flush -pageset_id $pageset_id
+ layout::page::flush -page_id $page_id
+}
+
+ad_proc -private layout::page::get {
+ -page_id:required
+} {
+ Get the columns of a page in array get format.
+
+ @param page_id The id of the page.
+} {
+ ns_cache eval db_cache_pool page_${page_id}_get {
+ db_1row select_page {} -column_array page
+ return [array get page]
+ }
+}
+
+ad_proc layout::page::get_column_value {
+ -page_id:required
+ -column:required
+} {
+ Return the value of a particular column value for a page.
+
+ @param page_id The id of the page.
+} {
+ array set page [layout::page::get -page_id $page_id]
+ return $page($column)
+}
+
+ad_proc layout::page::set_values {
+ -page:required
+} {
+ Set the fields of a layout page.
+
+ @param page The new value of the page in array get format (including page_id).
+} {
+ array set page_array $page
+ template::util::array_to_vars page_array
+
+ db_dml update_page {}
+ layout::page::flush -page_id $page_id
+}
+
+ad_proc layout::page::set_column_value {
+ -page_id:required
+ -column:required
+ -value:required
+} {
+ Set the value of a single column within a page.
+
+ @param page_id The id of the page.
+} {
+ array set page [layout::page::get -page_id $page_id]
+ set page($column) $value
+
+ layout::page::set_values -page [array get page]
+}
+
+ad_proc layout::page::get_id {
+ -pageset_id:required
+ {-page_name ""}
+ {-sort_key 0}
+} {
+ Get the page_id given a pageset_id and a page name or sort_key. if no name is given
+ the page with the given sort_key is returned.
+
+ @param pageset_id The pageset we're interested in.
+ @param page_name The name of the page we want.
+ @param sort_key If page_name is blank, grab the page with the given sort_key.
+} {
+ if {![empty_string_p $page_name]} {
+ set page_id [db_string get_page_id_from_name {} -default ""]
+ if {[empty_string_p $page_id]} {
+ # there is no page by that name in the pageset, return page 0
+ return [layout::page::get_id -pageset_id $pageset_id]
+ } else {
+ return $page_id
+ }
+ } else {
+ return [db_string get_page_id_select {}]
+ }
+}
+
+ad_proc layout::page::first_page_p {
+ -pageset_id:required
+ -page_id:required
+} {
+ Check if the given page_id is the first page in the given pageset.
+
+ @param pageset_id The id of the page set.
+ @param page_id The id of the page within the page set.
+ @return 1 If the page is the first page in the page set.
+} {
+ return [expr {$page_id == [layout::page::get_id -pageset_id $pageset_id -sort_key 0]}]
+}
+
+ad_proc -private layout::page::has_visible_elements {
+ -page_id:required
+} {
+ Check if a page has any visible elements.
+
+ @param page_id The id of the page to check.
+ @return 1 If the page has at least one element that's visible.
+} {
+ return [db_string select_visible_elements_p {} -default 0]
+}
+
+ad_proc -private layout::page::get_render_data {
+ -page_id:required
+} {
+ Get the data needed to render a page in array get format.
+
+ @param page_id The id of the page to render.
+ @return The value of the page entry augmented with template and a list of element_ids,
+ all in array get format.
+} {
+ set user_id [ad_conn user_id]
+ ns_cache eval db_cache_pool page_${page_id}_get_render_data_$user_id {
+ array set page [layout::page::get -page_id $page_id]
+ set page_template [layout::page::get_column_value -page_id $page_id -column page_template]
+ db_1row page_template_select {}
+ set page(template) $template
+
+ db_foreach element_select {} -column_array entry {
+ lappend element_ids($entry(page_column)) $entry(element_id)
+ } if_no_rows {
+ set element_ids {}
+ }
+
+ set page(element_list) [array get element_ids]
+ return [array get page]
+ }
+}
+
+ad_proc -private layout::page::flush {
+ -page_id:required
+} {
+ Flushes all cached data for this page.
+
+ @param page_id The id of the page to flush from the cache.
+} {
+ db_flush_cache -cache_key_pattern page_${page_id}_*
+}
Index: openacs-4/packages/layout-manager/tcl/page-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/page-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/page-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,127 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::page::new.insert_page">
+ <querytext>
+ insert into layout_pages
+ (page_id, name, pageset_id, page_template, sort_key)
+ select :page_id, :name, :pageset_id, :page_template,
+ coalesce(max(sort_key) + 1, 0)
+ from layout_pages
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::delete.get_pages">
+ <querytext>
+ select page_id, sort_key
+ from layout_pages
+ where pageset_id = :pageset_id
+ and sort_key > (select sort_key
+ from layout_pages
+ where page_id = :page_id)
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::delete.update_page">
+ <querytext>
+ update layout_pages
+ set sort_key = :sort_key - 1
+ where page_id = :update_page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::delete.delete_page">
+ <querytext>
+ delete from layout_pages
+ where page_id = :page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::get.select_page">
+ <querytext>
+ select *
+ from layout_pages
+ where page_id = :page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::set_values.update_page">
+ <querytext>
+ update layout_pages
+ set name = :name,
+ pageset_id = :pageset_id,
+ page_template = :page_template,
+ sort_key = :sort_key,
+ theme = :theme
+ where page_id = :page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::has_visisble_elements.select_visible_elements">
+ <querytext>
+ select case when count(*) = 0 then 0 else 1 end
+ from layout_elements
+ where page_id = :page_id
+ and state != 'hidden'
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::get_id.get_page_id_select">
+ <querytext>
+ select page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ and sort_key = :sort_key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::get_id.get_page_id_from_name">
+ <querytext>
+ select page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ and name = :page_name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::has_visible_elements.select_visible_elements_p">
+ <querytext>
+ select 1
+ from dual
+ where exists (select 1
+ from layout_elements
+ where page_id = :page_id
+ and state != 'hidden')
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::get_render_data.page_template_select">
+ <querytext>
+ select layout_page_templates.template
+ from layout_page_templates
+ where layout_page_templates.name = :page_template
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page::get_render_data.element_select">
+ <querytext>
+ select le.element_id,
+ le.page_column,
+ le.sort_key
+ from layout_elements le, layout_pages lp
+ where lp.page_id = :page_id
+ and le.page_id = lp.page_id
+ and le.state != 'hidden'
+ and exists (select 1
+ from acs_object_party_privilege_map
+ where object_id = le.package_id
+ and party_id = :user_id
+ and privilege = le.required_privilege)
+ order by le.page_column, le.sort_key
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/page-template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/page-template-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/page-template-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,65 @@
+ad_library {
+
+ layout page templateprocs
+
+ @creation-date 2008-07-07
+ @version $Id: page-template-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::page_template {}
+
+ad_proc layout::page_template::new {
+ -name:required
+ {-description ""}
+ -columns:required
+ -template:required
+} {
+ Create a new page template.
+
+ A page template defines the number of columns on a page, and a template
+ to render the page and its component elements.
+
+ @param name The name of this page template, which must be unique.
+ @param description An optional description of this page template.
+ @param columns The number of columns this page template expects.
+ @param template The path (/packages/...) to the template source.
+} {
+ db_dml insert_page_template {}
+}
+
+ad_proc layout::page_template::delete {
+ -name:required
+} {
+ Delete the given page template.
+
+ @param name The name of the template to delete.
+} {
+ db_dml delete_page_template {}
+}
+
+ad_proc layout::page_template::get {
+ -name:required
+} {
+ Returns information about the given page_template in array get format
+
+ @param name The name of the page template.
+} {
+ # DRB: need to do CACHE
+ db_1row select_page_template {} -column_array page_template
+ return [array get page_template]
+}
+
+ad_proc layout::page_template::get_column_value {
+ -name:required
+ -column:required
+} {
+ Returns the requested column for the given page template.
+
+ @param name The name of the page template.
+ @param column The column of the page template to return
+ @return The requested column
+} {
+ array set page_template [layout::page_template::get -name $name]
+ return $page_template($column)
+}
Index: openacs-4/packages/layout-manager/tcl/page-template-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/page-template-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/page-template-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,29 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::page_template::new.insert_page_template">
+ <querytext>
+ insert into layout_page_templates
+ (name, description, columns, template)
+ values
+ (:name, :description, :columns, :template)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page_template::delete.delete_page_template">
+ <querytext>
+ delete from layout_page_templates
+ where name = :name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::page_template::get.select_page_template">
+ <querytext>
+ select *
+ from layout_page_templates
+ where name = :name
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/pageset-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/pageset-procs-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/pageset-procs-oracle.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+ <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+ <fullquery name="layout::pageset::delete.delete_pageset">
+ <querytext>
+ begin
+ layout_pageset.del(p_pageset_id => :pageset_id);
+ end;
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/pageset-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/pageset-procs-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/pageset-procs-postgresql.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+
+<queryset>
+ <rdbms><type>postgresql</type><version>7.2</version></rdbms>
+
+ <fullquery name="layout::pageset::delete.delete_pageset">
+ <querytext>
+ select layout_pageset__del(:pageset_id);
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/pageset-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/pageset-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/pageset-procs.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,410 @@
+ad_library {
+
+ Layout Manager Page Set Procs
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-05
+ @version $Id: pageset-procs.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+namespace eval layout::pageset {}
+
+ad_proc layout::pageset::new {
+ -owner_id:required
+ {-name Untitled}
+ {-context_id ""}
+ {-page_list ""}
+ {-owner_privileges {read write admin}}
+ {-theme default}
+ {-package_id ""}
+} {
+ Create a new page set for the passed in owner_id. create pages passed in
+ the page_list.
+
+ @owner_id The object (usually a party) which owns the new page set
+ @name The name of the page set
+ @context_id The new page set object's context_id (defaults to package_id)
+ @page_list The list of pages to create within the page set
+ @owner_privileges A list of privileges to grant the party on the new page set.
+ Normally the default list (read, write, admin) will be correct if the party
+ is a user but if the party is a group (say, members of a subsite) then it
+ would make sense to only grant read to the party directly.
+ @theme The theme to assign to this page set (unless copying from a template)
+ @package_id The package id of the owning package (defaults to ad_conn package_id)
+
+} {
+
+ if { [string equal $package_id ""] } {
+ set package_id [ad_conn package_id]
+ }
+
+ if { [string equal $context_id ""] } {
+ set context_id $package_id
+ }
+
+ db_transaction {
+
+ set var_list [subst {
+ {p_name "$name"}
+ {p_context_id $context_id}
+ {p_owner_id $owner_id}
+ {p_theme $theme}
+ {p_package_id $package_id}}]
+
+ set pageset_id [package_instantiate_object -var_list $var_list layout_pageset]
+
+ foreach privilege $owner_privileges {
+ permission::grant -party_id $owner_id -object_id $pageset_id -privilege $privilege
+ }
+
+ foreach page $page_list {
+ layout::page::new \
+ -pageset_id $pageset_id \
+ -name [lindex $page 0] \
+ -page_template [lindex $page 1]
+ }
+ }
+ db_flush_cache -cache_key_pattern pageset_id_${package_id}_${owner_id}*
+ return $pageset_id
+}
+
+ad_proc layout::pageset::delete {
+ -pageset_id:required
+} {
+ delete a page set
+} {
+ db_dml delete_permissions {}
+ db_exec_plsql delete_pageset {}
+ layout::pageset::flush -pageset_id $pageset_id
+}
+
+ad_proc -private layout::pageset::get {
+ -pageset_id:required
+} {
+ get page set info in "array get" format (not cached)
+} {
+ ns_cache eval db_cache_pool pageset_${pageset_id}_get {
+ db_1row select_pageset_info {} -column_array pageset
+ return [array get pageset]
+ }
+}
+
+ad_proc layout::pageset::get_column_value {
+ -pageset_id:required
+ -column:required
+} {
+ array set pageset [layout::pageset::get -pageset_id $pageset_id]
+ return $pageset($column)
+}
+
+ad_proc layout::pageset::get_pageset_id {
+ -package_id:required
+ -owner_id:required
+} {
+ Get a pageset_id.
+
+ @param package_id The package_id of the page set instance
+ @param owner_id The owner of the page set
+} {
+ return [db_string -cache_key pageset_id_${package_id}_$owner_id \
+ select_pageset_id {} -default 0]
+}
+
+ad_proc layout::pageset::get_user_pageset_id {
+ -package_id
+} {
+ Get the pageset_id for a user.
+
+ @param package_id The package_id of the page set instance (defaults to package_id)_
+ @return The pageset_id for the user or the master template pageset_id if personal
+ page sets are not enabled.
+} {
+
+ if { ![info exists package_id] } {
+ set package_id [ad_conn package_id]
+ }
+
+ if { [parameter::get -package_id $package_id -parameter CreatePrivatePageSets] } {
+ set owner_id [ad_conn user_id]
+ } else {
+ set owner_id 0
+ }
+
+ set pageset_id [layout::pageset::get_pageset_id -package_id $package_id -owner_id $owner_id]
+
+ if { $pageset_id == 0 } {
+ if { ![layout::pageset::initialized -package_id $package_id] } {
+ if { [permission::permission_p -object_id $package_id -privilege admin] } {
+ ad_returnredirect admin
+ ad_script_abort
+ } else {
+ ad_return_exception_template -params {{custom_message "The page set package hasn't been configured yet."}} /packages/acs-subsite/www/shared/report-error
+ }
+ }
+
+ # At this point we know we're supposed to create a personal page set
+
+ db_1row select_user_name {}
+
+ set master_template_id [layout::pageset::get_master_template_id -package_id $package_id]
+
+# DRB: this needs to be rewritten
+ set pageset_id [layout::pageset::new \
+ -owner_id $owner_id \
+ -name "Portal for $user_name" \
+ -template_id $master_template_id \
+ -context_id [ad_conn package_id] \
+ -initialize_elements]
+
+ }
+ return $pageset_id
+}
+
+ad_proc layout::pageset::set_values {
+ -pageset:required
+} {
+ set the fields of a page set
+} {
+ array set pageset_array $pageset
+ template::util::array_to_vars pageset_array
+ db_dml update_pageset {}
+ layout::pageset::flush -pageset_id $pageset_id
+}
+
+ad_proc layout::pageset::set_column_value {
+ -pageset_id:required
+ -column:required
+ -value:required
+} {
+ array set pageset [layout::pageset::get -pageset_id $pageset_id]
+ set pageset($column) $value
+
+ layout::pageset::set_values -pageset [array get pageset]
+}
+
+ad_proc layout::pageset::get_master_template_id {
+ -package_id
+} {
+ Get the master template id, i.e. the page set used to create all other page sets.
+
+ @param package_id The package_id of the page set instance (defaults to ad_conn package_id)
+ @return The pageset_id of the master page set template.
+
+} {
+
+ if { ![info exists package_id] } {
+ set package_id [ad_conn package_id]
+ }
+
+ if { [db_0or1row get_master_template_id {}] } {
+ return $master_template_id
+ } else {
+ return ""
+ }
+}
+
+
+ad_proc -public layout::pageset::get_page_count {
+ -pageset_id:required
+} {
+ Get the number of pages in this page set.
+
+ @param pageset_id The id of the page set.
+ @return The number of pages in the page set.
+} {
+ return [db_string select_page_count {}]
+}
+
+ad_proc layout::pageset::get_page_list {
+ -pageset_id:required
+} {
+ @return list of page_ids associated with the given page set (in sort_key order).
+} {
+ return [db_list select_page_ids {}]
+}
+
+ad_proc layout::pageset::get_render_data {
+ -pageset_id:required
+ {-page_num ""}
+} {
+ returns metadata needed to render a page set
+
+ @pageset_id The id of the page set you're interested in.
+ @page_num The page within the page set (defaults to page 0).
+
+ @return The page set metadata in array get format.
+} {
+ if { [string equal $page_num ""] } {
+ set page_num 0
+ }
+ ns_cache eval db_cache_pool pageset_${pageset_id}_get_render_data_$page_num {
+ # get the page set and layout
+ db_1row pageset_select {} -column_array pageset
+
+ array set theme [layout::theme::get -name $pageset(theme)]
+ set pageset(theme_template) $theme(template)
+
+ return [array get pageset]
+ }
+}
+
+ad_proc layout::pageset::configure_dispatch {
+ {-template_p f}
+ -pageset_id:required
+ -form:required
+} {
+ Dispatches the configuration operation.
+ We get the target page_column number from the op.
+
+ DRB: This is only kept for the revert code at the moment, i.e. until I
+ get time to move it to the configure template where it belongs. Also
+ the template (copy) stuff doesn't work.
+
+ @param pageset_id the page set to edit
+ @param formdata an ns_set with all the formdata
+} {
+
+ permission::require_permission -object_id $pageset_id -privilege write
+
+ set op [ns_set get $form op]
+
+ switch $op {
+ "Revert" {
+ db_transaction {
+ set template_id [layout::pageset::get_template_id -pageset_id $pageset_id]
+
+ # revert theme
+ set_theme -pageset_id $pageset_id -theme [layout::pageset::get_theme -pageset_id $template_id]
+
+ # revert pages
+ # first equalize number of pages in the target
+ set template_page_count [layout::pageset::get_page_count -pageset_id $template_id]
+ set target_page_count [layout::pageset::get_page_count -pageset_id $pageset_id]
+ set difference [expr $template_page_count - $target_page_count]
+
+ if {$difference > 0} {
+ # less pages in target
+ for {set x 0} {$x < $difference} {incr x} {
+
+ set name "page set revert dummy page $x"
+ layout::page::new \
+ -pageset_id $pageset_id \
+ -name $name \
+ }
+ } elseif {$difference < 0} {
+ # more pages in target, delete them from the end,
+ # putting any elements on them on the first page,
+ # we put them in the right place later
+ for {set x 0} {$x < [expr abs($difference)]} {incr x} {
+
+ set max_page_id [db_string revert_max_page_id_select {}]
+ set page_id [db_string revert_min_page_id_select {}]
+ set page_column 1
+
+ db_foreach revert_move_elements_for_del {} {
+ pageset::element::move_to_page \
+ -page_id $page_id \
+ -element_id $element_id \
+ -page_columncolumn 1
+ }
+
+ layout::page::delete -page_id $max_page_id
+ }
+ }
+
+ # now that they have the same number of pages, get to it
+ foreach source_page_id [layout::pageset::get_page_list -pageset_id $template_id] {
+
+ db_1row revert_get_source_page_info {}
+
+ set target_page_id [db_string revert_get_target_page_id {}]
+
+ db_dml revert_page_update {}
+
+ # revert elements in two steps like "swap"
+ db_foreach revert_get_source_elements {} {
+ # the element might not be on the target page...
+ set target_element_id \
+ [db_string revert_get_target_element {}]
+
+ db_dml revert_element_update {}
+ }
+ }
+ }
+ }
+ }
+}
+
+
+ad_proc -private layout::pageset::generate_action_string {
+} {
+ Portal configuration pages need this to set up
+ the target for the generated links. It's just the
+ current location with "-2" appended to the name of the
+ page.
+} {
+ return "[lindex [ns_conn urlv] [expr [ns_conn urlc] - 1]]-2"
+}
+
+ad_proc includelet_list {
+} {
+ Returns a list of page set includelets which have been mapped to the given page set
+ package instance.
+} {
+ set package_id [ad_conn package_id]
+ return [db_list_of_lists select_includelets {}]
+}
+
+ad_proc layout::pageset::initialized {
+ -package_id
+} {
+ @param package_id The package_id of this page set instance (default ad_conn package_id)
+ @return True if we've already initialized this instance of the page set package.
+} {
+ if { ![info exists package_id] } {
+ set package_id [ad_conn package_id]
+ }
+
+ return [expr {[layout::pageset::get_master_template_id -package_id $package_id] ne ""}]
+}
+
+ad_proc layout::pageset::initialize {
+ -package_id
+ {-page_list {{{Page 1} 2_column}}}
+} {
+ Initialize this instance of the page set package if we've not already done so. This
+ consists of creating the master template, which is assigned to party 0 and will be
+ the page set returned to users who aren't logged in, or all users if the page set package
+ is configured to disallow personal page sets.
+
+ @param package_id The page set instance we're initializing, default's to current package_id
+ @param page_list A list of lists of page titles and layouts to for the new user page set
+} {
+ if { ![info exists package_id] } {
+ set package_id [layout::package_id]
+ }
+
+ if { ![initialized -package_id $package_id] } {
+
+ # create the master template
+
+ set master_pageset_id [layout::pageset::new \
+ -name "Shared Page Set" \
+ -owner_id 0 \
+ -package_id $package_id \
+ -page_list $page_list \
+ -theme [parameter::get \
+ -package_id $package_id \
+ -parameter DefaultThemeName] \
+ -owner_privileges {}]
+ }
+}
+
+ad_proc layout::pageset::flush {
+ -pageset_id:required
+} {
+ Flush all cached data for this page set
+} {
+ db_flush_cache -cache_key_pattern pageset_${pageset_id}_*
+}
Index: openacs-4/packages/layout-manager/tcl/pageset-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/pageset-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/pageset-procs.xql 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,219 @@
+?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::pageset::new.get_elements">
+ <querytext>
+ select ld.name, le.element_id
+ from layout_includelets ld, layout_elements le, layout_pages lp
+ where lp.pageset_id = :pageset_id
+ and le.page_id = lp.page_id
+ and ld.includelet_id = le.includelet_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::delete.delete_permissions">
+ <querytext>
+ delete from acs_permissions
+ where object_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get.select_pageset_info">
+ <querytext>
+ select *
+ from layout_pagesets
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get_pageset_id.select_pageset_id">
+ <querytext>
+ select pageset_id
+ from layout_pagesets
+ where owner_id = :owner_id
+ and package_id = :package_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get_user_pageset_id.select_user_name">
+ <querytext>
+ select first_names || ' ' || last_name as user_name
+ from persons
+ where person_id = :owner_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::set_values.update_pageset">
+ <querytext>
+ update layout_pagesets
+ set name = :name,
+ theme = :theme,
+ template_id = :template_id
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get_render_data.pageset_select">
+ <querytext>
+ select layout_pagesets.name,
+ layout_pagesets.pageset_id,
+ layout_pagesets.theme,
+ layout_pages.page_id
+ from layout_pagesets, layout_pages
+ where layout_pagesets.pageset_id = :pageset_id
+ and layout_pages.sort_key = :page_num
+ and layout_pages.pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure.pageset_and_page_info_select">
+ <querytext>
+ select layout_pagesets.name,
+ layout_pagesets.pageset_id,
+ layout_pageset_layouts.template,
+ layout_pages.name as page_name,
+ layout_pages.layout_id as layout_id
+ from layout_pagesets, layout_page_templates, layout_pages
+ where layout_pages.pageset_id = :pageset_id
+ and layout_pages.page_id = :page_id
+ and layout_pages.pageset_id = layout_pagesets.pageset_id
+ and layout_pages.layout_id = pageset_layouts.layout_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.hide_update">
+ <querytext>
+ update layout_elements
+ set state = 'hidden'
+ where element_id = :element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_max_page_id_select">
+ <querytext>
+ select max(page_id)
+ from layout_pages
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_min_page_id_select">
+ <querytext>
+ select min(page_id)
+ from layout_pages
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_move_elements_for_del">
+ <querytext>
+ select element_id
+ from layout_elements
+ where page_id = :max_page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_get_source_page_info">
+ <querytext>
+ select name, layout_id, sort_key
+ from layout_pages
+ where page_id = :source_page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_get_target_page_id">
+ <querytext>
+ select page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ and sort_key = :sort_key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_page_update">
+ <querytext>
+ update layout_pages
+ set name = :name,
+ layout_id = :layout_id
+ where page_id = :target_page_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_get_source_elements">
+ <querytext>
+ select layout_elements.page_column, layout_elements.sort_key, layout_elements.state,
+ layout_includelets.includelet_id, layout_includelets.name,
+ layout_elements.name as pretty_name
+ from layout_elements, layout_includelets
+ where layout_elements.page_id = :source_page_id
+ and layout_elements.includelet_id = layout_includelets.includelet_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_get_target_element">
+ <querytext>
+ select layout_pages.element_id
+ from layout_elements, layout_pages
+ where layout_pages.pageset_id = :pageset_id
+ and layout_elements.page_id = layout_pages.page_id
+ and layout_elements.includelet_id = :includelet_id
+ and layout_elements.name = :name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::configure_dispatch.revert_element_update">
+ <querytext>
+ update layout_elements
+ set page_column = :page_column,
+ sort_key = :sort_key,
+ state = :state,
+ page_id = :target_page_id
+ where element_id = :target_element_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get_master_template_id.get_master_template_id">
+ <querytext>
+ select pageset_id as master_template_id
+ from layout_pagesets
+ where package_id = :package_id
+ and owner_id = 0
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get_page_count.select_page_count">
+ <querytext>
+ select count(*)
+ from layout_pages
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get_page_list.select_page_ids">
+ <querytext>
+ select page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::navbar.list_page_nums_select">
+ <querytext>
+ select name, sort_key as page_num
+ from layout_pages
+ where pageset_id = :pageset_id
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::pageset::get_theme.get_theme_select">
+ <querytext>
+ select theme
+ from layout_pagesets
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/template-tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/template-tag-init.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/template-tag-init.tcl 22 Jul 2008 07:31:03 -0000 1.1
@@ -0,0 +1,81 @@
+ad_library {
+
+ Implement custom layout manager template tags
+
+ @creation-date 2008-07-11
+ @version $Id: template-tag-init.tcl,v 1.1 2008/07/22 07:31:03 donb Exp $
+
+}
+
+# Include an includelet, passing a reference parameter to an array get list as a
+# list of parameters to the includelet. This allows a general-purpose template which
+# takes a set of parameters to be called directly as a layout manager includelet as
+# well as by the normal <include src="script" param="value" param1="value1"> mechanism
+
+# Usage: <includelet src="template" &="name_of_variable_set_to_array_get_list">
+
+# Note: if you're not implementing the layout-manager's render-element template, you
+# probably don't want to use this tag.
+
+template_tag layout_includelet { params } {
+
+ if { [ns_set size $params] > 2 } {
+ error "LAYOUT_INCLUDELET tag has too many parameters"
+ }
+
+ set src [ns_set iget $params src]
+
+ #Start developer support frame around subordinate template.
+ if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_start_box]] } {
+ ::ds_adp_start_box -stub "\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
+ }
+
+ set command "template::adp_parse"
+ append command " \[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
+
+ # We accept one reference parameter along with the src parameter. We'll pass the
+ # runtime (NOT compile time) value of that parameter as the list of parameters to
+ # the template. This has the effect of transforming the layout manager's configuration
+ # array (kept for backwards compatibility with .LRN portlets) into a set of parameters
+ # (for compatibility with "normal" library templates).
+
+ for { set i 0 } { $i < [ns_set size $params] } { incr i } {
+ set key [ns_set key $params $i]
+ if {$key eq "src"} {
+ continue
+ } elseif { $key ne "&" } {
+ error "LAYOUT_INCLUDELET tag requires a src parameter and one reference parameter"
+ }
+ set __config [ns_set value $params $i]
+ append command " \$$__config"
+ }
+
+ # Everything from here on down is poached from the include tag code.
+ # We explicitly test for ad_script_abort, so we don't dump that as an error, and don't catch it, either
+ # (We do catch it, but then we re-throw it)
+ template::adp_append_code "if { \[catch { append __adp_output \[$command\] } errmsg\] } {"
+ template::adp_append_code " global errorInfo errorCode"
+ template::adp_append_code " if { \[string equal \[lindex \$errorCode 0\] \"AD\"\] && \[string equal \[lindex \$errorCode 1\] \"EXCEPTION\"\] && \[string equal \[lindex \$errorCode 2\] \"ad_script_abort\"\] } {"
+ template::adp_append_code " ad_script_abort"
+ template::adp_append_code " } else {"
+ template::adp_append_code " append __adp_output \"Error in include template \\\"\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]\\\": \$errmsg\""
+ # JCD: If we have the ds_page_bits cache maybe save the error for later
+ if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_page_fragment_cache_enabled_p]] } {
+ template::adp_append_code " if {\[::ds_enabled_p\]"
+ template::adp_append_code " && \[::ds_collection_enabled_p\] } {"
+ template::adp_append_code " set __include_errors {}"
+ template::adp_append_code " ns_cache get ds_page_bits \[ad_conn request\]:error __include_errors"
+ template::adp_append_code " ns_cache set ds_page_bits \[ad_conn request\]:error \[lappend __include_errors \[list \"$src\" \$errorInfo\]\]"
+ template::adp_append_code " }"
+ }
+ template::adp_append_code " ns_log Error \"Error in include template \\\"\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]\\\": \$errmsg\n\$errorInfo\""
+ template::adp_append_code " }"
+ template::adp_append_code "}"
+
+ #End developer support frame around subordinate template.
+ if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_end_box]] } {
+ ::ds_adp_end_box -stub "\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
+ }
+
+ }
+
Index: openacs-4/packages/layout-manager/tcl/theme-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/theme-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/theme-procs.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,61 @@
+ad_library {
+
+ Layout Manager Theme Procs
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2008-07-05
+ @version $Id: theme-procs.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+
+}
+
+namespace eval layout::theme {}
+
+# We make no provision for flushing cached theme queries at the
+# present time because once defined, they never change.
+
+ad_proc layout::theme::new {
+ -name:required
+ {-description ""}
+ -template:required
+} {
+ Create a new layout theme, which is just a master template which surrounds its
+ slave with a bit of decoration.
+
+ @param name The name of the theme, which must be unique.
+ @param description An optional description of the theme.
+ @param template The path (/packages/...) of the template.
+} {
+ db_dml insert_theme {}
+}
+
+ad_proc layout::theme::delete {
+ {-name:required}
+} {
+ db_dml delete_theme {}
+ layout::theme::flush -name $name
+}
+
+ad_proc layout::theme::get {
+ -name:required
+} {
+ ns_cache eval db_cache_pool theme_${name}_get {
+ db_1row select_theme {} -column_array theme
+ return [array get theme]
+ }
+}
+
+ad_proc layout::theme::get_column_value {
+ -name:required
+ -column:required
+} {
+ array set theme [layout::theme::get -name $name]
+ return $theme($column)
+}
+
+ad_proc layout::theme::flush {
+ -name:required
+} {
+ Flush all cached data for this page set
+} {
+ db_flush_cache -cache_key_pattern theme_${name}_*
+}
Index: openacs-4/packages/layout-manager/tcl/theme-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/theme-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/theme-procs.xql 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,29 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="layout::theme::new.insert_theme">
+ <querytext>
+ insert into layout_themes
+ (name, description, template)
+ values
+ (:name, :description, :template)
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::theme::delete.delete_theme">
+ <querytext>
+ delete from layout_themes
+ where name = :name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="layout::theme::get.select_theme">
+ <querytext>
+ select *
+ from layout_themes
+ where name = :name
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/tcl/test/layout-manager-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/test/layout-manager-test-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/tcl/test/layout-manager-test-procs.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,273 @@
+ad_library {
+ Tests for the layout manager
+}
+
+# More element-procs tests
+# Add theme-procs tests
+# Add element-parameters-procs tests
+# Add layout-procs tests
+
+# We iterate through tests in an attempt to catch caching problems
+
+aa_register_case -cats {api smoke} themes {
+ Test the themes API
+} {
+ aa_run_with_teardown \
+ -rollback \
+ -test_code {
+
+ for { set i 1 } { $i <= 3 } { incr i } {
+ layout::theme::new \
+ -name fake_theme \
+ -description "Fake Theme" \
+ -template fake_theme
+ aa_log "Pass $i: new"
+
+ layout::theme::delete -name fake_theme
+ aa_log "Pass $i: delete"
+
+ aa_log_result pass "pass $i: theme tests ran without failure"
+ }
+ }
+}
+
+aa_register_case -cats {api smoke} datasources {
+ Test the includelets API
+} {
+ aa_run_with_teardown \
+ -rollback \
+ -test_code {
+ for { set i 1 } { $i <= 3 } { incr i } {
+ layout::datasource::new \
+ -name fake_datasource \
+ -description "Fake datasource" \
+ -package_key layout-manager
+ aa_log "Pass $i: new"
+ layout::datasource::delete \
+ -name fake_datasource
+ aa_log "Pass $i: delete"
+ }
+ }
+}
+
+aa_register_case -cats {api smoke} includelets {
+ Test the includelets API
+} {
+ aa_run_with_teardown \
+ -rollback \
+ -test_code {
+
+ for { set i 1 } { $i <= 3 } { incr i } {
+ layout::datasource::new \
+ -name fake_datasource \
+ -description "Fake datasource" \
+ -package_key layout-manager
+ layout::includelet::new \
+ -name fake_includelet \
+ -description "Fake Includelet" \
+ -title "Fake Includelet" \
+ -datasource fake_datasource \
+ -template fake
+ aa_log "Pass $i: new"
+
+ layout::includelet::delete -name fake_includelet
+ aa_log "Pass $i: delete"
+ layout::datasource::delete \
+ -name fake_datasource
+
+ aa_log_result pass "pass $i: includelet tests ran without failure"
+ }
+ }
+}
+
+aa_register_case -cats {api smoke} pagesets {
+ Test the page sets API
+} {
+ aa_run_with_teardown \
+ -rollback \
+ -test_code {
+
+ for { set i 1 } { $i <= 3 } { incr i } {
+ set pageset_id \
+ [layout::pageset::new -package_id [ad_conn package_id] -name Untitled -owner_id 0]
+ aa_true "Pass $i: new" [exists_and_not_null pageset_id]
+
+ array set t [layout::pageset::get -pageset_id $pageset_id]
+ aa_true "Pass $i: get" { $t(pageset_id) ne "" }
+
+ set get_pageset_id [layout::pageset::get_pageset_id \
+ -package_id [ad_conn package_id] -owner_id 0]
+ aa_equals "Pass $i: get_pageset_id" $pageset_id $get_pageset_id
+
+ set name [layout::pageset::get_column_value -pageset_id $pageset_id -column name]
+ aa_equals "Pass $i: get name" $name Untitled
+
+ layout::pageset::set_column_value \
+ -pageset_id $pageset_id \
+ -column name \
+ -value Titled
+ aa_equals "Pass $i: set name (and therefore set_values)" \
+ [layout::pageset::get_column_value -pageset_id $pageset_id -column name] Titled
+
+ layout::pageset::delete -pageset_id $pageset_id
+ aa_log "Pass $i: delete"
+ }
+ }
+}
+
+aa_register_case -cats {api smoke} pages {
+ Test the pages API
+} {
+ aa_run_with_teardown \
+ -rollback \
+ -test_code {
+
+ for { set i 1 } { $i <= 3 } { incr i } {
+ set pageset_id [layout::pageset::new -package_id [ad_conn package_id] -owner_id 0]
+ set page_id [layout::page::new -pageset_id $pageset_id \
+ -name test -page_template 2_column]
+ aa_true "Pass $i: new" [exists_and_not_null page_id]
+
+ array set t [layout::page::get -page_id $page_id]
+ aa_true "Pass $i: get" { $t(page_id) ne "" }
+
+ aa_equals "Pass $i: get name" \
+ [layout::page::get_column_value -page_id $page_id -column name] test
+
+ layout::page::set_column_value \
+ -page_id $page_id \
+ -column name \
+ -value tested
+ aa_equals "Pass $i: set name (and therefore set_values)" \
+ [layout::page::get_column_value -page_id $page_id -column name] tested
+
+ aa_equals "Pass $i: get page template name" \
+ [layout::page::get_column_value -page_id $page_id -column page_template] \
+ 2_column
+
+ aa_equals "Pass $i: get_pageset_id" \
+ [layout::page::get_column_value -page_id $page_id -column pageset_id] $pageset_id
+
+ array set page [layout::page::get_render_data -page_id $page_id]
+ aa_true "Pass $i: get_render_data" \
+ {$page(element_list) eq "" &&
+ $page(template) ne ""}
+
+ layout::page::delete -page_id $page_id
+ layout::pageset::delete -pageset_id $pageset_id
+ aa_log "Pass $i: delete"
+ }
+ }
+}
+
+aa_register_case -cats {api smoke} elements {
+ Test the elements API
+} {
+ aa_run_with_teardown \
+ -rollback \
+ -test_code {
+ for { set i 1 } { $i <= 3 } { incr i } {
+ set pageset_id [layout::pageset::new -package_id [ad_conn package_id] -owner_id 0]
+ set page_id [layout::page::new -pageset_id $pageset_id \
+ -name test -page_template 2_column]
+ set element_id [layout::element::new -pageset_id $pageset_id \
+ -package_id [ad_conn package_id] \
+ -page_name test -includelet_name subsites_includelet \
+ -name test -title Test]
+ aa_true "Pass $i: new" [exists_and_not_null element_id]
+
+ aa_equals "Pass $i: get name" \
+ [layout::element::get_column_value -element_id $element_id -column name] test
+
+ aa_equals "Pass $i: get title" \
+ [layout::element::get_column_value -element_id $element_id -column title] Test
+
+ aa_true "Pass $i: get page column" \
+ { [layout::element::get_column_value -element_id $element_id -column page_column] > 0 }
+
+ layout::element::set_column_value \
+ -element_id $element_id \
+ -column name \
+ -value tested
+ aa_equals "Pass $i: set name (and therefore set_values)" \
+ [layout::element::get_column_value -element_id $element_id -column name] tested
+
+ array set element [layout::element::get_render_data -element_id $element_id]
+ aa_true "Pass $i: get_render_data" \
+ { $element(template_path) ne "" &&
+ $element(state) eq "full" && $element(page_id) ne "" &&
+ $element(includelet_name) eq "subsites_includelet" &&
+ [llength $element(config)] == 4 && $element(element_id) ne "" &&
+ $element(theme_template) ne "" && $element(sort_key) == 1 &&
+ $element(name) eq "tested" && $element(page_column) == 1 &&
+ $element(title) eq "Test" && $element(theme) eq "default" &&
+ $element(required_privilege) eq "read" }
+
+ layout::element::delete -element_id $element_id
+ layout::page::delete -page_id $page_id
+ layout::pageset::delete -pageset_id $pageset_id
+ aa_log "Pass $i: delete"
+ }
+ }
+}
+
+aa_register_case -cats {api smoke} element_parameters {
+ Test the element parameterss API
+} {
+ aa_run_with_teardown \
+ -rollback \
+ -test_code {
+ for { set i 1 } { $i <= 3 } { incr i } {
+ set pageset_id [layout::pageset::new -package_id [ad_conn package_id] -owner_id 0]
+ set page_id [layout::page::new -pageset_id $pageset_id \
+ -name test -page_template 2_column]
+ set element_id [layout::element::new -pageset_id $pageset_id \
+ -package_id [ad_conn package_id] \
+ -page_name test -includelet_name subsites_includelet \
+ -name test -title Test]
+ layout::element::parameter::add_values \
+ -element_id $element_id \
+ -parameters {p1 v1 p2 v2}
+
+ aa_equals "Pass $i: get p1" \
+ [layout::element::parameter::get -element_id $element_id -key p1] v1
+
+ aa_equals "Pass $i: get p2" \
+ [layout::element::parameter::get -element_id $element_id -key p2] v2
+
+ layout::element::parameter::add_values \
+ -element_id $element_id \
+ -parameters {p2 vv2}
+ aa_true "Pass $i: get p2 p2" \
+ { [llength [layout::element::parameter::get -element_id $element_id -key p2]] == 2 }
+
+ layout::element::parameter::delete \
+ -element_id $element_id \
+ -key p2 \
+ -value v2
+ aa_equals "Pass $i: delete p2 v2" \
+ [layout::element::parameter::get -element_id $element_id -key p2] vv2
+
+ layout::element::parameter::add_values \
+ -element_id $element_id \
+ -parameters {p2 vv2}
+ layout::element::parameter::set_values \
+ -element_id $element_id \
+ -parameters {p2 v2}
+ aa_equals "Pass $i: /new/setvalues/get p2" \
+ [layout::element::parameter::get -element_id $element_id -key p2] v2
+
+
+ layout::element::parameter::delete \
+ -element_id $element_id \
+ -key p1
+ layout::element::parameter::delete \
+ -element_id $element_id \
+ -key p2
+ layout::element::delete -element_id $element_id
+ layout::page::delete -page_id $page_id
+ layout::pageset::delete -pageset_id $pageset_id
+ aa_log "Pass $i: delete"
+ }
+ }
+}
Index: openacs-4/packages/layout-manager/www/add-applications.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/add-applications.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/add-applications.xql 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="get_portal_count">
+ <querytext>
+
+ select count(*) as portal_count
+ from portals
+ where portal_id = :portal_id
+
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/www/add-datasources-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/add-datasources-2.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/add-datasources-2.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,54 @@
+ad_page_contract {
+
+ Add one or more datasources to this instance of the portals package
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs-id $Id: add-datasources-2.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+
+} {
+ datasource:multiple
+ return_url:notnull,optional
+ pageset_id:integer,notnull
+}
+
+permission::require_permission -object_id $pageset_id -privilege admin
+set package_id [db_1row get_package_id {}]
+set node_id [site_node::get_node_id_from_object_id -object_id $package_id]
+
+set added_datasources [list]
+
+db_transaction {
+ foreach one_datasource $datasource {
+
+ # For some reason I'm getting dupes in my datasource list from the checkboxes
+ # set up by the list widget on the previous page.
+
+ if { [lsearch -exact $added_datasources $one_datasource] == -1 } {
+
+ lappend added_datasources $one_datasource
+
+ set package_id [layout::datasource::construct \
+ -name $one_datasource \
+ -node_id [ad_conn node_id] \
+ -package_key [layout::datasource::get_column_value \
+ -name $one_datasource \
+ -column package_key]]
+
+ set user_includelets [db_list get_user_includelets {}]
+
+ foreach user_includelet $user_includelets {
+ layout::element::new \
+ -pageset_id $pageset_id \
+ -state hidden \
+ -includelet_name $user_includelet \
+ -package_id $package_id \
+ -initialize
+ }
+ }
+ }
+}
+
+if { [info exists return_url] } {
+ ad_returnredirect $return_url
+}
Index: openacs-4/packages/layout-manager/www/add-datasources-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/add-datasources-2.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/add-datasources-2.xql 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,21 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="get_package_id">
+ <querytext>
+ select package_id
+ from layout_pagesets
+ where pageset_id = :pageset_id
+ </querytext>
+ </fullquery>
+
+ <fullquery name="get_user_includelets">
+ <querytext>
+ select name
+ from layout_includelets
+ where datasource = :one_datasource
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/www/add-datasources.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/add-datasources.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/add-datasources.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,6 @@
+<master>
+ <property name="title">Add datasources and their includelets</property>
+ <property name="context">@context;noquote@</property>
+
+ <include src="/packages/layout-manager/lib/add-datasources" &="pageset_id" &="return_url">
+</master>
Index: openacs-4/packages/layout-manager/www/add-datasources.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/add-datasources.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/add-datasources.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+
+ Generate a list of applications that have supporting includelets that have not
+ yet been added to this portal package instance.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs-id $Id: add-datasources.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} {
+ pageset_id:notnull,integer
+ return_url:notnull
+}
+
+permission::require_permission -object_id $pageset_id -privilege admin
+
+set context [list "Add Applications"]
+
+ad_return_template
Index: openacs-4/packages/layout-manager/www/configure-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/configure-element.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/configure-element.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,20 @@
+ad_page_contract {
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 1/12/2004
+ @cvs_id $Id: configure-element.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} {
+ element_id:integer
+ op:notnull
+}
+
+permission::require_permission \
+ -party_id [ad_conn user_id] \
+ -object_id [layout::page::get_pageset_id \
+ -page_id [portal::element::get_page_id -element_id $element_id]] \
+ -privilege write
+
+portal::element::configure \
+ -element_id $element_id \
+ -op $op \
+ -return_url [get_referrer]
Index: openacs-4/packages/layout-manager/www/edit-element.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/edit-element.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/edit-element.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,4 @@
+<master>
+ <property name="title">Edit Element</property>
+ <property name="context">@context@</property>
+<formtemplate id="edit-element"></formtemplate>
Index: openacs-4/packages/layout-manager/www/edit-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/edit-element.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/edit-element.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,38 @@
+ad_page_contract {
+
+ Edit the theme and title of an includelet.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs-id $Id: edit-element.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} {
+ pageset_id:integer,notnull
+ element_id:integer,notnull
+ return_url:notnull
+}
+
+permission::require_permission -object_id $pageset_id -privilege write
+
+set context [list "Edit Element"]
+
+set themes [concat [list [list "" ""]] [db_list_of_lists select_themes {}]]
+
+ad_form -export {pageset_id element_id return_url} -form {
+ {title:text,optional {label "Title"}}
+ {theme:text(select),optional
+ {label "Theme"}
+ {options $themes}}
+} -on_request {
+ set title [layout::element::get_column_value -element_id $element_id -column title]
+ set theme [layout::element::get_column_value -element_id $element_id -column theme]
+} -on_submit {
+
+ layout::element::set_column_value -element_id $element_id -column title -value $title
+ layout::element::set_column_value -element_id $element_id -column theme -value $theme
+ layout::element::flush -element_id $element_id
+
+ ad_returnredirect $return_url
+ ad_script_abort
+
+}
+ad_return_template
Index: openacs-4/packages/layout-manager/www/edit-element.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/edit-element.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/edit-element.xql 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_themes">
+ <querytext>
+ select description, name
+ from layout_themes
+ order by description
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/index.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/index.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,12 @@
+<if @master_template@ not nil>
+ <master src="@master_template@">
+</if>
+<else>
+ <master>
+</else>
+
+<property name="page_num">@page_num@</property>
+<property name="pageset_id">@pageset_id@</property>
+
+<include src="/packages/layout-manager/lib/render/render-pageset" &="pageset_id"
+ &="page_num" &="edit_p">
Index: openacs-4/packages/layout-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/index.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,41 @@
+ad_page_contract {
+
+ Displays the given page set if specified. Otherwise, figure out the proper page set
+ to display based on the CreatePrivatePagesets parameter, creating the user's
+ personal paget set if necessary.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2004-01-02
+ @version $Id: index.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+
+} {
+ {page_num:integer,optional 0}
+ {pageset_id:integer,optional ""}
+}
+
+# This is a kludge for the rp_internal_indirect case, and will fail if more than one
+# layout-manager instance is mounted under the current subsite. There's gotta be a
+# better way, but gotta think this through, first!
+
+if { [ad_conn package_id] == [ad_conn subsite_id] } {
+ set package_id [site_node::get_children -node_id [ad_conn subsite_node_id] \
+ -package_key layout-manager -element object_id]
+} else {
+ set package_id [ad_conn package_id]
+}
+
+set master_template [parameter::get -package_id $package_id -parameter OurMasterTemplate]
+if { $master_template eq "" } {
+ set master_template [parameter::get -package_id [ad_conn subsite_id] \
+ -parameter DefaultMaster]
+}
+
+if { [string equal $pageset_id ""] } {
+ set pageset_id [layout::pageset::get_user_pageset_id -package_id $package_id]
+}
+
+permission::require_permission -privilege read -object_id $pageset_id
+set edit_p [permission::permission_p -object_id $pageset_id -privilege write]
+
+ad_return_template
+
Index: openacs-4/packages/layout-manager/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/index.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/index.xql 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_user_navbar">
+ <querytext>
+ select name, sort_key as page_num, portal_id
+ from portal_pages
+ where portal_id = :user_portal_id
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+
+ <fullquery name="select_admin_navbar">
+ <querytext>
+ select name, 0 as page_num, portal_id
+ from portals
+ where owner_id = :package_id
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/www/pageset-configure-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/Attic/pageset-configure-2.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/pageset-configure-2.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,127 @@
+ad_page_contract {
+ Do the actual moving/removing of the elements, or redirect to add.
+
+ @author Don Baccus
+ @creation-date 2/26/2004
+ @cvs_id $Id: pageset-configure-2.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} {
+ pageset_id:integer,notnull
+ page_id:integer,optional
+ element_id:integer,optional
+ theme:optional
+ page_theme:optional
+ page_template:optional
+ name:notnull,optional
+ op:notnull
+ return_url:notnull
+ {anchor ""}
+}
+
+permission::require_permission -object_id $pageset_id -privilege write
+
+switch $op {
+
+ move_up {
+ layout::element::move \
+ -page_id $page_id \
+ -element_id $element_id \
+ -direction up
+ }
+
+ move_down {
+ layout::element::move \
+ -page_id $page_id \
+ -element_id $element_id \
+ -direction down
+ }
+
+ move_left {
+ layout::element::move \
+ -page_id $page_id \
+ -element_id $element_id \
+ -direction left
+ }
+
+ move_right {
+ layout::element::move \
+ -page_id $page_id \
+ -element_id $element_id \
+ -direction right
+ }
+
+ show_here {
+ db_transaction {
+ layout::element::move_to_page \
+ -page_id $page_id \
+ -element_id $element_id \
+ -page_column 1
+ layout::element::set_column_value \
+ -element_id $element_id \
+ -column state \
+ -value full
+ }
+ }
+
+ move_to_page {
+ layout::element::move_to_page \
+ -page_id $page_id \
+ -element_id $element_id \
+ -page_column 1
+ }
+
+ hide {
+ layout::element::set_column_value \
+ -element_id $element_id \
+ -column state \
+ -value hidden
+ }
+
+ change_theme {
+ layout::pageset::set_column_value \
+ -pageset_id $pageset_id \
+ -column theme \
+ -value $theme
+ }
+
+ change_page_theme {
+ layout::page::set_column_value \
+ -page_id $page_id \
+ -column theme \
+ -value $page_theme
+ }
+
+ add_page {
+ layout::page::new -pageset_id $pageset_id -name $name
+ }
+
+ remove_page {
+ layout::page::delete -page_id $page_id
+ }
+
+ change_page_template {
+ layout::page::set_column_value \
+ -page_id $page_id \
+ -column page_template \
+ -value $page_template
+ }
+
+ rename_page {
+ layout::page::set_column_value -page_id $page_id -column name -value $name
+ }
+
+ default {
+ ad_return_complaint 1 "\"$op\" is not a valid operator for portal configuration"
+ }
+}
+
+# Flush the world.
+
+layout::pageset::flush -pageset_id $pageset_id
+if { [exists_and_not_null page_id] } {
+ layout::page::flush -page_id $page_id
+}
+if { [exists_and_not_null element_id] } {
+ layout::element::flush -element_id $element_id
+}
+
+ad_returnredirect $return_url
Index: openacs-4/packages/layout-manager/www/pageset-configure.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/pageset-configure.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/pageset-configure.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,4 @@
+<master>
+ <property name="title">@title;noquote@</property>
+ <property name="context">@context;noquote@</property>
+ <include src="/packages/layout-manager/lib/pageset-configure" pageset_id="@pageset_id@">
Index: openacs-4/packages/layout-manager/www/pageset-configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/pageset-configure.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/pageset-configure.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,17 @@
+ad_page_contract {
+
+ Configure a portal
+
+ @author Don Baccus (dhogaza@pacifier.com)
+
+} {
+ pageset_id:integer,notnull
+}
+
+permission::require_permission -object_id $pageset_id -privilege write
+
+set title "Configure"
+set context [list $title]
+set return_url [ad_conn url]?[ad_conn query]
+
+ad_return_template
Index: openacs-4/packages/layout-manager/www/pageset-configure.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/pageset-configure.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/pageset-configure.xql 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,33 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_themes">
+ <querytext>
+ select theme_id, name || ' - ' || description as name
+ from layout_themes
+ order by name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_hidden_elements">
+ <querytext>
+ select element_id, pe.name
+ from layout_elements pe, layout_pages pp
+ where pp.pageset_id = :pageset_id
+ and pp.page_id = pe.page_id
+ and pe.state = 'hidden'
+ order by pe.name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="select_page_ids">
+ <querytext>
+ select page_id
+ from layout_pages
+ where pageset_id = :pageset_id
+ order by sort_key
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/www/admin/configure.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/configure.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/configure.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,4 @@
+<master>
+<property name="title">@title;noquote@</property>
+<property name="context">@context;noquote@</property>
+<include src="@wizard:current_url@">
Index: openacs-4/packages/layout-manager/www/admin/configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/configure.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/configure.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,34 @@
+ad_page_contract {
+
+ Main configuration page for the layout manager package. Defines the configuration
+ wizard and tracks state.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs-id $Id: configure.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} {
+}
+
+layout::pageset::initialize
+
+# Now set up the wizard and off we go into configuration ecstasy!
+
+template::wizard::create -action configure -name configure -params {} -steps {
+ 1 -label "Welcome to the Layout Manager Configuration Wizard" -url /packages/layout-manager/lib/configure-help
+ 2 -label "Configure Private Page Sets" -url /packages/layout-manager/lib/configure-private-pagesets
+ 3 -label "Configure User Control Over Appearance" -url /packages/layout-manager/lib/configure-configurability
+ 4 -label "Add Datasources" -url /packages/layout-manager/lib/add-datasources
+ 5 -label "Configure Master Page Set Layout" -url /packages/layout-manager/lib/pageset-configure
+ 6 -label "Configure Subsite Integration" -url /packages/layout-manager/lib/configure-subsite-integration
+ 100 -label "Congratulations! Configuration Is Complete" -url /packages/layout-manager/lib/configure-finish
+}
+
+template::wizard::get_current_step
+
+# Beautify the context bar and title with the current wizard step's label.
+
+array set current_info [array get wizard:${wizard:current_id}]]
+set title $current_info(label)
+set context [list $title]
+
+ad_return_template
Index: openacs-4/packages/layout-manager/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/index.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/index.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,6 @@
+<master>
+<property name="title">Configuration</property>
+<property name="context">@context;noquote@</property>
+
+<include src="/packages/layout-manager/lib/layout-manager-admin">
+
Index: openacs-4/packages/layout-manager/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/index.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,33 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+
+ Main administration page for the layout manager package
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date
+ @cvs-id $Id: index.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} { }
+
+if { ![layout::pageset::initialized] } {
+ ad_returnredirect configure
+ ad_script_abort
+}
+
+set context [list Admin]
+
+ad_return_template
Index: openacs-4/packages/layout-manager/www/admin/pageset-admin-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/pageset-admin-master.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/pageset-admin-master.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,9 @@
+<master>
+
+<hr>
+Portal: <strong>@name@</strong>
+<P>
+<a href=@referer@>Go back</a>
+<hr>
+
+<slave>
Index: openacs-4/packages/layout-manager/www/admin/pageset-show.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/pageset-show.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/pageset-show.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,6 @@
+<master src="portal-admin-master">
+ <property name=referer>@referer;noquote@</property>
+ <property name=name>@name;noquote@</property>
+ @navbar;noquote@
+ <include src="/packages/layout-manager/lib/render/render-page"
+ page_id="@portal.page_id;noquote@" edit_p="t">
Index: openacs-4/packages/layout-manager/www/admin/pageset-show.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/pageset-show.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/pageset-show.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,17 @@
+ad_page_contract {
+ Just a test script to display the pageset.
+
+ @author AKS
+ @creation-date
+ @cvs-id $Id: pageset-show.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} {
+ {referer:notnull}
+ {pageset_id:naturalnum,notnull}
+ {page_num 0}
+}
+
+set name [layout::pageset::get_column_value -pageset_id $pageset_id -column name]
+array set pageset [layout::pageset::get_render_data -pageset_id $pageset_id -page_num $page_num]
+
+ad_return_template
+
Index: openacs-4/packages/layout-manager/www/admin/portal-admin-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/portal-admin-master.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/portal-admin-master.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,27 @@
+<%
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+%>
+
+<master>
+
+<hr>
+Portal: <strong>@name@</strong>
+<P>
+<a href=@referer@>Go back</a>
+<hr>
+
+<slave>
Index: openacs-4/packages/layout-manager/www/admin/portal-show.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/portal-show.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/portal-show.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,6 @@
+<master src="portal-admin-master">
+ <property name=referer>@referer;noquote@</property>
+ <property name=name>@name;noquote@</property>
+ @navbar;noquote@
+ <include src="/packages/layout-manager/lib/render/render-page"
+ page_id="@portal.page_id;noquote@" edit_p="t">
Index: openacs-4/packages/layout-manager/www/admin/portal-show.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/portal-show.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/portal-show.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,36 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+# www/show-portal.tcl
+
+ad_page_contract {
+ Just a test script to display the portal.
+
+ @author AKS
+ @creation-date
+ @cvs-id $Id: portal-show.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} {
+ {referer:notnull}
+ {portal_id:naturalnum,notnull}
+ {page_num 0}
+}
+
+set name [portal::get_name -portal_id $portal_id]
+array set portal [portal::get_render_data -portal_id $portal_id -page_num $page_num]
+set navbar [portal::navbar -portal_id $portal_id]
+
+ad_return_template
+
Index: openacs-4/packages/layout-manager/www/admin/user-portals.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/user-portals.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/user-portals.adp 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,16 @@
+<master>
+<property name="title">Welcome to the Layout Manager</property>
+
+<if @pagesets:rowcount@ eq 0>
+ There are no personal pagesets in the system.
+</if>
+<else>
+ Pagesets in the system:
+ <p>
+ <ul>
+ <multiple name=pagesets>
+ <li><a href="pageset-show.tcl?pageset_id=@pagesets.pageset_id@&referer=index">@pagesets.name@</a>
+ <small>[<a href="../pageset-configure?pageset_id=@pagesets.pageset_id@&referer=index">edit</a>]</li></small>
+ </multiple>
+ </ul>
+</else>
Index: openacs-4/packages/layout-manager/www/admin/user-portals.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/user-portals.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/user-portals.tcl 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,29 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ Page that displays a system-wide list of portals and gives
+ the option to view or edit them
+
+ @author Arjun Sanyal (arjun@openforce.net)
+ @creation-date
+ @cvs-id $Id: user-portals.tcl,v 1.1 2008/07/22 07:31:04 donb Exp $
+} { }
+
+set package_id [ad_conn package_id]
+db_multirow portals get_portals {}
+
+ad_return_template
Index: openacs-4/packages/layout-manager/www/admin/user-portals.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/admin/Attic/user-portals.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/admin/user-portals.xql 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="get_portals">
+ <querytext>
+ select pageset_id, name
+ from layout_pagesets
+ where package_id = :package_id
+ and template_id is not null
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/layout-manager/www/resources/images/arrow-down.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/images/arrow-down.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/images/arrow-left.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/images/arrow-left.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/images/arrow-right.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/images/arrow-right.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/images/arrow-up.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/images/arrow-up.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/images/delete.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/images/delete.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/images/goback.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/images/goback.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/page-templates/1_column.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/page-templates/1_column.css,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/resources/page-templates/1_column.css 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,26 @@
+#sidebar-1 {
+ float: left;
+ width: 100%;
+}
+
+#main-content {
+ float: left;
+ width: 100%;
+}
+
+#sidebar-2 {
+ float: left;
+ width: 100%;
+}
+
+.main-content-padding {
+ padding: 0px 5px;
+}
+
+.sidebar-1-padding {
+ padding: 0px 5px;
+}
+
+.sidebar-2-padding {
+ padding: 0px 5px;
+}
\ No newline at end of file
Index: openacs-4/packages/layout-manager/www/resources/page-templates/2_column.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/page-templates/2_column.css,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/resources/page-templates/2_column.css 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,26 @@
+ #sidebar-1 {
+ float: left;
+ width: 49%;
+}
+
+#main-content {
+ float: right;
+ width: 50%;
+}
+
+#sidebar-2 {
+ float: left;
+ width: 49%;
+}
+
+.main-content-padding {
+ padding-right: 5px
+}
+
+.sidebar-1-padding {
+ padding-left: 5px;
+}
+
+.sidebar-2-padding {
+ padding-left: 5px;
+}
\ No newline at end of file
Index: openacs-4/packages/layout-manager/www/resources/page-templates/3_column.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/page-templates/3_column.css,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/resources/page-templates/3_column.css 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,32 @@
+#main {
+ float: left;
+ width: 66%;
+}
+
+#sidebar-1 {
+ float: left;
+ width: 49%;
+}
+
+#main-content {
+ float: right;
+ width: 50%;
+}
+
+#sidebar-2 {
+ float: right;
+ width: 33%;
+}
+
+.main-content-padding {
+ padding-right: 0px
+}
+
+.sidebar-1-padding {
+ padding-left: 5px;
+}
+
+.sidebar-2-padding {
+ padding-left: 0px;
+ padding-right: 5px;
+}
\ No newline at end of file
Index: openacs-4/packages/layout-manager/www/resources/page-templates/thin_thick.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/page-templates/thin_thick.css,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/resources/page-templates/thin_thick.css 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,26 @@
+#sidebar-1 {
+ float: left;
+ width: 33%;
+}
+
+#main-content {
+ float: right;
+ width: 66%;
+}
+
+#sidebar-2 {
+ float: left;
+ width: 33%;
+}
+
+.main-content-padding {
+ padding-right: 5px
+}
+
+.sidebar-1-padding {
+ padding-left: 5px;
+}
+
+.sidebar-2-padding {
+ padding-left: 5px;
+}
\ No newline at end of file
Index: openacs-4/packages/layout-manager/www/resources/page-templates/thin_thick_thin.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/page-templates/thin_thick_thin.css,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/layout-manager/www/resources/page-templates/thin_thick_thin.css 22 Jul 2008 07:31:04 -0000 1.1
@@ -0,0 +1,32 @@
+#main {
+ float: left;
+ width: 75%;
+}
+
+#sidebar-1 {
+ float: left;
+ width: 33%;
+}
+
+#main-content {
+ float: right;
+ width: 66%;
+}
+
+#sidebar-2 {
+ float: right;
+ width: 24%;
+}
+
+.main-content-padding {
+ padding-right: 0px
+}
+
+.sidebar-1-padding {
+ padding-left: 5px;
+}
+
+.sidebar-2-padding {
+ padding-left: 0px;
+ padding-right: 5px;
+}
\ No newline at end of file
Index: openacs-4/packages/layout-manager/www/resources/themes/standard-theme/shade.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/themes/standard-theme/shade.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/themes/standard-theme/unshade.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/themes/standard-theme/unshade.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/layout-manager/www/resources/themes/standard-theme/x.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/www/resources/themes/standard-theme/x.gif,v
diff -u
Binary files differ