From d46a373326feeda278f93641caac90d4a28be6ec Mon Sep 17 00:00:00 2001
From: tipaul <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