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.

49 lines
1.4 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 $subject=$input->param('subject');
  15. #my $title=$input->param('title');
  16. my @items=subsearch(\$blah,$subject);
  17. #print @items;
  18. my $count=@items;
  19. my $i=0;
  20. print center();
  21. print mktablehdr;
  22. print mktablerow(2,'#cccc99','Title','Author');
  23. my $colour=1;
  24. while ($i < $count){
  25. my @results=split('\t',$items[$i]);
  26. $results[0]=mklink("/cgi-bin/kumara/detail.pl?bib=$results[2]",$results[0]);
  27. my $word=$results[1];
  28. $word=~ s/ //g;
  29. $word=~ s/\,/\,%20/;
  30. $results[1]=mklink("/cgi-bin/kumara/search.pl?author=$word",$results[1]);
  31. if ($colour == 1){
  32. print mktablerow(2,'#ffffcc',@results);
  33. $colour=0;
  34. } else{
  35. print mktablerow(2,'white',@results);
  36. $colour=1;
  37. }
  38. $i++;
  39. }
  40. print endcenter();
  41. print mktableft();
  42. print endmenu();
  43. print endpage();