Changing GetSerials2 to take more than one status in parameter.
[koha.git] / catalogue / detailprint.pl
1 #!/usr/bin/perl
2 # NOTE: Use standard 8-space tabs for this file (indents are 4 spaces)
3
4 # Copyright 2000-2002 Katipo Communications
5 #
6 # This file is part of Koha.
7 #
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
11 # version.
12 #
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License along with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA  02111-1307 USA
20
21 use strict;
22 require Exporter;
23 use C4::Context;
24 use CGI;
25 use C4::Auth;
26 use C4::Biblio;
27 use C4::Output;
28 use C4::Date;
29
30 my $query=new CGI;
31 my $type=$query->param('type');
32 ($type) || ($type='intra');
33
34 my $biblionumber=$query->param('biblionumber');
35
36 # change back when ive fixed request.pl
37 my @items = GetItemsInfo($biblionumber, $type);
38 my $norequests = 1;
39 foreach my $itm (@items) {
40      $norequests = 0 unless $itm->{'notforloan'};
41 }
42
43 my $dat         = GetBiblioData($biblionumber);
44 my $record      = GetMarcBiblio($biblionumber);
45 my $addauthor   = GetMarcAuthors($record,C4::Context->preference("marcflavour"));
46 my $authorcount = scalar @$addauthor;
47
48 $dat->{'additional'} ="";
49 foreach (@$addauthor) {
50         $dat->{'additional'} .= "|" . $_->{'a'};
51 } # for
52
53
54 $dat->{'count'}=@items;
55 $dat->{'norequests'} = $norequests;
56
57 my @results;
58
59 $results[0]=$dat;
60
61 my $resultsarray=\@results;
62 my $itemsarray=\@items;
63
64 my $startfrom=$query->param('startfrom');
65 ($startfrom) || ($startfrom=0);
66
67 my ($template, $loggedinuser, $cookie) = get_template_and_user({
68     template_name   => ('catalogue/detailprint.tmpl'),
69     query           => $query,
70     type            => "intranet",
71     authnotrequired => ($type eq 'opac'),
72     flagsrequired   => {catalogue => 1},
73     });
74
75 my $count=1;
76
77 # now to get the items into a hash we can use and whack that thru
78
79
80 my $nextstartfrom=($startfrom+20<$count-20) ? ($startfrom+20) : ($count-20);
81 my $prevstartfrom=($startfrom-20>0) ? ($startfrom-20) : (0);
82 $template->param(startfrom => $startfrom+1,
83                         endat => $startfrom+20,
84                         numrecords => $count,
85                         nextstartfrom => $nextstartfrom,
86                         prevstartfrom => $prevstartfrom,
87                         BIBLIO_RESULTS => $resultsarray,
88                         ITEM_RESULTS => $itemsarray,
89                         loggedinuser => $loggedinuser,
90                         biblionumber => $biblionumber,
91                         );
92
93 output_html_with_http_headers $query, $cookie, $template->output;
94
95
96 # Local Variables:
97 # tab-width: 8
98 # End: