11 use C4::Interface::CGI::Output;
16 my $op = $query->param('op');
17 my $dbh = C4::Context->dbh;
18 my $selectview = $query->param('selectview');
19 $selectview = C4::Context->preference("SubscriptionHistory") unless $selectview;
23 my ($template, $loggedinuser, $cookie);
24 my $biblionumber = $query->param('biblionumber');
25 if ($selectview eq "full"){
26 my $subscriptions = get_full_subscription_list_from_biblionumber($biblionumber);
28 my $title = $subscriptions->[0]{bibliotitle};
29 my $yearmin=$subscriptions->[0]{year};
30 my $yearmax=$subscriptions->[scalar(@$subscriptions)-1]{year};
32 ($template, $loggedinuser, $cookie)
33 = get_template_and_user({template_name => "opac-full-serial-issues.tmpl",
40 # replace CR by <br> in librarian note
41 # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
44 biblionumber => $query->param('biblionumber'),
45 years => $subscriptions,
48 bibliotitle => $title,
49 suggestion => C4::Context->preference("suggestion"),
50 virtualshelves => C4::Context->preference("virtualshelves"),
54 my $subscriptions = get_subscription_list_from_biblionumber($biblionumber);
56 ($template, $loggedinuser, $cookie)
57 = get_template_and_user({template_name => "opac-serial-issues.tmpl",
64 # replace CR by <br> in librarian note
65 # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
68 biblionumber => $query->param('biblionumber'),
69 subscription_LOOP => $subscriptions,
72 output_html_with_http_headers $query, $cookie, $template->output;