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.

33 lines
1.2 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 $id=$input->param('id');
  10. my $bookseller=bookseller($id);
  11. print startpage;
  12. print mktablehdr;
  13. print mktablerow(7,'white',"<b>Id</b>:$bookseller->{'id'}",
  14. "<b>Name:</b>$bookseller->{'name'}","<b>Address</b>
  15. $bookseller->{'address1'}<br>
  16. $bookseller->{'address2'}<br>
  17. $bookseller->{'address3'}<br>
  18. $bookseller->{'address4'}<br>","<b>Phone:</b>$bookseller->{'phone'}",
  19. "<b>Account:</b>$bookseller->{'accountnumber'}","<b>Other supplier</b>
  20. $bookseller->{'othersupplier'}",
  21. "<b>currency</b>:$bookseller->{'currency'}"
  22. );
  23. print mktablerow(7,'white',"<b>Delivery Days:</b>$bookseller->{'delvierydays'}",
  24. "<b>Follow up</b>:$bookseller->{'followupdays'}","<b> Follow ups cancel:</b>$bookseller->{'followupscancel'}",
  25. "<b>Speciality:</b>$booksller->{'speciality'}","<b>Fax</b>:$bookseller->{'fax'}",
  26. "<b>Notes:</b>$bookseller->{'notes'}","<b>Email</b>$bookseller->{'email'}");
  27. print mktablerow(2,'white',"<b>url:</b>$bookseller->{'url'}","<b>Rep:</b>$bookseller->{'rep'}");
  28. print mktableft;
  29. print endpage;