X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FPages%2FUsers.pm;h=232c4232b520a664722c5d62fe2c9913e2acecff;hb=cf3417dbc140a715f503bec5a57af7b30d991a72;hp=8f6fa490b66b957e398d198dabb4d647baa49403;hpb=d6c9085e748c4d61901aaea72f0e1546dcc7cdda;p=ndwebbie.git diff --git a/NDWeb/Pages/Users.pm b/NDWeb/Pages/Users.pm index 8f6fa49..232c423 100644 --- a/NDWeb/Pages/Users.pm +++ b/NDWeb/Pages/Users.pm @@ -17,16 +17,16 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * #**************************************************************************/ -package ND::Web::Pages::Users; +package NDWeb::Pages::Users; use strict; use warnings; 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{users} = __PACKAGE__; +$NDWeb::Page::PAGES{users} = __PACKAGE__; sub render_body { my $self = shift; @@ -131,10 +131,7 @@ sub render_body { ORDER BY lower(username)})or $error .= $DBH->errstr; $query->execute or $error .= $DBH->errstr; my @users; - my $i = 0; while (my $user = $query->fetchrow_hashref){ - $i++; - $user->{ODD} = $i % 2; push @users, $user; } $BODY->param(Users => \@users);