<%init>
my $new_theme = RT->Config->Get('WebDefaultStylesheet', $session{'CurrentUser'}) =~ /-dark$/ ? 'elevator-light' : 'elevator-dark';

my ($ok, $msg) = $session{'CurrentUser'}->SetPreferences( $RT::System => { %{ $session{'CurrentUser'}->Preferences( $RT::System ) || {}}, WebDefaultStylesheet => $new_theme } );
RT::Logger->error( "$msg" ) unless $ok;

$m->abort();
</%init>
