Initial revision
[wip/koha-chris_n.git] / acqui / supplier.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 <form action=updatesupplier.pl method=post>
21
22 <input type=hidden name=id value=$id>
23 <FONT SIZE=6><em>Update: $booksellers[0]->{'name'}</em></FONT>
24 <P>
25 <CENTER>
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>
28 <TR VALIGN=TOP>
29 <TD><b>Company Name</b></td>
30 <td><input type=text size=20 name=company value="$booksellers[0]->{'name'}">
31 </td>
32 </tr>
33 <TR VALIGN=TOP>
34 <TD>Postal Address</td>
35 <td><textarea name=company_postal cols=20 rows=3>$booksellers[0]->{'postal'}
36 </textarea></td>
37 </tr>
38 <TR VALIGN=TOP>
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'}
44 </textarea>
45 </td>
46 </tr>
47 <TR VALIGN=TOP>
48 <TD>Phone</td>
49 <td><input type=text size=20 name=company_phone value="$booksellers[0]->{'phone'}">
50 </td>
51 </tr>
52 <TR VALIGN=TOP>
53 <TD>Fax</td>
54 <td><input type=text size=20 name=company_fax value="$booksellers[0]->{'fax'}">
55 </td>
56 </tr>
57 <TR VALIGN=TOP>
58 <TD>Website</td>
59 <td><input type=text size=20 name=website value="$booksellers[0]->{'url'}">
60 </td>
61 </tr>
62 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>CONTACT DETAILS</B></td></tr>
63 <TR VALIGN=TOP>
64 <TD>Contact Name</td>
65 <td><input type=text size=20 name=company_contact_name value="$booksellers[0]->{'contact'}">
66 </td>
67 </tr>
68 <TR VALIGN=TOP>
69 <TD>Position</td>
70 <td><input type=text size=20 name=company_contact_position value="$booksellers[0]->{'contpos'}">
71 </td>
72 </tr>
73 <TR VALIGN=TOP>
74 <TD>Phone</td>
75 <td><input type=text size=20 name=contact_phone value="$booksellers[0]->{'contphone'}">
76 </td>
77 </tr>
78 <TR VALIGN=TOP>
79 <TD>Alternative Phone</td>
80 <td><input type=text size=20 name=contact_phone_2 value="$booksellers[0]->{'contaltphone'}">
81 </td>
82 </tr>
83 <TR VALIGN=TOP>
84 <TD>Fax</td>
85 <td><input type=text size=20 name=contact_fax value="$booksellers[0]->{'contfax'}">
86 </td>
87 </tr>
88 <TR VALIGN=TOP>
89 <TD>E-mail</td>
90 <td><input type=text size=20 name=company_email value="$booksellers[0]->{'contemail'}">
91 </td>
92 </tr>
93 <TR VALIGN=TOP>
94 <TD>Notes</td>
95 <td><textarea name=notes cols=20 rows=4>$booksellers[0]->{'contnotes'}</textarea>
96 </td>
97 </tr>
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>
99 </table>
100 <img src="/images/holder.gif" width=32 height=250 align=left>
101
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>
104 <TR VALIGN=TOP>
105 <TD>Supplier is</td>
106 <td><input type=radio name=status value=1
107 EOP
108 ;
109 if ($booksellers[0]->{'active'}==1){
110   print " checked ";
111 }
112 print ">Active
113 <input type=radio name=status value=0";
114 if ($booksellers[0]->{'active'}==0){
115   print " checked ";
116 }
117 print <<EOP
118 >Inactive
119 </td>
120 </tr>
121 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>ORDERING INFORMATION</B></td></tr>
122 <TR VALIGN=TOP>
123 <TD>Publishers and Imprints</td>
124 <td><textarea name=publishers_imprints cols=20 rows=4>$booksellers[0]->{'specialty'}</textarea>
125 </td>
126 </tr>
127 <TR VALIGN=TOP>
128 <TD>List Prices are</td>
129 <td><select name=list_currency size=1>
130 <option value=NZD
131 EOP
132 ;
133 if ($booksellers[0]->{'listprice'} eq 'NZD'){
134   print " selected";
135 }
136 print ">\$ NZ
137 <option value=AUD";
138 if ($booksellers[0]->{'listprice'} eq 'AUD'){
139   print " selected";
140 }
141 print ">\$ Aus
142 <option value=USD";
143 if ($booksellers[0]->{'listprice'} eq 'USD'){
144   print " selected";
145 }
146 print ">\$ USA
147 <option value=UKP";
148 if ($booksellers[0]->{'listprice'} eq 'UKP'){
149   print " selected";
150 }
151
152 print <<EOP
153 >&pound; Sterling
154 </select>
155 </td>
156 </tr>
157 <TR VALIGN=TOP>
158 <TD>Invoice Prices are</td>
159 <td><select name=invoice_currency size=1>
160 <option value=NZD
161 EOP
162 ;
163 if ($booksellers[0]->{'invoiceprice'} eq 'NZD'){
164   print " selected";
165 }
166 print ">\$ NZ
167 <option value=AUD";
168 if ($booksellers[0]->{'invoiceprice'} eq 'AUD'){
169   print " selected";
170 }
171 print ">\$ Aus
172 <option value=USD";
173 if ($booksellers[0]->{'invoiceprice'} eq 'USD'){
174   print " selected";
175 }
176 print ">\$ USA
177 <option value=UKP";
178 if ($booksellers[0]->{'invoiceprice'} eq 'UKP'){
179   print " selected";
180 }
181 print <<EOP
182 >&pound; Sterling
183 </select>
184 </td>
185 </tr>
186 <TR VALIGN=TOP>
187 <TD>GST Registered</td>
188 <td><input type=radio name=gst value=1
189 EOP
190 ;
191 if ($booksellers[0]->{'gstreg'}==1){
192   print " checked";
193 }
194 print ">Yes 
195 <input type=radio name=gst value=0";
196 if ($booksellers[0]->{'gstreg'}==0){
197   print " checked";
198 }
199 print <<EOP
200 >No
201 </td>
202 </tr>
203 <TR VALIGN=TOP>
204 <TD>List Item Price Includes GST</td>
205 <td><input type=radio name=list_gst value=1
206 EOP
207 ;
208 if ($booksellers[0]->{'listincgst'}==1){
209   print " checked";
210 }
211 print ">Yes 
212 <input type=radio name=list_gst value=0";
213 if ($booksellers[0]->{'listincgst'}==0){
214   print " checked";
215 }
216 print <<EOP
217 >No
218 </td>
219 </tr>
220 <TR VALIGN=TOP>
221 <TD>Invoice Item Price Includes GST</td>
222 <td><input type=radio name=invoice_gst value=1
223 EOP
224 ;
225 if ($booksellers[0]->{'invoiceincgst'}==1){
226   print " checked";
227 }
228 print ">Yes 
229 <input type=radio name=invoice_gst value=0";
230 if ($booksellers[0]->{'invoiceincgst'}==0){
231   print " checked";
232 }
233 print <<EOP
234 >No
235 </td>
236 </tr>
237 <TR VALIGN=TOP>                         
238 <TD>Discount</td>
239 <td><input type=text size=3 name=discount value=$booksellers[0]->{'discount'}> %
240 </tr>
241 </table>
242
243 </form>
244 </center>
245 EOP
246 ;
247
248
249 print endmenu('acquisitions');
250
251 print endpage;