![](\"/images/requests.gif\"){kind=small}
-EOF
-} # if
-
-if ($type eq 'catmain'){
- print mkheadr(3,"Catalogue Maintenance");
-} # if
-
-if ($dat->{'author'} ne ''){
- print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]");
-} else {
- print mkheadr(3,"$dat->{'title'} $temp[4]");
-} # if
+use C4::Search;
+use C4::Auth;
-print << "EOF";
-| -EOF -} else { - print << "EOF"; - | -EOF -} # else +my $biblionumber=$query->param('bib'); +#my $type='intra'; # FIXME - There's already a $type in this scope -print << "EOF"; -BIBLIO RECORD -EOF -if ($type ne 'opac') { - print "$bib"; +# change back when ive fixed request.pl +my @items = ItemInfo(undef, $biblionumber, $type); +my $norequests = 1; +foreach my $itm (@items) { + $norequests = 0 unless $itm->{'notforloan'}; } -print << "EOF"; - | -
|
-EOF
-
-if ($type ne 'opac') {
- print << "EOF";
-
-EOF
-} # if
-print << "EOF";
- - -EOF +my $dat=bibdata($biblionumber); +my ($authorcount, $addauthor)= &addauthor($biblionumber); +my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber); +my ($websitecount, @websites) = &getwebsites($biblionumber); -if ($type ne 'opac') { - print << "EOF"; -Subtitle: $dat->{'subtitle'} -Author: $dat->{'author'} -Additional Author: $additional -Series Title: $dat->{'seriestitle'} -Subject: $dat->{'subject'} -Copyright: $dat->{'copyrightdate'} -Notes: $dat->{'notes'} -Unititle: $dat->{'unititle'} -Analytical Author: -Analytical Title: -Serial: $dat->{'serial'} -Total Number of Items: $count -
-EOF
+$dat->{'count'}=@items;
+$dat->{'norequests'} = $norequests;
-} else {
- if ($dat->{'subtitle'} ne ''){
- print "Subtitle: $dat->{'subtitle'} -EOF +$dat->{'additional'}=$addauthor->[0]->{'author'}; +for (my $i = 1; $i < $authorcount; $i++) { + $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'}; +} # for -} # if +my @results; -print << "EOF"; - |
-
-EOF
+my $resultsarray=\@results;
+my $itemsarray=\@items;
+my $webarray=\@webbiblioitems;
+my $sitearray=\@websites;
-print center();
-print mktablehdr;
+my $startfrom=$query->param('startfrom');
+($startfrom) || ($startfrom=0);
+my $template;
if ($type eq 'opac') {
- print mktablerow(6,$main,'Item Type','Class','Branch','Date Due','Last Seen');
- if ($dat->{'url'} ne '') {
- $dat->{'url'} =~ s/^http:\/\///;
- print mktablerow(6, $colour, 'Website', 'WEB', 'Online', 'Available', "{'url'}\">$dat->{'url'}");
- } # if
+ $template = gettemplate("catalogue/detail-opac.tmpl");
} else {
- print mktablerow(7,$main,'Itemtype','Class','Location','Date Due','Last Seen','Barcode',"","/images/background-mem.gif");
- if ($dat->{'url'} ne '') {
- $dat->{'url'} =~ s/^http:\/\///;
- print mktablerow(7, $colour, 'WEB', '', 'Online', 'Available', "{'url'}\">$dat->{'url'}");
- } # if
-} # else
-
-$colour = 'white';
-for (my $i = 0; $i < $count; $i ++) {
-
- my @results = split('\t', $items[$i]);
-
- if ($type ne 'opac') {
- $results[1] = mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]);
- } # if
-
- if ($results[2] eq '') {
- $results[2] = 'Available';
- } # if
-
- if ($type eq 'catmain'){
- $results[10] = mklink("/cgi-bin/koha/maint/catmaintain.pl?type=fixitemtype&bi=$results[8]&item=$results[6]","Fix Itemtype");
- } # if
-
- if ($type ne 'opac'){
- if ($type eq 'catmain'){
- print mktablerow(8,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]);
- } else {
- print mktablerow(7,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
- } # else
- } else {
- $results[6] = ItemType($results[6]);
- print mktablerow(6,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
- } # else
-
- if ($colour eq $secondary) {
- $colour = 'white';
- } else {
- $colour = $secondary;
- } # else
-
-} # for
-
-print mktableft();
-print ""; -print mktablehdr(); - -if ($type ne 'opac') { - print << "EOF"; -
HELP
-Update Biblio for all Items: Click on the Modify button [left] to amend the biblio. Any changes you make will update the record for all the items listed above.
-Updating the Biblio for only ONE or SOME Items: -EOF - - if ($type eq 'catmain') { - print << "EOF"; -If some of the items listed above need a different biblio, -you need to click on the wrong item, then shift the group it belongs to, to the correct biblio. -You will need to know the correct biblio number -
-| Abstract | -
| $dat->{'abstract'} | -
| Abstract | -
| $dat->{'abstract'} | -