X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPages%2FSettings.pm;h=0d0e6f6d3aff1b4c6f0cdc1325d69c44f9ea630c;hb=4eabb0ceacd31e3df7bd4e10bc4509f7f20c80b5;hp=d306728dd4088ffba5bdcd6d101dc0b832b751b6;hpb=ed9a83a68355a5f7ff3a71e6d9a463c058422fc6;p=ndwebbie.git diff --git a/ND/Web/Pages/Settings.pm b/ND/Web/Pages/Settings.pm index d306728..0d0e6f6 100644 --- a/ND/Web/Pages/Settings.pm +++ b/ND/Web/Pages/Settings.pm @@ -36,12 +36,12 @@ sub render_body { if (defined param 'cmd'){ if(param('cmd') eq 'stylesheet'){ - my $query = $DBH->prepare(q{UPDATE users SET css = NULLIF($2,'') WHERE uid = $1}); + my $query = $DBH->prepare(q{UPDATE users SET css = NULLIF($2,'Default') WHERE uid = $1}); $query->execute($ND::UID,escapeHTML(param 'stylesheet')) or $ND::ERROR .= p $DBH->errstr; } } my ($css) = $DBH->selectrow_array(q{SELECT css FROM users WHERE uid = $1},undef,$ND::UID); - my @stylesheets = ({Style => ' '}); + my @stylesheets = ({Style => 'Default'}); $css = '' unless defined $css; while (){ if(m{stylesheets/(\w+)\.css}){