acqui/basket.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
   7 # Copyright 2000-2002 Katipo Communications
   8 #
   9 # This file is part of Koha.
  10 #
  11 # Koha is free software; you can redistribute it and/or modify it under the
  12 # terms of the GNU General Public License as published by the Free Software
  13 # Foundation; either version 2 of the License, or (at your option) any later
  14 # version.
  15 #
  16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  18 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  19 #
  20 # You should have received a copy of the GNU General Public License along with
  21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  22 # Suite 330, Boston, MA  02111-1307 USA
  23
  24 use C4::Catalogue;
  25 use C4::Biblio;
  26 use C4::Output;
  27 use CGI;
  28 use strict;
  29
  30 my $input=new CGI;
  31 print $input->header();
  32 my $basket=$input->param('basket');
  33 my ($count,@results)=basket($basket);
  34 print startpage;
  35
  36 my @inp=startmenu('acquisitions');
  37
  38 my $count3=@inp;
  39 for (my $i=0;$i<$count3;$i++){
  40       $inp[$i]=~ s/leftmargin=0 topmargin=0\>/leftmargin=0 topmargin=0 onload='update(orderform)'\>/;
  41     }
  42 print @inp;
  43 # print $count;
  44 my ($count2,@booksellers)=bookseller($results[0]->{'booksellerid'});
  45
  46 print <<printend
  47 <div align=right>
  48 Our Reference: $basket<br>
  49 Authorised By: $results[0]->{'authorisedby'}<br>
  50 $results[0]->{'entrydate'};
  51 </div>
  52 <FONT SIZE=6><em>Shopping Basket For: <a href=supplier.pl?id=$results[0]->{'booksellerid'}></a> $booksellers[0]->{'name'}</em></FONT>
  53 <a href=newbasket.pl?id=$results[0]->{'booksellerid'}&basket=$basket>Add more orders</a>
  54 <CENTER>
  55 <FORM ACTION="/cgi-bin/koha/search.pl" method=post>
  56  <b>Search ISBN, Title or Author:</b> <INPUT TYPE="text"  SIZE="25"   NAME="recieve">
  57 </form>
  58 <p>
  59 <FORM ACTION="/cgi-bin/koha/acqui/modorders.pl" method=post name=orderform>
  60 <table border=0 cellspacing=0 cellpadding=5>
  61 <tr valign=top bgcolor=#99cc33>
  62   <td background="/images/background-mem.gif"><b>ORDER</b></td>
  63   <td background="/images/background-mem.gif"><b>ISBN</b></td>
  64   <td background="/images/background-mem.gif"><b>TITLE</b></td>
  65   <td background="/images/background-mem.gif"><b>AUTHOR</b></td>
  66   <td background="/images/background-mem.gif"><b>RRP</b></td>
  67   <td background="/images/background-mem.gif"><b>\$EST</b></td>
  68   <td background="/images/background-mem.gif"><b>QUANTITY</b></td>
  69   <td background="/images/background-mem.gif"><b>TOTAL</b></td></tr>
  70 printend
  71 ;
  72
  73
  74 my $line_total; # total of each line
  75 my $sub_total; # total of line totals
  76 my $gist;      # GST
  77 my $grand_total; # $subttotal + $gist
  78
  79 for (my $i=0;$i<$count;$i++){
  80 my $rrp=$results[$i]->{'listprice'};
  81 if ($results[$i]->{'currency'} ne 'NZD'){
  82 $rrp=curconvert($results[$i]->{'currency'},$rrp);
  83 }
  84
  85 $line_total=$results[$i]->{'quantity'}*$results[$i]->{'ecost'};
  86 $sub_total+=$line_total;
  87 $gist=sprintf("%.2f",$sub_total*0.125);
  88 $grand_total=$sub_total+$gist;
  89
  90 print <<EOP
  91 <tr valign=top bgcolor=#ffffcc>
  92   <td>$results[$i]->{'ordernumber'}</td>
  93   <td>$results[$i]->{'isbn'}</td>
  94   <td><a href="newbiblio.pl?ordnum=$results[$i]->{'ordernumber'}&id=$results[$i]->{'booksellerid'}&basket=$basket">$results[$i]->{'title'}</a></td>
  95   <td>$results[$i]->{'author'}</td>
  96   <td>\$<input type=text name=rrp$i size=6 value="$results[$i]->{'rrp'}"></td>
  97   <td>\$<input type=text name=eup$i size=6 value="$results[$i]->{'ecost'}"></td>
  98   <td><input type=text name=quantity$i size=6 value=$results[$i]->{'quantity'} onchange='update(this.form)'></td>
  99   <td>\$<input type=text name=total$i size=10 value=$line_total></td>
 100   <input type=hidden name=ordnum$i value=$results[$i]->{'ordernumber'}>
 101   <input type=hidden name=bibnum$i value=$results[$i]->{'biblionumber'}>
 102 </tr>
 103 EOP
 104 ;
 105 }
 106 #
 107 print "<input type=hidden name=number value=$count>
 108 <input type=hidden name=basketno value=\"$basket\">";
 109 print <<EOP
 110 <tr valign=top bgcolor=white><td colspan=6 rowspan=3  bgcolor=#cccc99  background="/images/background-mem.gif">
 111   <b>HELP</b><br>
 112   To cancel an order, just change the quantity to 0 and click "save changes".<br>
 113   To change any of the catalogue or accounting information attached to an order,  click on the title.<br>
 114   To add new orders to this supplier, start with a search. </td>
 115   <td><b>SubTotal</b></td>
 116   <td>\$<input type=text name=subtotal size=10 value=$sub_total></td></tr>
 117 <tr valign=top bgcolor=white>
 118   <td><b>GST</b></td>
 119   <td>\$<input type=text name=gst size=10 value=$gist></td></tr>
 120 <tr valign=top bgcolor=white><td><b>TOTAL</b></td>
 121   <td>\$<input type=text name=grandtotal size=10 value=$grand_total></td></tr>
 122 <tr valign=top bgcolor=white>
 123   <td></td>
 124   <td></td>
 125   <td></td>
 126   <td></td>
 127   <td></td>
 128   <td></td>
 129   <td colspan=3><input type=image  name=submit src=/images/save-changes.gif border=0 width=187 height=42 align=right></td></tr>
 130 </table>
 131 </CENTER>
 132 EOP
 133   ;
 134
 135 print endmenu('acquisitions');
 136
 137 print endpage;