From 3b469c430f79a05f3268e6f67c8a0483c58f7eae Mon Sep 17 00:00:00 2001 From: rangi Date: Thu, 21 Mar 2002 21:24:54 +0000 Subject: [PATCH] Doesnt write to an include anymore --- showbudget.pl | 36 ++++++++++++++++++------------------ 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/showbudget.pl b/showbudget.pl index be8e250f41..8561e94c7b 100755 --- a/showbudget.pl +++ b/showbudget.pl @@ -10,8 +10,8 @@ use C4::Acquisitions; #print $inp->header; my ($count,@results)=bookfunds; -open (FILE,'>/usr/local/www/hdl/htdocs/includes/budgets.inc') || die "Cant open file"; -print FILE <
@@ -32,25 +32,25 @@ 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 FILE < $results[$i]->{'bookfundname'} $results[$i]->{'budgetamount'} EOP ; -printf FILE ("%.2f", $spent); -print FILE ""; -printf FILE ("%.2f",$comtd); -print FILE ""; -printf FILE ("%.2f",$avail); -print FILE ""; +printf ("%.2f", $spent); +print ""; +printf ("%.2f",$comtd); +print ""; +printf ("%.2f",$avail); +print ""; $total+=$results[$i]->{'budgetamount'}; $totspent+=$spent; $totcomtd+=$comtd; $totavail+=$avail; } -print FILE <
@@ -58,13 +58,13 @@ print FILE < $total printend ; -printf FILE ("%.2f",$totspent); -print FILE ""; -printf FILE ("%.2f",$totcomtd); -print FILE ""; -printf FILE ("%.2f",$totavail); -print FILE ""; -print FILE <"; +printf ("%.2f",$totcomtd); +print ""; +printf ("%.2f",$totavail); +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. @@ -76,4 +76,4 @@ Committed figures are approximate only, as exchange rates will affect the amount printend ; -close FILE; +#close ; -- 2.39.5