acqui/order.pl

   1 #!/usr/bin/perl
   2
   3 #script to show suppliers and orders
   4 #written by chris@katipo.co.nz 23/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 $supplier=$input->param('supplier');
  33 print startpage;
  34
  35 print startmenu('acquisitions');
  36 my ($count,@suppliers)=bookseller($supplier);
  37
  38 print <<printend
  39 <FONT SIZE=6><em>Supplier Search Results</em></FONT>
  40 <div align=right>
  41 <a href=supplier.pl?id=0><img  alt="Add New Supplier" src="/images/new-supplier.gif"  WIDTH=187  HEIGHT=42 BORDER=0 border=0></a>
  42 </div>
  43 <CENTER>
  44 You searched on <b>supplier $supplier,</b> $count results found<p>
  45 <table border=0 cellspacing=0 cellpadding=5>
  46 <tr valign=top bgcolor=#99cc33>
  47 <td background="/images/background-mem.gif">&nbsp;</td>
  48 <td background="/images/background-mem.gif"><b>COMPANY</b></td>
  49 <td background="/images/background-mem.gif"><b>BASKETS</b></td><td background="/images/background-mem.gif"><b>ITEMS</b></td><td background="/images/background-mem.gif"><b>STAFF</b></td><td background="/images/background-mem.gif"><b>DATE</b></td></tr>
  50 printend
  51 ;
  52 my $colour='#ffffcc';
  53 my $toggle=0;
  54 for (my $i=0; $i<$count; $i++) {
  55     if ($toggle==0){
  56         $colour='#ffffcc';
  57         $toggle=1;
  58     } else {
  59         $colour='white';
  60         $toggle=0;
  61     }
  62     my ($ordcount,$orders)=getorders($suppliers[$i]->{'id'});
  63 # print $ordcount;
  64     if ($orders->[0]->{'basketno'}>0) {
  65         print <<printend
  66             <tr valign=top bgcolor=$colour>
  67             <td><a href="newbasket.pl?id=$suppliers[$i]->{'id'}"><img src="/images/new-basket-short.gif" alt="New Basket" width=77 height=32 border=0 ></a>
  68             <a href="recieveorder.pl?id=$suppliers[$i]->{'id'}"><img src="/images/receive-order-short.gif" alt="Receive Order" width=77 height=32 border=0 ></a></td>
  69             <td><a href="supplier.pl?id=$suppliers[$i]->{'id'}">$suppliers[$i]->{'name'}</a></td>
  70             <td><a href="/cgi-bin/koha/acqui/basket.pl?basket=$orders->[0]->{'basketno'}">HLT-$orders->[0]->{'basketno'}</a></td>
  71             <td>$orders->[0]->{'count(*)'}</td>
  72             <td>$orders->[0]->{'authorisedby'}</td>
  73             <td>$orders->[0]->{'entrydate'}</td></tr>
  74 printend
  75 ;
  76     } else {
  77         print <<printend
  78             <tr valign=top bgcolor=$colour>
  79             <td><a href="newbasket.pl?id=$suppliers[$i]->{'id'}"><img src="/images/new-basket-short.gif" alt="New Basket" width=77 height=32 border=0 ></a>
  80             <a href="recieveorder.pl?id=$suppliers[$i]->{'id'}"><img src="/images/receive-order-short.gif" alt="Receive Order" width=77 height=32 border=0 ></a></td>
  81             <td><a href="supplier.pl?id=$suppliers[$i]->{'id'}">$suppliers[$i]->{'name'}</a></td>
  82             <td>&nbsp;</a></td>
  83             <td>$orders->[0]->{'count(*)'}</td>
  84             <td>$orders->[0]->{'authorisedby'}</td>
  85             <td>$orders->[0]->{'entrydate'}</td></tr>
  86 printend
  87 ;
  88     }
  89     for (my $i2=1;$i2<$ordcount;$i2++){
  90         if ($orders->[$i2]->{'basketno'}>=1) {
  91             print <<printend
  92                 <tr valign=top bgcolor=$colour>
  93                 <td> &nbsp; </td>
  94                 <td> &nbsp; </td>
  95                 <td><a href="/cgi-bin/koha/acqui/basket.pl?basket=$orders->[$i2]->{'basketno'}">HLT-$orders->[$i2]->{'basketno'}</a></td>
  96                 <td>$orders->[$i2]->{'count(*)'}</td><td>$orders->[$i2]->{'authorisedby'} &nbsp; </td>
  97                 <td>$orders->[$i2]->{'entrydate'}</td></tr>
  98
  99 printend
 100 ;
 101         } else {
 102             print <<printend
 103                 <tr valign=top bgcolor=$colour>
 104                 <td> &nbsp; </td>
 105                 <td> &nbsp; </td>
 106                 <td> &nbsp;</td>
 107                 <td>$orders->[$i2]->{'count(*)'}</td><td>$orders->[$i2]->{'authorisedby'} &nbsp; </td>
 108                 <td>$orders->[$i2]->{'entrydate'}</td></tr>
 109
 110 printend
 111 ;
 112         }
 113     }
 114 }
 115
 116 print <<printend
 117 </table>
 118
 119 </CENTER>
 120 printend
 121 ;
 122
 123 print endmenu('acquisitions');
 124
 125 print endpage;