Index: openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl	15 May 2007 20:14:56 -0000	1.2
@@ -0,0 +1,138 @@
+ad_library {
+
+     Theme Zen Package APM callbacks library
+
+     Procedures that deal with installing.
+
+     @creation-date May 2006
+     @author  Don Baccus (dhogaza@pacifier.com)
+     @cvs-id $Id: apm-callback-procs.tcl,v 1.2 2007/05/15 20:14:56 donb Exp $
+
+}
+
+namespace eval theme_zen {}
+namespace eval theme_zen::apm {}
+
+ad_proc -public theme_zen::apm::after_install {} {
+
+    Create the Zen Theme for the new-portals and dotlrn packages.
+
+    Done here as a Tcl callback because ...
+
+    1. It's simpler than writing SQL
+    2. It works for both Oracle and PostgreSQL
+
+} {
+
+    set var_list [list \
+        [list name "#theme-zen.Zen_1_column#"] \
+        [list description "#theme-zen.Zen_1_column#"] \
+        [list resource_dir /resources/theme-zen/css/zen1] \
+        [list filename ../../theme-zen/lib/layouts/zen1]
+    ]
+    set layout_id [package_instantiate_object -var_list $var_list portal_layout]
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 1]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+
+    set var_list [list \
+        [list name "#theme-zen.Zen_2_column#"] \
+        [list description "#theme-zen.Zen_2_column#"] \
+        [list resource_dir /resources/theme-zen/css/zen2] \
+        [list filename ../../theme-zen/lib/layouts/zen2]
+    ]
+    set layout_id [package_instantiate_object -var_list $var_list portal_layout]
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 1]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 2]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+
+    set var_list [list \
+        [list name "#theme-zen.Zen_3_column#"] \
+        [list description "#theme-zen.Zen_3_column#"] \
+        [list resource_dir /resources/theme-zen/css/zen3] \
+        [list filename ../../theme-zen/lib/layouts/zen3]
+    ]
+    set layout_id [package_instantiate_object -var_list $var_list portal_layout]
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 1]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 2]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 3]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+
+    set var_list [list \
+        [list name "#theme-zen.Zen_thin_thick#"] \
+        [list description "#theme-zen.Zen_thin_thick#"] \
+        [list resource_dir /resources/theme-zen/css/zen-thin-thick] \
+        [list filename ../../theme-zen/lib/layouts/zen2]
+    ]
+    set layout_id [package_instantiate_object -var_list $var_list portal_layout]
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 1]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 2]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+
+    set var_list [list \
+        [list name "#theme-zen.Zen_thin_thick_thin#"] \
+        [list description "#theme-zen.Zen_thin_thick_thin#"] \
+        [list resource_dir /resources/theme-zen/css/zen-thin-thick] \
+        [list filename ../../theme-zen/lib/layouts/zen3]
+    ]
+    set layout_id [package_instantiate_object -var_list $var_list portal_layout]
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 1]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 2]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 3]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+       
+    set var_list [list \
+        [list name "#theme-zen.Zen_Theme#"] \
+        [list description "#theme-zen.Zen_Theme#"] \
+        [list filename ../../theme-zen/lib/themes/zen-theme] \
+        [list resource_dir ../../theme-zen/lib/themes/zen-theme]
+    ]
+
+    set theme_id [package_instantiate_object -var_list $var_list portal_element_theme]
+
+    set site_template_id [db_nextval acs_object_id_seq]
+    db_dml insert_theme {}
+
+}
+
+ad_proc -public theme_zen::apm::before_uninstall {} {
+} {
+}