#!/usr/bin/perl
#script to display info about acquisitions
#written by chris@katipo.co.nz 31/01/2000
use C4::Acquisitions;
use C4::Output;
use CGI;
my $input=new CGI;
print $input->header();
my $num=$input->param('num');
my $offset=$input->param('offset');
my ($count,$data)=getorders($num,$offset);
#print $data->[0]->{'ordernumber'};
#print $count;
print startpage;
print mktablehdr;
#$count=100;
for (my$i=0;$i<$count;$i++){
# print "$data->[$i]->{'ordernumber'}
";
print mktablerow(7,'white',bold('Ordernumber'),bold('Biblionumber'),bold('Title'),
bold('Requisitioned by'),bold('date entered'),bold('Authorised by'),bold('BooksellerID'));
print mktablerow(7,'white',mklink("orderbreakdown.pl?id=$data->[$i]->{'ordernumber'}",
$data->[$i]->{'ordernumber'}),$data->[$i]->{'biblionumber'},
$data->[$i]->{'title'},$data->[$i]->{'requisitionedby'},
$data->[$i]->{'entrydate'},$data->[$i]->{'authorisedby'},
mklink("/cgi-bin/koha/booksellers.pl?id=$data->[$i]->{'booksellerid'}",$data->[$i]->{'booksellerid'}));
print mktablerow(7,'white',"Deliverydays:$data->[$i]->{'deliverydays'}",
"Followupdays:$data->[$i]->{'followupdays'}",
"Date Printed:$data->[$i]->{'dateprinted'}","Quantity:$data->[$i]->{'quantity'}",
"Currency:$data->[$i]->{'currency'}","listprice:$data->[$i]->{'listprice'}",
"totalamount:$data->[$i]->{'totalamount'}");
print mktablerow(7,'white',"Date Recieved:$data->[$i]->{'daterecieved'}",
"Invoicenumber:$data->[$i]->{'booksellerinvoicenumber'}",
"Freight:$data->[$i]->{'freight'}","Unitprice:$data->[$i]->{'unitprice'}",
"Quantity Recieved:$data->[$i]->{'quantityrecieved'}",
"Source:$data->[$i]->{'source'}","Cancelled by:$data->[$i]->{'canceledby'}");
print mktablerow(7,'white',"Damaged:$data->[$i]->{'quantityreceiveddamage'}",
"notes:$data->[$i]->{'notes'}","Supplier ref:$data->[$i]->{'supplierreference'}",
"Purcahse order:$data->[$i]->{'purchaseordernumber'}",
"Subscription:$data->[$i]->{'subscription'}","From:$data->[$i]->{'subscriptionfrom'}",
"To:$data->[$i]->{'subscriptionto'}");
print mktablerow();
}
print mktableft;
$num=$num+$offset;
print "More";
print endpage;