[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Acquisition.pm
From: |
Chris Cormack |
Subject: |
[Koha-cvs] koha/C4 Acquisition.pm |
Date: |
Tue, 13 Jun 2006 08:45:04 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: Chris Cormack <rangi> 06/06/13 08:45:04
Modified files:
C4 : Acquisition.pm
Log message:
Fixing missing parametrs for bookfundbreakdown
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Acquisition.pm?cvsroot=koha&r1=1.32&r2=1.33
Patches:
Index: Acquisition.pm
===================================================================
RCS file: /sources/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- Acquisition.pm 9 Jun 2006 11:49:12 -0000 1.32
+++ Acquisition.pm 13 Jun 2006 08:45:04 -0000 1.33
@@ -29,7 +29,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.32 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.33 $' =~ /\d+/g; shift(@v) . "." . join(
"_", map { sprintf "%03d", $_ } @v ); };
# used in reciveorder subroutine
# to provide library specific handling
@@ -1085,7 +1085,7 @@
#'
sub bookfundbreakdown {
- my ( $id, $year ) = @_;
+ my ( $id, $year ,$start, $end) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare(
"SELECT quantity,datereceived,freight,unitprice,listprice,ecost,