Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv4530 Modified Files: showbudget.pl Log Message: Doesnt write to an include anymore Index: showbudget.pl =================================================================== RCS file: /cvsroot/koha/koha/showbudget.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** showbudget.pl 19 Dec 2000 23:45:53 -0000 1.1.1.1 --- showbudget.pl 21 Mar 2002 21:24:54 -0000 1.2 *************** *** 11,16 **** my ($count,@results)=bookfunds; ! open (FILE,'>/usr/local/www/hdl/htdocs/includes/budgets.inc') || die "Cant open file"; ! print FILE <<printend <TABLE width="40%" cellspacing=0 cellpadding=5 border=1 > --- 11,16 ---- my ($count,@results)=bookfunds; ! ! print <<printend <TABLE width="40%" cellspacing=0 cellpadding=5 border=1 > *************** *** 33,37 **** my ($spent,$comtd)=bookfundbreakdown($results[$i]->{'bookfundid'}); my $avail=$results[$i]->{'budgetamount'}-($spent+$comtd); ! print FILE <<EOP <tr><td> $results[$i]->{'bookfundname'} </TD> --- 33,37 ---- my ($spent,$comtd)=bookfundbreakdown($results[$i]->{'bookfundid'}); my $avail=$results[$i]->{'budgetamount'}-($spent+$comtd); ! print <<EOP <tr><td> $results[$i]->{'bookfundname'} </TD> *************** *** 39,48 **** EOP ; ! printf FILE ("%.2f", $spent); ! print FILE "</TD><TD>"; ! printf FILE ("%.2f",$comtd); ! print FILE "</TD><TD>"; ! printf FILE ("%.2f",$avail); ! print FILE "</TD></TR>"; $total+=$results[$i]->{'budgetamount'}; $totspent+=$spent; --- 39,48 ---- EOP ; ! printf ("%.2f", $spent); ! print "</TD><TD>"; ! printf ("%.2f",$comtd); ! print "</TD><TD>"; ! printf ("%.2f",$avail); ! print "</TD></TR>"; $total+=$results[$i]->{'budgetamount'}; $totspent+=$spent; *************** *** 51,55 **** } ! print FILE <<printend <tr><td colspan=5> <hr size=1 noshade></TD></TR> --- 51,55 ---- } ! print <<printend <tr><td colspan=5> <hr size=1 noshade></TD></TR> *************** *** 59,69 **** printend ; ! printf FILE ("%.2f",$totspent); ! print FILE "</TD><TD>"; ! printf FILE ("%.2f",$totcomtd); ! print FILE "</TD><TD>"; ! printf FILE ("%.2f",$totavail); ! print FILE "</TD></TR>"; ! print FILE <<printend </table><br> Use your reload button [ctrl + r] to get the most recent figures. --- 59,69 ---- printend ; ! printf ("%.2f",$totspent); ! print "</TD><TD>"; ! printf ("%.2f",$totcomtd); ! print "</TD><TD>"; ! printf ("%.2f",$totavail); ! print "</TD></TR>"; ! print <<printend </table><br> Use your reload button [ctrl + r] to get the most recent figures. *************** *** 77,79 **** ; ! close FILE; --- 77,79 ---- ; ! #close ;