Index: openacs-4/packages/acs-subsite/www/admin/themes/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/themes/index.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/themes/index.tcl	7 Aug 2017 23:47:58 -0000	1.2
@@ -0,0 +1,140 @@
+ad_page_contract {
+    Themes
+
+    @author Gustaf Neumann
+    @creation-date 2017-01-20
+} {
+    {rename_theme ""}
+}
+
+set doc(title) [_ acs-subsite.Themes]
+set context [list $doc(title)]
+
+set subsite_node_id [ad_conn subsite_node_id]
+
+list::create \
+    -name themes \
+    -multirow themes \
+    -key key \
+    -pass_properties rename_theme \
+    -page_query_name select_themes \
+    -elements {
+        edit {
+            sub_class narrow
+            display_template {
+                <if @themes.active_p;literal@ true>
+                <img src="/resources/acs-subsite/Edit16.gif" height="16" width="16" alt="#acs-subsite.Edit_this_theme#" style="border:0">
+                </if>
+            }
+            link_url_eval {[export_vars -base view { {theme $key} }]}
+            link_html { title "#acs-subsite.Edit_this_theme#" }
+        }
+        
+        key {
+            label "[_ acs-subsite.Key]"
+        }
+        name {
+            label "[_ acs-subsite.Name]"
+        }
+        usage_count {
+            label "[_ acs-subsite.Usage]"
+            html {style "text-align: center;"}
+
+        }
+        active_p {
+            label "[_ acs-subsite.Active_theme]"
+            display_template {
+                <if @themes.active_p;literal@ true>
+                <img src="/shared/images/radiochecked.gif" height="16" width="16" alt="#acs-subsite.Modified_theme#"
+                style="display: block; margin-left: auto; margin-right: auto;">
+                </if>
+                <else>
+                <a href="set?theme=@themes.key@" title="#acs-subsite.Select_theme#">
+                <img src="/shared/images/radio.gif" height="16" width="16" alt="#acs-subsite.Select_theme#"
+                style="display: block; margin-left: auto; margin-right: auto;">
+                </a>
+                </else>
+            }
+        }
+        modified_p {
+            label "[_ acs-subsite.Modified_theme]"
+            display_template {
+                <if @themes.modified_p;literal@ true>
+                <if @rename_theme@ eq @themes.key;literal@>
+                <form name="rename_theme" action="save-new">
+                <div>
+                <label for="new-theme">New key: </label>
+                <input id="new-theme" name="new_theme" type="text" value="@themes.key@" size="40"><br>
+                <label for="new-name">New name: </label>
+                <input id="new-name" name="new_name" type="text" value="@themes.name@" size="40"><br>
+                <input type="submit" value="Save New"></div>
+                </form>
+                </if>
+                <else>
+                <img src="/shared/images/radiochecked.gif" height="16" width="16" alt="#acs-subsite.Modified_theme#"
+                style="display: block; margin-left: auto; margin-right: auto;">
+                <a href="./?rename_theme=@themes.key;literal@">Save new</a>
+                </else>
+                </if>
+            }
+        }
+        delete {
+            sub_class narrow
+            display_template {
+                <if @themes.usage_count;literal@ eq 0>
+                <img src="/shared/images/Delete16.gif" height="16" width="16" alt="#acs-subsite.Delete_this_theme#" style="border:0">
+                </if>
+            }
+            link_url_eval {[export_vars -base delete { {theme $key} }]}
+            link_html { title "#acs-subsite.Delete_this_theme#" }
+        }
+    }
+
+set subsite_id [ad_conn subsite_id]
+set currentThemeKey [parameter::get -parameter ThemeKey -package_id $subsite_id]
+set settings {
+    template             DefaultMaster
+    css                  ThemeCSS
+    js                   ThemeJS
+    form_template        DefaultFormStyle
+    list_template        DefaultListStyle
+    list_filter_template DefaultListFilterStyle
+    dimensional_template DefaultDimensionalStyle
+    resource_dir         ResourceDir
+    streaming_head       StreamingHead
+}
+
+set package_keys '[join [subsite::package_keys] ',']'
+
+db_multirow -extend {active_p modified_p delete_p usage_count} themes select_themes {} {
+    set active_p [expr {$currentThemeKey eq $key}]
+    set modified_p 0
+    if {$active_p} {
+        foreach {var param} $settings {
+            set default [string trim [set $var]]
+            set value   [string trim [parameter::get -parameter $param -package_id $subsite_id]]
+            regsub -all {\r\n} $value "\n" value
+            regsub -all {\r\n} $default "\n" default            
+            set modified_p [expr {$default ne $value}]
+            if {$modified_p} {
+                ns_log notice "theme parameter $var differs: default '$default' actual value '$value'"
+                break
+            }
+        }
+    }
+    set usage_count [db_string count_theme_usages [subst {
+        select count(*)
+        from apm_parameters p, apm_parameter_values v
+        where p.parameter_name = 'ThemeKey'
+        and   p.package_key in ($package_keys)
+        and   p.parameter_id = v.parameter_id
+        and   v.attr_value = :key
+    }]]
+}
+
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: