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.

193 lines
4.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. #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. my $bi=$input->param('bi');
  29. my $data=bibitemdata($bi);
  30. my @items=ItemInfo(\$blah,$bib,$title);
  31. #print @items;
  32. my $count=@items;
  33. my $i=0;
  34. print center();
  35. print <<printend
  36. <br>
  37. <a href=request.html><img src=/images/requests.gif width=120 height=42 border=0 align=right border=0></a>
  38. <FONT SIZE=6><em>$data->{'title'} ($data->{'author'})</em></FONT><P>
  39. <p>
  40. <form >
  41. <!-------------------BIBLIO ITEM------------>
  42. <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left>
  43. <TR VALIGN=TOP>
  44. <td bgcolor="99cc33" background="/images/background-mem.gif" ><B>$data->{'biblioitemnumber'} GROUP - Largeprint </b> </TD>
  45. </TR>
  46. <tr VALIGN=TOP >
  47. <TD width=210 >
  48. <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
  49. <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
  50. <br>
  51. <FONT SIZE=2 face="arial, helvetica">
  52. Group Number: <br>
  53. Volume: <br>
  54. Number: <br>
  55. Classification: <br>
  56. Itemtype: <br>
  57. ISBN: <br>
  58. ISSN: <br>
  59. Dewey: <br>
  60. Subclass: <br>
  61. Copyright: <br>
  62. Number of Items: 2 <br>
  63. </font>
  64. </TD>
  65. </tr>
  66. </table>
  67. <img src="/images/holder.gif" width=16 height=250 align=left>
  68. <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width=220 >
  69. <TR VALIGN=TOP>
  70. <td bgcolor="99cc33" background="/images/background-mem.gif"><B>BARCODE LO123456</b></TD>
  71. </TR>
  72. <tr VALIGN=TOP >
  73. <TD width=220 >
  74. <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
  75. <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
  76. <br>
  77. <FONT SIZE=2 face="arial, helvetica">
  78. Item Number: <br>
  79. Due Date: <br>
  80. Member: <br>
  81. Reserves: <br>
  82. Home Branch: <br>
  83. [rest of item info]<br>
  84. &nbsp; |<br>
  85. &nbsp; |<br>
  86. &nbsp; |<br>
  87. &nbsp; |<br>
  88. &nbsp; |<br>
  89. &nbsp; |<br>
  90. &nbsp;\/
  91. </font>
  92. </TD>
  93. </tr>
  94. </table>
  95. <img src="/images/holder.gif" width=16 height=250 align=left>
  96. <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width=220 >
  97. <TR VALIGN=TOP>
  98. <td bgcolor="99cc33" background="/images/background-mem.gif"><B>BARCODE LO123457</b></TD>
  99. </TR>
  100. <tr VALIGN=TOP >
  101. <TD width=220 >
  102. <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
  103. <INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
  104. <br>
  105. <FONT SIZE=2 face="arial, helvetica">
  106. Item Number: <br>
  107. Due Date: <br>
  108. Member: <br>
  109. Reserves: <br>
  110. Home Branch: <br>
  111. [rest of item info]<br>
  112. &nbsp; |<br>
  113. &nbsp; |<br>
  114. &nbsp; |<br>
  115. &nbsp; |<br>
  116. &nbsp; |<br>
  117. &nbsp; |<br>
  118. &nbsp;\/
  119. </font>
  120. </TD>
  121. </tr>
  122. </table>
  123. <p>
  124. </form>
  125. printend
  126. ;
  127. print endcenter();
  128. print endmenu($type);
  129. print endpage();