[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 <hdl at savannah.gnu.org>	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 ";