Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 113 lines (88 sloc) 3.08 KB
# Copyright 2000-2002 Katipo Communications
# This file is part of Koha.
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
# You should have received a copy of the GNU General Public License along with
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
=head1 NAME
this script give more information about a susbcription given on input arg.
=over 4
=item selectview
can be equal to "full" or not.
=item biblionumber
the biblionumber this script has to give more infos.
use strict;
use CGI;
use C4::Auth;
use C4::Koha;
use C4::Dates;
use C4::Serials;
use C4::Output;
use C4::Context;
my $query = new CGI;
my $dbh = C4::Context->dbh;
my $selectview = $query->param('selectview');
$selectview = C4::Context->preference("SubscriptionHistory") unless $selectview;
my $sth;
# my $id;
my ($template, $loggedinuser, $cookie);
my $biblionumber = $query->param('biblionumber');
if ($selectview eq "full"){
my $subscriptions = GetFullSubscriptionsFromBiblionumber($biblionumber);
my $title = $subscriptions->[0]{bibliotitle};
my $yearmin=$subscriptions->[0]{year};
my $yearmax=$subscriptions->[scalar(@$subscriptions)-1]{year};
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/serial-issues-full.tmpl",
query => $query,
type => "intranet",
authnotrequired => 0,
flagsrequired => {serials => 1},
debug => 1,
# replace CR by <br> in librarian note
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
biblionumber => $query->param('biblionumber'),
years => $subscriptions,
yearmin => $yearmin,
yearmax =>$yearmax,
bibliotitle => $title,
suggestion => C4::Context->preference("suggestion"),
virtualshelves => C4::Context->preference("virtualshelves"),
} else {
my $subscriptions = GetSubscriptionsFromBiblionumber($biblionumber);
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/serial-issues.tmpl",
query => $query,
type => "intranet",
authnotrequired => 1,
debug => 1,
# replace CR by <br> in librarian note
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
biblionumber => "".$query->param('biblionumber'),
subscription_LOOP => $subscriptions,
suggestion => "".C4::Context->preference("suggestion"),
virtualshelves => "".C4::Context->preference("virtualshelves"),
output_html_with_http_headers $query, $cookie, $template->output;
Jump to Line
Something went wrong with that request. Please try again.