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 # now, check is there is an alert subscription for one of the subscriptions
29 foreach (@$subscriptions) {
30 if (getalert($loggedinuser,'issue',$_->{subscriptionid})) {
31 warn "SUBSCRIPTION FOR : $loggedinuser,'issue',$_->{subscriptionid}";
34 my $title = $subscriptions->[0]{bibliotitle};
35 my $yearmin=$subscriptions->[0]{year};
36 my $yearmax=$subscriptions->[scalar(@$subscriptions)-1]{year};
39 ($template, $loggedinuser, $cookie)
40 = get_template_and_user({template_name => "opac-full-serial-issues.tmpl",
47 # replace CR by <br> in librarian note
48 # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
51 biblionumber => $query->param('biblionumber'),
52 years => $subscriptions,
55 bibliotitle => $title,
56 suggestion => C4::Context->preference("suggestion"),
57 virtualshelves => C4::Context->preference("virtualshelves"),
61 my $subscriptions = get_subscription_list_from_biblionumber($biblionumber);
63 # now, check is there is an alert subscription for one of the subscriptions
64 foreach (@$subscriptions) {
65 if (getalert($loggedinuser,'issue',$_->{subscriptionid})) {
70 ($template, $loggedinuser, $cookie)
71 = get_template_and_user({template_name => "opac-serial-issues.tmpl",
78 # replace CR by <br> in librarian note
79 # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
82 biblionumber => $query->param('biblionumber'),
83 subscription_LOOP => $subscriptions,
84 suggestion => C4::Context->preference("suggestion"),
85 virtualshelves => C4::Context->preference("virtualshelves"),
88 output_html_with_http_headers $query, $cookie, $template->output;