|
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; |