Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 57 lines (51 sloc) 1.596 kb
d0edf60 Scripts to add manual invoices, or credits to a borrower/member/patron's
rangi authored
1 #!/usr/bin/perl
2
3 #wrriten 11/1/2000 by chris@katipo.oc.nz
4 #script to display borrowers account details
5
6 use strict;
7 use C4::Output;
8 use CGI;
9 use C4::Search;
10 use C4::Accounts2;
11 my $input=new CGI;
12
13
14 my $bornum=$input->param('bornum');
15 #get borrower details
16 my $data=borrdata('',$bornum);
17 my $add=$input->param('add');
18 if ($add){
19 my $itemnum=$input->param('itemnum');
20 my $desc=$input->param('desc');
21 my $amount=$input->param('amount');
22 my $type=$input->param('type');
23 manualinvoice($bornum,$itemnum,$desc,$type,$amount);
24 print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$bornum");
25 } else {
26 print $input->header;
27 print startpage();
28 print startmenu('member');
29 print <<printend
30 <Center><h3>Manual Invoice</h3></center>
31 <form action=/cgi-bin/koha/maninvoice.pl method=post>
32 <table cellpadding=2 cellspacing=0 border=0>
33 <input type=hidden name=bornum value=$bornum>
34 <tr><td><b>Borrowernumber<b></td><td>$bornum</td></tr>
35 <!--<tr><td><b>Cardnumber<b></td><td></td></tr>-->
36 <tr><td><b>Type</b></td><Td>
37 <select name=type>
38 <option value=L>Lost Item</option>
39 <option value=F>Fine</option>
40 <option value=A>Account Management Fee</option>
41 <option value=N>New Card</option>
42 <option value=M>Sundry</option>
43 </select>
44 </td></tr>
45 <tr><td><b>Itemnumber</b></td><td><input type=text name=itemnum></td></tr>
46 <tr><td><b>Description</b></td><td><input type=text name=desc size=50></td></tr>
47 <tr><td><b>Amount</b></td><td><input type=text name=amount></td></tr>
48 <tr><td><input type=submit name=add value=Add></td></tr>
49 </table>
50 </form>
51 printend
52 ;
53 print endmenu('member');
54 print endpage();
55
56 }
Something went wrong with that request. Please try again.