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 -r1.2 -r1.3
--- openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl	15 May 2007 20:14:56 -0000	1.2
+++ openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl	7 Aug 2017 23:48:29 -0000	1.3
@@ -129,10 +129,93 @@
     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 {}
+    db_dml insert_theme_to_dotlrn_site_templates {}
 
+    db_transaction {
+
+        subsite::new_subsite_theme \
+            -key dotlrn_zen \
+            -name #theme-zen.Zen_Theme# \
+            -template /packages/theme-zen/lib/lrn-master \
+            -css {
+		{-href /resources/acs-templating/forms.css -media all}
+		{-href /resources/acs-templating/lists.css -media all}
+		{-href "/resources/acs-subsite/default-master.css" -media "screen" -order 1}
+		{-href "/resources/theme-zen/css/main.css" -media "screen" -order 2}
+		{-href "/resources/theme-zen/css/print.css" -media "print" -order 3}
+		{-href "/resources/theme-zen/css/handheld.css" -media "handheld" -order 4}
+		{-alternate -href "/resources/theme-zen/css/highContrast.css" -title "highContrast"}
+		{-alternate -href "/resources/theme-zen/css/508.css" -title "508"}
+	    } \
+	    -js {
+		{-src "/resources/theme-zen/js/styleswitcher.js"}
+	    } \
+            -form_template "" \
+            -list_template "" \
+            -list_filter_template "" \
+	    -dimensional_template ""
+    }
+    
+    subsite::set_theme -theme dotlrn_zen
+
 }
 
 ad_proc -public theme_zen::apm::before_uninstall {} {
+    Uninstall the package
 } {
+    subsite::delete_subsite_theme -key dotlrn_zen
+
+    #
+    # At least, the code for Deleting the created portal layouts is
+    # missing to uninstall this package
+    #
+    # see portal_layout__delete(integer)
+    # select * from portal_layouts ;
 }
+
+
+ad_proc -public theme_zen::apm::after_upgrade {
+    {-from_version_name:required}
+    {-to_version_name:required}
+} {
+    Upgrade the package
+} {
+    if {[apm_version_names_compare $from_version_name "2.9.0d4"] == -1 &&
+        [apm_version_names_compare $to_version_name "2.9.0d4"] > -1} {
+	ns_log notice "-- upgrading to 2.9.0d4"
+
+	#
+	# Register the theme if not already there
+	#
+	set themes [db_list get_themes {select key from subsite_themes}]
+	if {"dotlrn_zen" ni $themes} {
+	    subsite::new_subsite_theme \
+		-key dotlrn_zen \
+		-name #theme-zen.Zen_Theme# \
+		-template /packages/theme-zen/lib/lrn-master \
+		-css {
+		    {-href /resources/acs-templating/forms.css -media all}
+		    {-href /resources/acs-templating/lists.css -media all}
+		    {-href "/resources/acs-subsite/default-master.css" -media "screen" -order 1}
+		    {-href "/resources/theme-zen/css/main.css" -media "screen" -order 2}
+		    {-href "/resources/theme-zen/css/print.css" -media "print" -order 3}
+		    {-href "/resources/theme-zen/css/handheld.css" -media "handheld" -order 4}
+		    {-alternate -href "/resources/theme-zen/css/highContrast.css" -title "highContrast"}
+		    {-alternate -href "/resources/theme-zen/css/508.css" -title "508"}
+		} \
+		-js {
+		    {-src "/resources/theme-zen/js/styleswitcher.js"}
+		} \
+		-form_template "" \
+		-list_template "" \
+		-list_filter_template "" \
+		-dimensional_template ""
+	}
+    }
+}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: