Initial revision
[wip/koha-chris_n.git] / acqui / recieveorder.pl
1 #!/usr/bin/perl
2
3 #script to show display basket of orders
4 #written by chris@katipo.co.nz 24/2/2000
5
6 use C4::Acquisitions;
7 use C4::Output;
8 use CGI;
9 use strict;
10
11 my $input=new CGI;
12 print $input->header();
13 my $id=$input->param('id');
14 my ($count,@booksellers)=bookseller($id); 
15 print startpage;
16
17 print startmenu('acquisitions');
18
19 print <<EOP
20
21 <FONT SIZE=6><em>Receive Orders From Supplier <a href=whitcoulls.html>$booksellers[0]->{'name'}</a></em></FONT>
22 <p>
23 <CENTER>
24 <form method=post action="receive.pl">
25 <input type=hidden name=id value=$id>
26 <p>
27 <table border=1 cellspacing=0 cellpadding=5>
28 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>SUPPLIER INVOICE INFORMATION</B></td></tr>
29 <TR VALIGN=TOP >
30 <TD>Supplier Invoice Number</td>
31 <td><input type=text size=20 name=invoice>        
32 </td>
33 </tr>
34 <TR VALIGN=TOP>
35 <TD>GST</td>
36 <td><input type=text size=20 name=gst>
37 </td>
38 </tr>
39 <TR VALIGN=TOP>
40 <TD>Freight</td>
41 <td><input type=text size=20 name=freight>
42 </td>
43 </tr>
44 <TR VALIGN=TOP>
45 <TD></td>
46 <td><input type=image  name=submit src=/images/continue.gif border=0 width=120 height=42>
47 </td>
48 </tr>
49 </table>
50 </CENTER>
51
52 EOP
53 ;
54
55
56 print endmenu('acquisitions');
57
58 print endpage;