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.

47 lines
1.2 KiB

  1. #!/usr/bin/perl
  2. #script to display detailed information
  3. #written 8/11/99
  4. use strict;
  5. #use DBI;
  6. use C4::Search;
  7. use CGI;
  8. use C4::Output;
  9. my $input = new CGI;
  10. print $input->header;
  11. print startpage();
  12. print startmenu();
  13. my $blah;
  14. my $bib=$input->param('bib');
  15. my $title=$input->param('title');
  16. my @items=ItemInfo(\$blah,$bib,$title);
  17. #print @items;
  18. my $count=@items;
  19. my $i=0;
  20. print center();
  21. print mktablehdr;
  22. print mktablerow(4,'#cccc99','Title','Item Number','DateDue','Location');
  23. my $colour=1;
  24. while ($i < $count){
  25. my @results=split('\t',$items[$i]);
  26. if ($results[2] eq ''){
  27. $results[2]='Available';
  28. }
  29. if ($colour == 1){
  30. print mktablerow(4,'#ffffcc',@results);
  31. $colour=0;
  32. } else{
  33. print mktablerow(4,'white',@results);
  34. $colour=1;
  35. }
  36. $i++;
  37. }
  38. print endcenter();
  39. print mktableft();
  40. print endmenu();
  41. print endpage();