Lines 97-104
$template->param(
Link Here
|
97 |
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); |
97 |
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); |
98 |
my $dbh = C4::Context->dbh; |
98 |
my $dbh = C4::Context->dbh; |
99 |
my $dat = TransformMarcToKoha( $dbh, $record ); |
99 |
my $dat = TransformMarcToKoha( $dbh, $record ); |
100 |
my @subscriptions = |
100 |
my @subscriptions = GetSubscriptions( undef, undef, $biblionumber ); |
101 |
GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber ); |
101 |
|
102 |
my @subs; |
102 |
my @subs; |
103 |
foreach my $subscription (@subscriptions) { |
103 |
foreach my $subscription (@subscriptions) { |
104 |
my %cell; |
104 |
my %cell; |