smalll bugfixes and code cleaning. See mail in koha-devel for remaining questions
[wip/koha-chris_n.git] / acqui / newbiblio.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 C4::Search;
9 use C4::Database;
10 use CGI;
11 use strict;
12
13 my $input=new CGI;
14 print $input->header();
15 my $id=$input->param('id');
16 my $title=$input->param('title');
17 my $author=$input->param('author');
18 my $copyright=$input->param('copyright');
19 my ($count,@booksellers)=bookseller($id);
20 my $ordnum=$input->param('ordnum');
21 my $biblio=$input->param('biblio');
22 my $data;
23 my $new;
24
25 if ($ordnum eq ''){
26   $new='yes';
27   $ordnum=newordernum;
28   if ($biblio) {
29                 $data=bibdata($biblio);
30         }
31   if ($data->{'title'} eq ''){
32     $data->{'title'}=$title;
33     $data->{'author'}=$author;
34     $data->{'copyrightdate'}=$copyright;
35   }
36 }else {
37   $data=getsingleorder($ordnum);
38   $biblio=$data->{'biblionumber'};
39 }
40
41 print startpage;
42
43 print startmenu('acquisitions');
44
45
46 my $basket=$input->param('basket');
47 print <<printend
48
49
50 <script language="javascript" type="text/javascript">
51
52 <!--
53
54 function update(f){
55   //collect values
56   quantity=f.quantity.value
57   discount=f.discount.value
58   listinc=parseInt(f.listinc.value)
59   currency=f.currency.value
60   applygst=parseInt(f.applygst.value)
61   listprice=f.list_price.value
62   //  rrp=f.rrp.value
63   //  ecost=f.ecost.value  //budgetted cost
64   //  GST=f.GST.value
65   //  total=f.total.value
66   //make useful constants out of the above
67   exchangerate=f.elements[currency].value      //get exchange rate
68   gst_on=(!listinc && applygst);
69   //do real stuff
70   rrp=listprice*exchangerate;
71   ecost=rrp*(100-discount)/100
72   GST=0;
73   if (gst_on){
74     rrp=rrp*1.125;
75     GST=ecost*0.125
76   }
77
78   total=(ecost+GST)*quantity
79
80
81   f.rrp.value=display(rrp)
82   f.ecost.value=display(ecost)
83   f.GST.value=display(GST)
84   f.total.value=display(total)
85
86 }
87
88
89
90 function messenger(X,Y,etc){
91 win=window.open("","mess","height="+X+",width="+Y+",screenX=150,screenY=0");
92 win.focus();
93 win.document.close();
94 win.document.write("<body link='#333333' bgcolor='#ffffff' text='#000000'><font size=2><p><br>");
95 win.document.write(etc);
96 win.document.write("<center><form><input type=button onclick='self.close()' value=Close></form></center>");
97 win.document.write("</font></body></html>");
98 }
99 //-->
100
101 </script>
102 <form action=/cgi-bin/koha/acqui/addorder.pl method=post name=frusin>
103 printend
104 ;
105
106 if ($biblio eq ''){
107   print "<input type=hidden name=existing value=no>";
108 }
109
110 print <<printend
111 <!--$title-->
112 <input type=hidden name=ordnum value=$ordnum>
113 <input type=hidden name=basket value=$basket>
114 <input type=hidden name=supplier value=$id>
115 <input type=hidden name=biblio value=$biblio>
116 <input type=hidden name=bibitemnum value=$data->{'biblioitemnumber'}>
117 <input type=hidden name=oldtype value=$data->{'itemtype'}>
118 <input type=hidden name=discount value=$booksellers[0]->{'discount'}>
119 <input type=hidden name=listinc value=$booksellers[0]->{'listincgst'}>
120 <input type=hidden name=currency value=$booksellers[0]->{'listprice'}>
121 <input type=hidden name=applygst value=$booksellers[0]->{'gstreg'}>
122 printend
123 ;
124 my ($count2,$currencies)=getcurrencies;
125 for (my $i=0;$i<$count2;$i++){
126   print "<input type=hidden name=\"$currencies->[$i]->{'currency'}\" value=$currencies->[0]->{'rate'}>\n";
127 }
128 if ($new ne 'yes'){
129   print "<input type=hidden name=orderexists value=yes>\n";
130 }
131 print <<printend
132 <a href=basket.pl?basket=$basket><img src=/images/view-basket.gif width=187 heigth=42 border=0 align=right alt="View Basket"></a>
133 <FONT SIZE=6><em>$ordnum - Order Details </em></FONT><br>
134 Shopping Basket For: $booksellers[0]->{'name'}
135 <P>
136 <CENTER>
137 <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 align=left width="40%">
138 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>CATALOGUE DETAILS</B></td></tr>
139 <TR VALIGN=TOP>
140 <TD><b>Title *</b></td>
141 <td><input type=text size=20 name=title value="$data->{'title'}">
142 </td>
143 </tr>
144 <TR VALIGN=TOP>
145 <TD>Author</td>
146 <td><input type=text size=20 name=author value="$data->{'author'}" >
147 </td>
148 </tr>
149 <TR VALIGN=TOP>
150 <TD>Copyright Date</td>
151 <td><input type=text size=20 name=copyright value="$data->{'copyrightdate'}">
152 </td>
153 </tr>
154 <TR VALIGN=TOP>
155 <TD>Format</td>
156 <td>
157 <select name=format size=1>
158 printend
159 ;
160
161 my $dbh=C4Connect;
162 my $query="Select itemtype,description from itemtypes order by description";
163 my $sth=$dbh->prepare($query);
164 $sth->execute;
165 print "<option value=\"\">Please choose:\n";
166 while (my $data2=$sth->fetchrow_hashref){
167         if ($data2->{'itemtype'} eq $data->{'itemtype'}) {
168                 print "<option value=\"" . $data2->{'itemtype'} . "\" SELECTED>" . $data2->{'description'} . "\n";
169         } else {
170                 print "<option value=\"" . $data2->{'itemtype'} . "\">" . $data2->{'description'} . "\n";
171         }
172 }
173 $sth->finish;
174 $dbh->disconnect;
175
176 print <<printend
177 </select>
178
179
180 </td>
181 </tr>
182 <TR VALIGN=TOP>
183 <TD>ISBN</td>
184 <td><input type=text size=20 name=ISBN value=$data->{'isbn'}>
185 </td>
186 </tr>
187 <TR VALIGN=TOP>
188 <TD>Series</td>
189 <td><input type=text size=20 name=Series value="$data->{'seriestitle'}">
190 </td>
191 </tr>
192 <TR VALIGN=TOP>
193 <TD>Branch</td>
194 <td><select name=branch size=1>
195 printend
196 ;
197 my ($count2,@branches)=branches;
198 for (my $i=0;$i<$count2;$i++){
199   print "<option value=$branches[$i]->{'branchcode'}";
200   if ($data->{'branchcode'} == $branches[$i]->{'branchcode'}){
201     print " Selected";
202   }
203   print ">$branches[$i]->{'branchname'}";
204 }
205
206 print <<printend
207 </select>
208 </td>
209 </tr>
210 <TR VALIGN=TOP  bgcolor=#ffffcc>
211 <TD >Item Barcode</td>
212 <td><input type=text size=20 name=barcode value=
213 printend
214 ;
215
216 my %systemprefs=systemprefs();
217 if ($systemprefs{'autoBarcode'} eq '1') {
218   my $dbh=C4Connect;
219   my $query="Select barcode from items order by barcode desc";
220   my $sth=$dbh->prepare($query);
221   $sth->execute;
222   my $data=$sth->fetchrow_hashref;
223   print $data->{'barcode'}+1;
224   $sth->finish;
225   $dbh->disconnect;
226 }
227
228 print <<printend
229 >
230 </td>
231 </tr>
232 </table>
233 <img src="/images/holder.gif" width=32 height=250 align=left>
234 <table border=1 cellspacing=0 cellpadding=5 width="40%">
235 <tr valign=top bgcolor=#99cc33><td background="/images/background-mem.gif" colspan=2><B>ACCOUNTING DETAILS</B></td></tr>
236 <TR VALIGN=TOP>
237 <TD>Quantity</td>
238 <td><input type=text size=20 name=quantity value="$data->{'quantity'}" onchange='update(this.form)' >
239 </td>
240 </tr>
241 <TR VALIGN=TOP>
242 <TD>Bookfund</td>
243 <td><select name=bookfund size=1>
244 printend
245 ;
246
247 my ($count2,@bookfund)=bookfunds;
248 for (my $i=0;$i<$count2;$i++){
249   print "<option value=$bookfund[$i]->{'bookfundid'}";
250   if ($data->{'bookfundid'} == $bookfund[$i]->{'bookfundid'}){
251     print " Selected";
252   }
253   print ">$bookfund[$i]->{'bookfundname'}";
254 }
255
256 print <<printend
257 </select>
258 </td>
259 </tr>
260 <TR VALIGN=TOP>
261 <TD>Suppliers List Price</td>
262 <td><input type=text size=20 name=list_price value="$data->{'listprice'}" onchange='update(this.form)'>
263 </tr>
264 <TR VALIGN=TOP>
265 <TD>Replacement Cost <br>
266 <FONT SIZE=2>(NZ\$ inc GST)</td>
267 <td><input type=text size=20 name=rrp value="$data->{'rrp'}" onchange='update(this.form)'>
268 </tr>
269 <TR VALIGN=TOP>
270 <TD>
271 Budgeted Cost<BR>
272 <FONT SIZE=2>(NZ\$ ex GST, inc discount)</FONT> </td>
273 <td><input type=text size=20 name=ecost value="$data->{'ecost'}" onchange='update(this.form)'>
274 </td>
275 </tr>
276 <TR VALIGN=TOP>
277 <TD>
278 Budgeted GST</td>
279 <td><input type=text size=20 name=GST value="" onchange='update(this.form)'>
280 </td>
281 </tr>
282 <TR VALIGN=TOP>
283 <TD><B>
284 BUDGETED TOTAL</B></td>
285 <td><input type=text size=20 name=total value="" onchange='update(this.form)'>
286 </td>
287 </tr>
288 <TR VALIGN=TOP  bgcolor=#ffffcc>
289 <TD>Actual Cost</td>
290 <td><input type=text size=20 name=cost>
291 </td>
292 </tr>
293 <TR VALIGN=TOP  bgcolor=#ffffcc>
294 <TD>Invoice Number *</td>
295 <td><input type=text size=20 name=invoice >
296 <TR VALIGN=TOP>
297 <TD>Notes</td>
298 <td><input type=text size=20 name=notes value="$data->{'notes'}">
299 </td>
300 </tr>
301 <TR VALIGN=TOP>
302 <TD colspan=2>
303 <input type=image  name=submit src=/images/add-order.gif border=0 width=187 height=42 align=right>
304 </td>
305 </tr>
306 </table>
307 </form>
308 </center>
309 <table>
310 <tr><td bgcolor=#cccc99  background="/images/background-mem.gif"><B>HELP</B><br>
311 <UL>
312 <LI>If ordering more than one copy of an item you will be prompted to  choose additional bookfunds, and put in additional barcodes at the next screen<P>
313 <LI><B>Bold</B> fields must be filled in to create a new bibilo and item.<p>
314 <LI>Shaded fields can be used to do a "quick" receive, when items have been purchased locally or gifted. In this case the quantity "ordered" will also  be entered into the database as the quantity received.
315 </UL>
316 </td></tr></table>
317 <p> &nbsp; </p>
318 printend
319 ;
320
321 print endmenu('acquisitions');
322
323 print endpage;