use CGI qw/:standard/;
use ND::Web::Include;
-our @ISA = qw/ND::Web::XMLPage/;
+use base qw/ND::Web::XMLPage/;
$ND::Web::Page::PAGES{settings} = __PACKAGE__;
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;
}
}
+ if(param('oldpass') && param('pass')){
+ my $query = $DBH->prepare('UPDATE users SET password = MD5(?) WHERE password = MD5(?) AND uid = ?');
+ $query->execute(param('pass'),param('oldpass'),$ND::UID);
+ }
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 (<stylesheets/*.css>){
if(m{stylesheets/(\w+)\.css}){