3 #script to show display basket of orders
4 #written by chris@katipo.co.nz 24/2/2000
12 print $input->header();
13 my $id=$input->param('id');
14 my ($count,@booksellers)=bookseller($id);
17 print startmenu('acquisitions');
20 <form action=updatesupplier.pl method=post>
22 <input type=hidden name=id value=$id>
23 <FONT SIZE=6><em>Update: $booksellers[0]->{'name'}</em></FONT>
26 <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width="40%">
27 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>COMPANY DETAILS</B></td></tr>
29 <TD><b>Company Name</b></td>
30 <td><input type=text size=20 name=company value="$booksellers[0]->{'name'}">
34 <TD>Postal Address</td>
35 <td><textarea name=company_postal cols=20 rows=3>$booksellers[0]->{'postal'}
39 <TD>Physical Address</td>
40 <td><textarea name=physical cols=20 rows=4>$booksellers[0]->{'address1'}
41 $booksellers[0]->{'address2'}
42 $booksellers[0]->{'address3'}
43 $booksellers[0]->{'address4'}
49 <td><input type=text size=20 name=company_phone value="$booksellers[0]->{'phone'}">
54 <td><input type=text size=20 name=company_fax value="$booksellers[0]->{'fax'}">
59 <td><input type=text size=20 name=website value="$booksellers[0]->{'url'}">
62 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>CONTACT DETAILS</B></td></tr>
65 <td><input type=text size=20 name=company_contact_name value="$booksellers[0]->{'contact'}">
70 <td><input type=text size=20 name=company_contact_position value="$booksellers[0]->{'contpos'}">
75 <td><input type=text size=20 name=contact_phone value="$booksellers[0]->{'contphone'}">
79 <TD>Alternative Phone</td>
80 <td><input type=text size=20 name=contact_phone_2 value="$booksellers[0]->{'contaltphone'}">
85 <td><input type=text size=20 name=contact_fax value="$booksellers[0]->{'contfax'}">
90 <td><input type=text size=20 name=company_email value="$booksellers[0]->{'contemail'}">
95 <td><textarea name=notes cols=20 rows=4>$booksellers[0]->{'contnotes'}</textarea>
98 <tr valign=right><td><input type=image name=submit src=/images/save-changes.gif border=0 width=187 height=42 align=right></td></tr>
100 <img src="/images/holder.gif" width=32 height=250 align=left>
102 <table border=1 cellspacing=0 cellpadding=5 width="40%">
103 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>CURRENT STATUS</B></td></tr>
106 <td><input type=radio name=status value=1
109 if ($booksellers[0]->{'active'}==1){
113 <input type=radio name=status value=0";
114 if ($booksellers[0]->{'active'}==0){
121 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>ORDERING INFORMATION</B></td></tr>
123 <TD>Publishers and Imprints</td>
124 <td><textarea name=publishers_imprints cols=20 rows=4>$booksellers[0]->{'specialty'}</textarea>
128 <TD>List Prices are</td>
129 <td><select name=list_currency size=1>
133 if ($booksellers[0]->{'listprice'} eq 'NZD'){
138 if ($booksellers[0]->{'listprice'} eq 'AUD'){
143 if ($booksellers[0]->{'listprice'} eq 'USD'){
148 if ($booksellers[0]->{'listprice'} eq 'UKP'){
158 <TD>Invoice Prices are</td>
159 <td><select name=invoice_currency size=1>
163 if ($booksellers[0]->{'invoiceprice'} eq 'NZD'){
168 if ($booksellers[0]->{'invoiceprice'} eq 'AUD'){
173 if ($booksellers[0]->{'invoiceprice'} eq 'USD'){
178 if ($booksellers[0]->{'invoiceprice'} eq 'UKP'){
187 <TD>GST Registered</td>
188 <td><input type=radio name=gst value=1
191 if ($booksellers[0]->{'gstreg'}==1){
195 <input type=radio name=gst value=0";
196 if ($booksellers[0]->{'gstreg'}==0){
204 <TD>List Item Price Includes GST</td>
205 <td><input type=radio name=list_gst value=1
208 if ($booksellers[0]->{'listincgst'}==1){
212 <input type=radio name=list_gst value=0";
213 if ($booksellers[0]->{'listincgst'}==0){
221 <TD>Invoice Item Price Includes GST</td>
222 <td><input type=radio name=invoice_gst value=1
225 if ($booksellers[0]->{'invoiceincgst'}==1){
229 <input type=radio name=invoice_gst value=0";
230 if ($booksellers[0]->{'invoiceincgst'}==0){
239 <td><input type=text size=3 name=discount value=$booksellers[0]->{'discount'}> %
249 print endmenu('acquisitions');