[Koha-cvs] koha/C4 Auth.pm Search.pm [rel_3_0]

[Bruno Toumi]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Bruno Toumi <btoumi>    06/09/21 12:19:59

Modified files:
        C4             : Auth.pm Search.pm 

Log message:
        bug fix: modify wrong field name in sql request 
(bornum=>borrowernumber) Auth.pm
        bug fix: add comment option #

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Auth.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.54.2.2&r2=1.54.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.120.2.2&r2=1.120.2.3

Patches:
Index: Auth.pm
===================================================================
RCS file: /sources/koha/koha/C4/Auth.pm,v
retrieving revision 1.54.2.2
retrieving revision 1.54.2.3
diff -u -b -r1.54.2.2 -r1.54.2.3
--- Auth.pm     20 Sep 2006 13:44:14 -0000      1.54.2.2
+++ Auth.pm     21 Sep 2006 12:19:59 -0000      1.54.2.3
@@ -625,7 +625,7 @@
 
     # INTERNAL AUTH
     my $sth =
-      $dbh->prepare("select password,cardnumber,bornum,userid, 
firstname,surname,branchcode,userflags from borrowers where userid=?");
+      $dbh->prepare("select 
password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,userflags
 from borrowers where userid=?");
     $sth->execute($userid);
     if ( $sth->rows ) {
         my ( $md5password, 
$cardnumber,$bornum,$userid,$firstname,$surname,$branchcode,$userflags ) = 
$sth->fetchrow;
@@ -635,7 +635,7 @@
             return 1, $cardnumber;
         }
     }
-    $sth = $dbh->prepare("select password,cardnumber,bornum,userid, 
firstname,surname,branchcode,userflags from borrowers where cardnumber=?");
+    $sth = $dbh->prepare("select password,cardnumber,borrowernumber,userid, 
firstname,surname,branchcode,userflags from borrowers where cardnumber=?");
     $sth->execute($userid);
     if ( $sth->rows ) {
         my ( $md5password, 
$cardnumber,$bornum,$userid,$firstname,$surname,$branchcode,$userflags ) = 
$sth->fetchrow;

Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.120.2.2
retrieving revision 1.120.2.3
diff -u -b -r1.120.2.2 -r1.120.2.3
--- Search.pm   20 Sep 2006 16:45:01 -0000      1.120.2.2
+++ Search.pm   21 Sep 2006 12:19:59 -0000      1.120.2.3
@@ -39,7 +39,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.120.2.2 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.120.2.3 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -3342,7 +3342,7 @@
                $oldbiblio->{itemlostcount} = $itemlost_count;
 
 =head
-Ugh ... this is ugly, I'll re-write it better above then delete it
+# Ugh ... this is ugly, I'll re-write it better above then delete it
     my $norequests = 1;
     my $noitems    = 1;
     if (@items) {