From af3a58e662fddd2c69535fc2b0d3a42cffe43e8d Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 13 Jul 2004 13:12:29 +0000 Subject: [PATCH] code cleaning : removing useless script --- showbudget.pl | 97 --------------------------------------------------- 1 file changed, 97 deletions(-) delete mode 100755 showbudget.pl diff --git a/showbudget.pl b/showbudget.pl deleted file mode 100755 index 4c3d1e808e..0000000000 --- a/showbudget.pl +++ /dev/null @@ -1,97 +0,0 @@ -#!/usr/bin/perl - -# $Id$ - -#script to show list of budgets and bookfunds -#written 4/2/00 by chris@katipo.co.nz -#called as an include by the acquisitions index page - - -# Copyright 2000-2002 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use C4::Acquisition; -use C4::Biblio; -my ($count,@results)=bookfunds; - - -print < -
- -BUDGETS AND BOOKFUNDS - - - - - -printend -; -my $total=0; -my $totspent=0; -my $totcomtd=0; -my $totavail=0; -for (my $i=0;$i<$count;$i++){ - my ($spent,$comtd)=bookfundbreakdown($results[$i]->{'bookfundid'}); - my $avail=$results[$i]->{'budgetamount'}-($spent+$comtd); - print < -"; - $total+=$results[$i]->{'budgetamount'}; - $totspent+=$spent; - $totcomtd+=$comtd; - $totavail+=$avail; -} - -print < - -"; -print <
-Use your reload button [ctrl + r] to get the most recent figures. -Committed figures are approximate only, as exchange rates will affect the amount actually paid. - - - -
-Budgets Total SpentComtdAvail
-$results[$i]->{'bookfundname'} $results[$i]->{'budgetamount'} -EOP -; -printf ("%.2f", $spent); -print ""; -printf ("%.2f",$comtd); -print ""; -printf ("%.2f",$avail); -print "
-
-Total $total -printend -; -printf ("%.2f",$totspent); -print ""; -printf ("%.2f",$totcomtd); -print ""; -printf ("%.2f",$totavail); -print "
- -printend -; - -#close ; -- 2.39.5