possible to chose stylesheet

[ndwebbie.git] / ND / Web / AuthHandler.pm

diff --git a/ND/Web/AuthHandler.pm b/ND/Web/AuthHandler.pm
index 60204b0e8171e7a4e56826607469787480dbe65a..529b2d12a6878e38e1562eceaeafd01bff7fb7f5 100644 (file)
--- a/ND/Web/AuthHandler.pm
+++ b/ND/Web/AuthHandler.pm
@@ -31,10 +31,11 @@ sub handler {
        return $res if $res != Apache2::Const::OK;
 
        my $dbh = ND::DB::DB();
-       my ($count) = $dbh->selectrow_array(q{SELECT count(*) FROM users WHERE
+       my ($username) = $dbh->selectrow_array(q{SELECT username FROM users WHERE
                lower(username) = lower(?) AND password = MD5(?)},undef,$r->user,$sent_pw);
        $dbh->disconnect;
-       if ($count == 1){
+       if ($username){
+               $r->user($username);
                return Apache2::Const::OK;
        }
        $r->note_basic_auth_failure();