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 -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl 19 Jan 2018 21:23:51 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl 16 May 2019 09:54:29 -0000 1.3.2.1 @@ -7,15 +7,21 @@ 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" - } + 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 "." ad_script_abort + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: