From 30b888410529d7b4bdb28b3e0b6b33d268c8ff3b Mon Sep 17 00:00:00 2001 From: hdl Date: Mon, 6 Feb 2006 14:02:33 +0000 Subject: [PATCH] Adding * and ? wildcards for borname filter (replacing them in code with % and _) --- overdue.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/overdue.pl b/overdue.pl index cfef84c9b7..92c64d5119 100755 --- a/overdue.pl +++ b/overdue.pl @@ -118,6 +118,9 @@ my @datearr = localtime(time()); 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 "; -- 2.39.5