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

[paul poulain]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     paul poulain <address@hidden>   05/12/14 15:35:40

Modified files:
        .              : overdue.pl 

Log message:
        removing warn + fixing a small bug, in branch selection (branchcode to 
be used, not issuingbranch)

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

Patches:
Index: koha/overdue.pl
diff -u koha/overdue.pl:1.9.2.2 koha/overdue.pl:1.9.2.3
--- koha/overdue.pl:1.9.2.2     Wed Nov 30 18:14:38 2005
+++ koha/overdue.pl     Wed Dec 14 15:35:40 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: overdue.pl,v 1.9.2.2 2005/11/30 18:14:38 hdl Exp $
+# $Id: overdue.pl,v 1.9.2.3 2005/12/14 15:35:40 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -37,7 +37,6 @@
 my $borflagsfilter=$input->param('borflags');
 my $branchfilter=$input->param('branch');
 my $showall=$input->param('showall');
-warn "shoall :".$showall;
 my $theme = $input->param('theme'); # only used if allowthemeoverride is set
 
 my ($template, $loggedinuser, $cookie)
@@ -138,7 +137,7 @@
 $strsth.=" && borrowers.categorycode = '".$borcatfilter."' " if($borcatfilter) 
;
 $strsth.=" && biblioitems.itemtype = '".$itemtypefilter."' " 
if($itemtypefilter) ;
 $strsth.=" && borrowers.flags = '".$borflagsfilter."' " if ($borflagsfilter ne 
" ") ;
-$strsth.=" && issues.issuingbranch = '".$branchfilter."' " if($branchfilter) ;
+$strsth.=" && issues.branchcode = '".$branchfilter."' " if($branchfilter) ;
 # my $bornamefilter=$input->param('borname');
 # my $borcatfilter=$input->param('borcat');
 # my $itemtypefilter=$input->param('itemtype');
@@ -151,7 +150,7 @@
        $strsth.=" order by date_due,borrower ";
 }
 my $sth=$dbh->prepare($strsth);
-warn "".$strsth;
+# warn "".$strsth;
 $sth->execute();
 
 my @overduedata;