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.

44 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(3,'white','Title','Itemnumber','DateDue');
  23. my $colour=1;
  24. while ($i < $count){
  25. my @results=split('\t',$items[$i]);
  26. if ($colour == 1){
  27. print mktablerow(4,'#ffffcc',@results);
  28. $colour=0;
  29. } else{
  30. print mktablerow(4,'white',@results);
  31. $colour=1;
  32. }
  33. $i++;
  34. }
  35. print endcenter();
  36. print mktableft();
  37. print endmenu();
  38. print endpage();