Kumara - predecessor to Koha
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

53 lines
2.3 KiB

  1. #!/usr/bin/perl
  2. #script to display info about acquisitions
  3. #written by chris@katipo.co.nz 31/01/2000
  4. use C4::Acquisitions;
  5. use C4::Output;
  6. use CGI;
  7. my $input=new CGI;
  8. print $input->header();
  9. my $num=$input->param('num');
  10. my $offset=$input->param('offset');
  11. my ($count,$data)=getorders($num,$offset);
  12. #print $data->[0]->{'ordernumber'};
  13. #print $count;
  14. print startpage;
  15. print mktablehdr;
  16. #$count=100;
  17. for (my$i=0;$i<$count;$i++){
  18. # print "$data->[$i]->{'ordernumber'}<br>";
  19. print mktablerow(7,'white',bold('Ordernumber'),bold('Biblionumber'),bold('Title'),
  20. bold('Requisitioned by'),bold('date entered'),bold('Authorised by'),bold('BooksellerID'));
  21. print mktablerow(7,'white',mklink("orderbreakdown.pl?id=$data->[$i]->{'ordernumber'}",
  22. $data->[$i]->{'ordernumber'}),$data->[$i]->{'biblionumber'},
  23. $data->[$i]->{'title'},$data->[$i]->{'requisitionedby'},
  24. $data->[$i]->{'entrydate'},$data->[$i]->{'authorisedby'},
  25. mklink("/cgi-bin/koha/booksellers.pl?id=$data->[$i]->{'booksellerid'}",$data->[$i]->{'booksellerid'}));
  26. print mktablerow(7,'white',"<b>Deliverydays:</b>$data->[$i]->{'deliverydays'}",
  27. "<b>Followupdays:</b>$data->[$i]->{'followupdays'}",
  28. "<b>Date Printed:</b>$data->[$i]->{'dateprinted'}","<b>Quantity:</b>$data->[$i]->{'quantity'}",
  29. "<b>Currency:</b>$data->[$i]->{'currency'}","<b>listprice:</b>$data->[$i]->{'listprice'}",
  30. "<b>totalamount:</b>$data->[$i]->{'totalamount'}");
  31. print mktablerow(7,'white',"<b>Date Recieved:</b>$data->[$i]->{'daterecieved'}",
  32. "<b>Invoicenumber:</b>$data->[$i]->{'booksellerinvoicenumber'}",
  33. "<b>Freight:</b>$data->[$i]->{'freight'}","<b>Unitprice:</b>$data->[$i]->{'unitprice'}",
  34. "<b>Quantity Recieved:</b>$data->[$i]->{'quantityrecieved'}",
  35. "<b>Source:</b>$data->[$i]->{'source'}","<b.>Cancelled by:</b>$data->[$i]->{'canceledby'}");
  36. print mktablerow(7,'white',"<b>Damaged:</b>$data->[$i]->{'quantityreceiveddamage'}",
  37. "<b>notes:</b>$data->[$i]->{'notes'}","<b>Supplier ref:</b>$data->[$i]->{'supplierreference'}",
  38. "<b>Purcahse order:</b>$data->[$i]->{'purchaseordernumber'}",
  39. "<b>Subscription:</b>$data->[$i]->{'subscription'}","<b>From:</b>$data->[$i]->{'subscriptionfrom'}",
  40. "<b>To:</b>$data->[$i]->{'subscriptionto'}");
  41. print mktablerow();
  42. }
  43. print mktableft;
  44. $num=$num+$offset;
  45. print "<a href=acqorders.pl?num=$num&offset=$offset>More</a>";
  46. print endpage;