my ($location, $callnumber);
if (@subscriptionid){
my @subscriptioninformation=();
my ($location, $callnumber);
if (@subscriptionid){
my @subscriptioninformation=();
@subscriptioninformation=(@$tmpsubscription,@subscriptioninformation);
}
$subscriptions=PrepareSerialsData(\@subscriptioninformation);
@subscriptioninformation=(@$tmpsubscription,@subscriptioninformation);
}
$subscriptions=PrepareSerialsData(\@subscriptioninformation);
} else {
$subscriptiondescs = GetSubscriptionsFromBiblionumber($biblionumber) ;
my $subscriptioninformation = GetFullSubscriptionsFromBiblionumber($biblionumber);
} else {
$subscriptiondescs = GetSubscriptionsFromBiblionumber($biblionumber) ;
my $subscriptioninformation = GetFullSubscriptionsFromBiblionumber($biblionumber);
subscriptionidlist => $subscriptionidlist,
biblionumber => $biblionumber,
subscriptions => $subscriptiondescs,
subscriptionidlist => $subscriptionidlist,
biblionumber => $biblionumber,
subscriptions => $subscriptiondescs,
bibliotitle => $title,
suggestion => C4::Context->preference("suggestion"),
virtualshelves => C4::Context->preference("virtualshelves"),
bibliotitle => $title,
suggestion => C4::Context->preference("suggestion"),
virtualshelves => C4::Context->preference("virtualshelves"),
location => $locationlib,
callnumber => $callnumber,
location => $locationlib,
callnumber => $callnumber,