[Koha-devel] CVS: koha showbudget.pl,1.1.1.1,1.2

[Chris Cormack]

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 ;