-print << "EOF";
-</td>
-</tr>
-<tr valign="top">
-<td>
-EOF
-
-if ($type ne 'opac') {
- print << "EOF";
-<form action="/cgi-bin/koha/modbib.pl" method="post">
-<input type="hidden" name="bibnum" value="$bib">
-<input type="image" name="submit" value="modify" height="42" width="93" border="0" src="/images/modify-mem.gif">
-<input type="image" name="delete" value="delete" height="42" width="93" border="0" src="/images/delete-mem.gif">
-</form>
-EOF
-} # if
-
-print << "EOF";
-<br>
-<FONT SIZE=2 face="arial, helvetica">
-EOF
-
-
-if ($type ne 'opac') {
- print << "EOF";
-<b>Subtitle:</b> $dat->{'subtitle'}<br>
-<b>Author:</b> $dat->{'author'}<br>
-<b>Additional Author:</b> $additional<br>
-<b>Series Title:</b> $dat->{'seriestitle'}<br>
-<b>Subject:</b> $dat->{'subject'}<br>
-<b>Copyright:</b> $dat->{'copyrightdate'}<br>
-<b>Notes:</b> $dat->{'notes'}<br>
-<b>Unititle:</b> $dat->{'unititle'}<br>
-<b>Analytical Author:</b> <br>
-<b>Analytical Title:</b> <br>
-<b>Serial:</b> $dat->{'serial'}<br>
-<b>Total Number of Items:</b> $count
-<p>
-EOF
-
-} else {
- if ($dat->{'subtitle'} ne ''){
- print "<b>Subtitle:</b> $dat->{'subtitle'}<br>";
- } # if
- if ($dat->{'author'} ne ''){
- print "<b>Author:</b> $dat->{'author'}<br>";
- } # if
-
-# Additional Author: <br>
- if ($dat->{'seriestitle'} ne '') {
- print "<b>Seriestitle:</b> $dat->{'seriestitle'}<br>";
- } # if
- if ($dat->{'subject'} ne '') {
- print "<b>Subject:</b> $dat->{'subject'}<br>";
- } # if
- if ($dat->{'copyrightdate'} ne '') {
- print "<b>Copyright:</b> $dat->{'copyrightdate'}<br>";
- } # if
- if ($dat->{'notes'} ne '') {
- print "<b>Notes:</b> $dat->{'notes'}<br>";
- } # if
- if ($dat->{'unititle'} ne '') {
- print "<b>Unititle:</b> $dat->{'unititle'}<br>";
- } # if
-
-# Analytical Author: <br>
-# Analytical Title: <br>
- if ($dat->{'serial'} ne '0') {
- print "<b>Serial:</b> Yes<br>";
- } # if