X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FPages%2FSettings.pm;h=962035e6709360168f1a812e1c1d24d660a71246;hb=2d897bb31419753af8e33b992d46ed355c1a53cd;hp=75c55403096492931ca1fb2c1fe6343aa3c83cd4;hpb=d6c9085e748c4d61901aaea72f0e1546dcc7cdda;p=ndwebbie.git diff --git a/NDWeb/Pages/Settings.pm b/NDWeb/Pages/Settings.pm index 75c5540..962035e 100644 --- a/NDWeb/Pages/Settings.pm +++ b/NDWeb/Pages/Settings.pm @@ -17,16 +17,16 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * #**************************************************************************/ -package ND::Web::Pages::Settings; +package NDWeb::Pages::Settings; use strict; use warnings FATAL => 'all'; use ND::Include; use CGI qw/:standard/; -use ND::Web::Include; +use NDWeb::Include; -use base qw/ND::Web::XMLPage/; +use base qw/NDWeb::XMLPage/; -$ND::Web::Page::PAGES{settings} = __PACKAGE__; +$NDWeb::Page::PAGES{settings} = __PACKAGE__; sub render_body { my $self = shift; @@ -47,7 +47,7 @@ sub render_body { my ($css) = $DBH->selectrow_array(q{SELECT css FROM users WHERE uid = $1},undef,$ND::UID); my @stylesheets = ({Style => 'Default'}); $css = '' unless defined $css; - while (){ + while (){ if(m{stylesheets/(\w+)\.css}){ push @stylesheets,{Style => $1, Selected => $1 eq $css ? 1 : 0}; }