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