From rangi@users.sourceforge.net Wed May  2 14:08:58 2001
From: Chris Cormack <rangi@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha maninvoice.pl,NONE,1.1 mancredit.pl,NONE,1.1
Date: Wed, 02 May 2001 14:08:58 -0700
Message-ID: <E14v3rm-0001zT-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5708196661215604298=="

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

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

Added Files:
	maninvoice.pl mancredit.pl=20
Log Message:
Scripts to add manual invoices, or credits to a borrower/member/patron's
account.
Called from boraccount.pl (ie the view account screen)


--- NEW FILE ---
#!/usr/bin/perl

#wrriten 11/1/2000 by chris@katipo.oc.nz
#script to display borrowers account details

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Accounts2;
my $input=3Dnew CGI;


my $bornum=3D$input->param('bornum');
#get borrower details
my $data=3Dborrdata('',$bornum);
my $add=3D$input->param('add');
if ($add){
  my $itemnum=3D$input->param('itemnum');
  my $desc=3D$input->param('desc');
  my $amount=3D$input->param('amount');
  my $type=3D$input->param('type');
  manualinvoice($bornum,$itemnum,$desc,$type,$amount);
  print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=3D$bornum");
} else {
  print $input->header;
  print startpage();
  print startmenu('member');
print <<printend
<Center><h3>Manual Invoice</h3></center>
<form action=3D/cgi-bin/koha/maninvoice.pl method=3Dpost>
<table cellpadding=3D2 cellspacing=3D0 border=3D0>
<input type=3Dhidden name=3Dbornum value=3D$bornum>
<tr><td><b>Borrowernumber<b></td><td>$bornum</td></tr>
<!--<tr><td><b>Cardnumber<b></td><td></td></tr>-->
<tr><td><b>Type</b></td><Td>
<select name=3Dtype>
<option value=3DL>Lost Item</option>
<option value=3DF>Fine</option>
<option value=3DA>Account Management Fee</option>
<option value=3DN>New Card</option>
<option value=3DM>Sundry</option>
</select>
</td></tr>
<tr><td><b>Itemnumber</b></td><td><input type=3Dtext name=3Ditemnum></td></tr>
<tr><td><b>Description</b></td><td><input type=3Dtext name=3Ddesc size=3D50><=
/td></tr>
<tr><td><b>Amount</b></td><td><input type=3Dtext name=3Damount></td></tr>
<tr><td><input type=3Dsubmit name=3Dadd value=3DAdd></td></tr>
</table>
</form>
printend
;
print endmenu('member');
print endpage();

}

--- NEW FILE ---
#!/usr/bin/perl

#wrriten 11/1/2000 by chris@katipo.oc.nz
#script to display borrowers account details

use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Accounts2;
my $input=3Dnew CGI;


my $bornum=3D$input->param('bornum');
#get borrower details
my $data=3Dborrdata('',$bornum);
my $add=3D$input->param('add');
if ($add){
  my $itemnum=3D$input->param('itemnum');
  my $desc=3D$input->param('desc');
  my $amount=3D$input->param('amount');
  $amount=3D$amount*-1;
  my $type=3D$input->param('type');
  manualinvoice($bornum,$itemnum,$desc,$type,$amount);
  print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=3D$bornum");
} else {
  print $input->header;
  print startpage();
  print startmenu('member');
print <<printend
<Center><h3>Manual Credit</h3></center>
<form action=3D/cgi-bin/koha/mancredit.pl method=3Dpost>
<table cellpadding=3D2 cellspacing=3D0 border=3D0>
<input type=3Dhidden name=3Dbornum value=3D$bornum>
<tr><td><b>Borrowernumber<b></td><td>$bornum</td></tr>
<!--<tr><td><b>Cardnumber<b></td><td></td></tr>-->
<tr><td><b>Type</b></td><Td>
<select name=3Dtype>
<option value=3DC>Credit</option>
<option value=3DBAY>Baycorp Adjustment</option>
</select>
</td></tr>
<tr><td><b>Itemnumber</b></td><td><input type=3Dtext name=3Ditemnum></td></tr>
<tr><td><b>Description</b></td><td><input type=3Dtext name=3Ddesc size=3D50><=
/td></tr>
<tr><td><b>Amount</b></td><td><input type=3Dtext name=3Damount></td></tr>
<tr><td><input type=3Dsubmit name=3Dadd value=3DAdd></td></tr>
</table>
</form>
printend
;
print endmenu('member');
print endpage();

}



--===============5708196661215604298==--