koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/circ circulation.pl [R_2-2-7-1]


From: Antoine Farnault
Subject: [Koha-cvs] koha/circ circulation.pl [R_2-2-7-1]
Date: Mon, 12 Feb 2007 10:26:26 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         R_2-2-7-1
Changes by:     Antoine Farnault <toins>        07/02/12 10:26:26

Modified files:
        circ           : circulation.pl 

Log message:
        Commiting BUG FIX for 2.2.7.1.
        
        (bug 1276 - cannot find surname with apostriphe in it. Fixed in rel_2_2
        &
        Fix for 1169, issuedate wasn't formatted properly, to compare with 
today's date. Fixed in rel_2_2
        )

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=R_2-2-7-1&r1=1.81.2.16&r2=1.81.2.16.2.1

Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.16
retrieving revision 1.81.2.16.2.1
diff -u -b -r1.81.2.16 -r1.81.2.16.2.1
--- circulation.pl      26 Aug 2006 14:03:58 -0000      1.81.2.16
+++ circulation.pl      12 Feb 2007 10:26:26 -0000      1.81.2.16.2.1
@@ -56,8 +56,8 @@
 my $printer = getprinter($query, $printers);
 
 my $findborrower = $query->param('findborrower');
-$findborrower =~ s|,| |g;
-$findborrower =~ s|'| |g;
+#$findborrower =~ s|,| |g;
+#$findborrower =~ s|'| |g;
 my $borrowernumber = $query->param('borrnumber');
 my $print=$query->param('print');
 my $barcode = $query->param('barcode');
@@ -86,8 +86,6 @@
 my @datearr = localtime(time());
 # FIXME - Could just use POSIX::strftime("%Y%m%d", localtime);
 my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf 
("%0.2d", ($datearr[3]));
-
-
 # check and see if we should print
  if ($barcode eq ''  && $print eq 'maybe'){
        $print = 'yes';
@@ -199,7 +197,8 @@
        # split in 2 arrays for today & previous
        foreach my $it (keys %$issueslist) {
                my $issuedate = $issueslist->{$it}->{'timestamp'};
-               $issuedate = substr($issuedate, 0, 8);
+               $issuedate = substr($issuedate, 0, 10);
+               $issuedate=~s/-//g;
                if ($todaysdate == $issuedate) {
                        push @todaysissues, $issueslist->{$it};
                } else {




reply via email to

[Prev in Thread] Current Thread [Next in Thread]