X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPages%2FSettings.pm;h=5e8ecca5fa095ccf0c73fc47d0ca03de9a67b944;hb=707131893fa280d8964883b821636de7022fecd0;hp=c059bc61b0860784bcd690ca7ec309b7f3d01141;hpb=8551be2ae42a4a4e7a425e2a71ead79c10bf9df4;p=ndwebbie.git diff --git a/ND/Web/Pages/Settings.pm b/ND/Web/Pages/Settings.pm index c059bc6..5e8ecca 100644 --- a/ND/Web/Pages/Settings.pm +++ b/ND/Web/Pages/Settings.pm @@ -24,20 +24,15 @@ use ND::Include; use CGI qw/:standard/; use ND::Web::Include; -$ND::PAGES{settings} = {parse => \&parse, process => \&process, render=> \&render}; +our @ISA = qw/ND::Web::XMLPage/; -sub parse { - my ($uri) = @_; -} - -sub process { - -} - -sub render { - my ($DBH,$BODY) = @_; +$ND::Web::Page::PAGES{settings} = __PACKAGE__; - $ND::TEMPLATE->param(TITLE => 'Edit site preferences'); +sub render_body { + my $self = shift; + my ($BODY) = @_; + $self->{TITLE} = 'Edit site preferences'; + my $DBH = $self->{DBH}; if (defined param 'cmd'){ if(param('cmd') eq 'stylesheet'){