56 |
use MARC::Record; |
use MARC::Record; |
57 |
use C4::Biblio; |
use C4::Biblio; |
58 |
use C4::Acquisition; |
use C4::Acquisition; |
59 |
|
use C4::Bull; #uses getsubscriptionfrom biblionumber |
60 |
use HTML::Template; |
use HTML::Template; |
61 |
|
|
62 |
my $query=new CGI; |
my $query=new CGI; |
71 |
my $tagslib = &MARCgettagslib($dbh,1,$itemtype); |
my $tagslib = &MARCgettagslib($dbh,1,$itemtype); |
72 |
|
|
73 |
my $record =MARCgetbiblio($dbh,$bibid); |
my $record =MARCgetbiblio($dbh,$bibid); |
74 |
|
|
75 |
|
#coping with subscriptions |
76 |
|
my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber); |
77 |
|
my $dat = MARCmarc2koha($dbh,$record); |
78 |
|
my @subscriptions = getsubscriptions($dat->{title},$dat->{issn},$biblionumber); |
79 |
|
my @subs; |
80 |
|
foreach my $subscription (@subscriptions){ |
81 |
|
my %cell; |
82 |
|
$cell{subscriptionid}= $subscription->{subscriptionid}; |
83 |
|
$cell{subscriptionnotes}= $subscription->{notes}; |
84 |
|
#get the three latest serials. |
85 |
|
$cell{latestserials}=getlatestserials($subscription->{subscriptionid},3); |
86 |
|
push @subs, \%cell; |
87 |
|
} |
88 |
|
|
89 |
# open template |
# open template |
90 |
my ($template, $loggedinuser, $cookie) |
my ($template, $loggedinuser, $cookie) |
91 |
= get_template_and_user({template_name => "opac-ISBDdetail.tmpl", |
= get_template_and_user({template_name => "opac-ISBDdetail.tmpl", |
97 |
$template->param(LibraryName => C4::Context->preference("LibraryName"), |
$template->param(LibraryName => C4::Context->preference("LibraryName"), |
98 |
suggestion => C4::Context->preference("suggestion"), |
suggestion => C4::Context->preference("suggestion"), |
99 |
virtualshelves => C4::Context->preference("virtualshelves"), |
virtualshelves => C4::Context->preference("virtualshelves"), |
100 |
|
subscriptions => \@subs, |
101 |
|
subscriptionsnumber => $subscriptionsnumber, |
102 |
); |
); |
103 |
|
|
104 |
my $ISBD = C4::Context->preference('ISBD'); |
my $ISBD = C4::Context->preference('ISBD'); |