From rangi@users.sourceforge.net Thu Mar 21 13:24:59 2002
From: Chris Cormack <rangi@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha showbudget.pl,1.1.1.1,1.2
Date: Thu, 21 Mar 2002 13:28:07 +0000
Message-ID: <E16oA3M-0001EF-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5151746092555241405=="

--===============5151746092555241405==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4530

Modified Files:
	showbudget.pl=20
Log Message:
Doesnt write to an include anymore


Index: showbudget.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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)=3Dbookfunds;
 =20
! open (FILE,'>/usr/local/www/hdl/htdocs/includes/budgets.inc') || die "Cant =
open file";
! print FILE <<printend
 =20
  <TABLE  width=3D"40%"  cellspacing=3D0 cellpadding=3D5 border=3D1 >
--- 11,16 ----
  my ($count,@results)=3Dbookfunds;
 =20
!=20
! print <<printend
 =20
  <TABLE  width=3D"40%"  cellspacing=3D0 cellpadding=3D5 border=3D1 >
***************
*** 33,37 ****
    my ($spent,$comtd)=3Dbookfundbreakdown($results[$i]->{'bookfundid'});
    my $avail=3D$results[$i]->{'budgetamount'}-($spent+$comtd);
!   print FILE <<EOP
  <tr><td>
  $results[$i]->{'bookfundname'} </TD>=20
--- 33,37 ----
    my ($spent,$comtd)=3Dbookfundbreakdown($results[$i]->{'bookfundid'});
    my $avail=3D$results[$i]->{'budgetamount'}-($spent+$comtd);
!   print  <<EOP
  <tr><td>
  $results[$i]->{'bookfundname'} </TD>=20
***************
*** 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+=3D$results[$i]->{'budgetamount'};
    $totspent+=3D$spent;
--- 39,48 ----
  EOP
  ;
! printf  ("%.2f", $spent);
! print  "</TD><TD>";
! printf  ("%.2f",$comtd);
! print  "</TD><TD>";
! printf  ("%.2f",$avail);
! print  "</TD></TR>";
    $total+=3D$results[$i]->{'budgetamount'};
    $totspent+=3D$spent;
***************
*** 51,55 ****
  }
 =20
! print FILE <<printend
  <tr><td colspan=3D5>
  <hr size=3D1 noshade></TD></TR>
--- 51,55 ----
  }
 =20
! print  <<printend
  <tr><td colspan=3D5>
  <hr size=3D1 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 ****
  ;
 =20
! close FILE;
--- 77,79 ----
  ;
 =20
! #close ;



--===============5151746092555241405==--