From d46a373326feeda278f93641caac90d4a28be6ec Mon Sep 17 00:00:00 2001 From: tipaul Date: Thu, 12 Aug 2004 14:51:23 +0000 Subject: [PATCH] serials : lot of bugfixes. Works fine now. And is documented (clic Help) --- MARCdetail.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/MARCdetail.pl b/MARCdetail.pl index efcbe0cd66..085ce39c31 100755 --- a/MARCdetail.pl +++ b/MARCdetail.pl @@ -56,6 +56,7 @@ use C4::Search; use MARC::Record; use C4::Biblio; use C4::Acquisition; +use C4::Bull; #uses getsubscriptionfrom biblionumber use HTML::Template; my $query=new CGI; @@ -175,10 +176,13 @@ foreach my $subfield_code (keys(%witness)) { push(@header_value_loop, \%header_value); } +my $subscriptionid = getsubscriptionfrombiblionumber($biblionumber); $template->param(item_loop => \@item_value_loop, item_header_loop => \@header_value_loop, biblionumber => $biblionumber, bibid => $bibid, - biblionumber => $biblionumber); + biblionumber => $biblionumber, + subscriptionid => $subscriptionid, + ); output_html_with_http_headers $query, $cookie, $template->output; -- 2.39.5