From c90b87fe4289e94138bfbbc53f0425cacc997a32 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Mon, 9 Sep 2002 18:44:39 +0000
Subject: [PATCH] Bug that broke access flag checking when logging in using a
 borrower card number instead of a userid.

---
 C4/Auth.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 84c6ab00da..089e818f2d 100644
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -101,6 +101,7 @@ sub checkauth {
 	    my $sth=$dbh->prepare("select cardnumber from borrowers where userid=?");
 	    $sth->execute($userid);
 	    my ($cardnumber) = $sth->fetchrow;
+	    ($cardnumber) || ($cardnumber=$userid);
 	    my $flags=getuserflags($cardnumber,$dbh);
 	    my $configfile=configfile();
 	    if ($userid eq $configfile->{'user'}) {
-- 
2.39.5