[Koha-cvs] koha/C4 Auth.pm Search.pm [rel_3_0]
Bruno Toumi
btoumi at ouestprovence.fr
Thu Sep 21 14:19:59 CEST 2006
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) {
More information about the Koha-cvs
mailing list