[Koha-cvs] koha overdue.pl [rel_2_2]

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Henri-Damien LAURENT <address@hidden>   06/02/06 14:02:33

Modified files:
        .              : overdue.pl 

Log message:
        Adding * and ? wildcards for borname filter (replacing them in code 
with % and _)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/overdue.pl.diff?only_with_tag=rel_2_2&tr1=1.9.2.8&tr2=1.9.2.9&r1=text&r2=text

Patches:
Index: koha/overdue.pl
diff -u koha/overdue.pl:1.9.2.8 koha/overdue.pl:1.9.2.9
--- koha/overdue.pl:1.9.2.8     Sun Feb  5 21:59:20 2006
+++ koha/overdue.pl     Mon Feb  6 14:02:33 2006
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: overdue.pl,v 1.9.2.8 2006/02/05 21:59:20 kados Exp $
+# $Id: overdue.pl,v 1.9.2.9 2006/02/06 14:02:33 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -118,6 +118,9 @@
 my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", 
($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
 
 my $dbh = C4::Context->dbh;
+$bornamefilter =~s/\*/\%/g;
+$bornamefilter =~s/\?/\_/g;
+
 my $strsth="select date_due,concat(firstname,' ',surname) as borrower, 
borrowers.phone, borrowers.emailaddress,issues.itemnumber, biblio.title, 
biblio.author from issues, borrowers,items,biblioitems, biblio where 
isnull(returndate) ";
 $strsth.= " && date_due<'".$todaysdate."' " unless ($showall);
 $strsth.= " && issues.borrowernumber=borrowers.borrowernumber && 
issues.itemnumber=items.itemnumber && 
biblioitems.biblioitemnumber=items.itemnumber && 
biblio.biblionumber=items.biblionumber ";