[Koha-cvs] koha/serials acqui-search.pl
Antoine Farnault
antoine at koha-fr.org
Thu Jul 27 15:57:58 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 06/07/27 13:57:58
Modified files:
serials : acqui-search.pl
Log message:
Add call to Bookfund.pm
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search.pl?cvsroot=koha&r1=1.3&r2=1.4
Patches:
Index: acqui-search.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- acqui-search.pl 21 Jul 2006 09:36:42 -0000 1.3
+++ acqui-search.pl 27 Jul 2006 13:57:57 -0000 1.4
@@ -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: acqui-search.pl,v 1.3 2006/07/21 09:36:42 toins Exp $
+# $Id: acqui-search.pl,v 1.4 2006/07/27 13:57:57 toins Exp $
use strict;
use CGI;
@@ -26,8 +26,9 @@
use C4::Interface::CGI::Output;
use C4::Database;
use HTML::Template;
-use C4::Acquisition;
+use C4::Bookfund;
my $query = new CGI;
+
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/acqui-search.tmpl",
query => $query,
@@ -70,8 +71,8 @@
$totavail+=$avail;
}
#currencies
-my $rates=GetCurrencies();
-my $count = scalar @$rates;
+my @rates=GetCurrencies();
+my $count = scalar @rates;
my @loop_currency = ();
for (my $i=0;$i<$count;$i++){
More information about the Koha-cvs
mailing list