[Koha-cvs] koha/C4 Bookfund.pm

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/05/28 15:26:44

Modified files:
        C4             : Bookfund.pm 

Log message:
        Deleting $year paramater in GetBookfundBreakdown

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Bookfund.pm?cvsroot=koha&r1=1.8&r2=1.9

Patches:
Index: Bookfund.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Bookfund.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- Bookfund.pm 9 Mar 2007 14:31:47 -0000       1.8
+++ Bookfund.pm 28 May 2007 15:26:43 -0000      1.9
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Bookfund.pm,v 1.8 2007/03/09 14:31:47 tipaul Exp $
+# $Id: Bookfund.pm,v 1.9 2007/05/28 15:26:43 hdl Exp $
 
 use strict;
 
@@ -25,7 +25,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.8 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.9 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -205,7 +205,7 @@
 
 =head3 GetBookFundBreakdown
 
-( $spent, $comtd ) = &GetBookFundBreakdown( $id, $year, $start, $end );
+( $spent, $comtd ) = &GetBookFundBreakdown( $id, $start, $end );
 
 returns the total comtd & spent for a given bookfund, and a given year
 used in acqui-home.pl
@@ -213,7 +213,7 @@
 =cut
 
 sub GetBookFundBreakdown {
-    my ( $id, $year, $start, $end ) = @_;
+    my ( $id, $start, $end ) = @_;
     my $dbh = C4::Context->dbh;
 
     # if no start/end dates given defaut to everything