Index: openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl	7 Aug 2017 23:47:58 -0000	1.2
@@ -0,0 +1,20 @@
+ad_page_contract {
+    Delete the theme with the specified key
+
+    @author Gustaf Neumann
+    @creation-date 2017-01-20
+} {
+    theme:trim
+} -validate {
+    new_key_valid -requires new_key {
+	if {![db_string check_exists_theme {
+	    select 1 from subsite_themes where key = :theme
+	} -default 0]} {
+	    ad_complain "Theme with key '$theme' does not exist" 
+	}
+    }
+}
+
+subsite::delete_subsite_theme -key $theme
+
+ns_returnredirect "."