allow bcs to add target assignments

[ndwebbie.git] / NDWeb / Pages / Users.pm

diff --git a/NDWeb/Pages/Users.pm b/NDWeb/Pages/Users.pm
index 8f6fa490b66b957e398d198dabb4d647baa49403..232c4232b520a664722c5d62fe2c9913e2acecff 100644 (file)
--- 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);