Index: openacs-4/packages/acs-subsite/www/admin/themes/save-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/themes/save-new.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/admin/themes/save-new.tcl 7 Aug 2017 23:47:58 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/admin/themes/save-new.tcl 3 Sep 2024 15:37:34 -0000 1.3 @@ -8,11 +8,11 @@ new_name:trim } -validate { new_theme_valid -requires new_theme { - if {[db_string check_exists_theme { - select 1 from subsite_themes where key = :new_theme - } -default 0]} { - ad_complain "Theme with key '$new_theme' exists already" - } + if {[db_string check_exists_theme { + select 1 from subsite_themes where key = :new_theme + } -default 0]} { + ad_complain "Theme with key '$new_theme' exists already" + } } } @@ -29,3 +29,9 @@ subsite::set_theme -theme $new_theme ns_returnredirect "." + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: