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.

112 lines
3.0 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. #whether it is called from the opac of the intranet
  12. my $type=$input->param('type');
  13. #setup colours
  14. my $main;
  15. my $secondary;
  16. if ($type eq 'opac'){
  17. $main='#99cccc';
  18. $secondary='#efe5ef';
  19. } else {
  20. $main='#cccc99';
  21. $secondary='#ffffcc';
  22. }
  23. print startpage();
  24. print startmenu($type);
  25. my $blah;
  26. my $bib=$input->param('bib');
  27. my $title=$input->param('title');
  28. print "<a href=request.pl?bib=$bib><img height=42 WIDTH=120 BORDER=0 src=\"/images/requests.gif\" align=right border=0></a>";
  29. my @items=ItemInfo(\$blah,$bib,$title);
  30. my $dat=bibdata($bib);
  31. my $count=@items;
  32. print mkheadr(3,$dat->{'title'});
  33. print <<printend
  34. <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width="220">
  35. <!-----------------BIBLIO RECORD TABLE--------->
  36. <TR VALIGN=TOP>
  37. <td bgcolor="99cc33" background="/images/background-mem.gif"><B>BIBLIO RECORD $bib</TD></TR>
  38. <tr VALIGN=TOP >
  39. <TD>
  40. <br>
  41. <FONT SIZE=2 face="arial, helvetica">
  42. Subtitle: $dat->{'subtitle'}<br>
  43. Author: $dat->{'author'}<br>
  44. Additional Author: <br>
  45. Seriestitle: $dat->{'seriestitle'}<br>
  46. Subject: $dat->{'subject'}<br>
  47. Copyright:$dat->{'copyrightdate'}<br>
  48. Notes: $dat->{'notes'}<br>
  49. Unititle: $dat->{'unititle'}<br>
  50. Analytical Author: <br>
  51. Analytical Title: <br>
  52. Serial: $dat->{'serial'}<br>
  53. Total Number of Items: $count
  54. <p>
  55. <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
  56. </font></TD>
  57. </TR>
  58. </TABLE>
  59. <img src="/images/holder.gif" width=16 height=250 align=left>
  60. printend
  61. ;
  62. #print @items;
  63. my $i=0;
  64. print center();
  65. print mktablehdr;
  66. if ($type eq 'opac'){
  67. print mktablerow(6,$main,'Itemtype','Class','Location','DateDue','Lastseen','Barcode');
  68. } else {
  69. print mktablerow(6,$main,'Itemtype','Class','Location','DateDue','Lastseen','Barcode',"/images/background-mem.gif");
  70. }
  71. my $colour=1;
  72. while ($i < $count){
  73. my @results=split('\t',$items[$i]);
  74. if ($type ne 'opac'){
  75. $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]",$results[1]);
  76. }
  77. if ($results[2] eq ''){
  78. $results[2]='Available';
  79. }
  80. if ($colour == 1){
  81. print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]);
  82. $colour=0;
  83. } else{
  84. print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]);
  85. $colour=1;
  86. }
  87. $i++;
  88. }
  89. print endcenter();
  90. print mktableft();
  91. print endmenu($type);
  92. print endpage();