X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=catalogue%2FISBDdetail.pl;h=28b5c2dd3caedd75df39a41aec1ba510903645ef;hb=9c5e40e4923179bf0b2b630d3e09797dc4c1fdb0;hp=40a434d37c6d9cb942939e7130b7ef3684a99ed0;hpb=b31b5f3620552da4ae4de83f7a14fd18f1110cd2;p=koha.git diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl index 40a434d37c..28b5c2dd3c 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -23,6 +23,7 @@ ISBDdetail.pl : script to show a biblio in ISBD format =head1 SYNOPSIS +=cut =head1 DESCRIPTION @@ -30,8 +31,6 @@ This script needs a biblionumber as parameter =head1 FUNCTIONS -=over 2 - =cut use strict; @@ -44,6 +43,7 @@ use CGI; use C4::Koha; use C4::Biblio; use C4::Items; +use C4::Members; # to use GetMember use C4::Branch; # GetBranchDetail use C4::Serials; # CountSubscriptionFromBiblionumber use C4::Search; # enabled_staff_search_views @@ -67,9 +67,25 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); -# my @blocs = split /\@/,$ISBD; -# my @fields = $record->fields(); my $res = GetISBDView($biblionumber, "intranet"); +if ( not defined $res ) { + # biblionumber invalid -> report and exit + $template->param( unknownbiblionumber => 1, + biblionumber => $biblionumber + ); + output_html_with_http_headers $query, $cookie, $template->output; + exit; +} + +if($query->cookie("holdfor")){ + my $holdfor_patron = GetMember('borrowernumber' => $query->cookie("holdfor")); + $template->param( + holdfor => $query->cookie("holdfor"), + holdfor_surname => $holdfor_patron->{'surname'}, + holdfor_firstname => $holdfor_patron->{'firstname'}, + holdfor_cardnumber => $holdfor_patron->{'cardnumber'}, + ); +} # count of item linked with biblio my $itemcount = GetItemsCount($biblionumber); @@ -84,14 +100,21 @@ if ($subscriptionsnumber) { subscriptiontitle => $subscriptiontitle, ); } +my $record = GetMarcBiblio($biblionumber); $template->param ( ISBD => $res, biblionumber => $biblionumber, - isbdview => 1, - z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber)), - C4::Search::enabled_staff_search_views, + isbdview => 1, + z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber)), + ocoins => GetCOinSBiblio($record), + C4::Search::enabled_staff_search_views, + searchid => $query->param('searchid'), ); + +my ( $holdcount, $holds ) = C4::Reserves::GetReservesFromBiblionumber($biblionumber,1); +$template->param( holdcount => $holdcount, holds => $holds ); + output_html_with_http_headers $query, $cookie, $template->output;