Lines 1-96
Link Here
|
1 |
#!/usr/bin/perl |
|
|
2 |
|
3 |
# Copyright 2000-2002 Katipo Communications |
4 |
# |
5 |
# This file is part of Koha. |
6 |
# |
7 |
# Koha is free software; you can redistribute it and/or modify it under the |
8 |
# terms of the GNU General Public License as published by the Free Software |
9 |
# Foundation; either version 2 of the License, or (at your option) any later |
10 |
# version. |
11 |
# |
12 |
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY |
13 |
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
14 |
# A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
15 |
# |
16 |
# You should have received a copy of the GNU General Public License along |
17 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
19 |
|
20 |
use strict; |
21 |
#use warnings; FIXME - Bug 2505 |
22 |
|
23 |
use C4::Context; |
24 |
use CGI; |
25 |
use C4::Auth; |
26 |
use C4::Biblio; |
27 |
use C4::Items; |
28 |
use C4::Output; |
29 |
use C4::Dates; |
30 |
|
31 |
my $query = new CGI; |
32 |
my $type = $query->param('type'); |
33 |
($type) || ( $type = 'intra' ); |
34 |
|
35 |
my $biblionumber = $query->param('biblionumber'); |
36 |
|
37 |
# change back when ive fixed request.pl |
38 |
my @items = GetItemsInfo( $biblionumber ); |
39 |
my $norequests = 1; |
40 |
foreach my $itm (@items) { |
41 |
$norequests = 0 unless $itm->{'notforloan'}; |
42 |
} |
43 |
|
44 |
my $dat = GetBiblioData($biblionumber); |
45 |
my $record = GetMarcBiblio($biblionumber); |
46 |
my $addauthor = GetMarcAuthors($record,C4::Context->preference("marcflavour")); |
47 |
my $authorcount = scalar @$addauthor; |
48 |
|
49 |
$dat->{'additional'} = ""; |
50 |
foreach (@$addauthor) { |
51 |
$dat->{'additional'} .= "|" . $_->{'a'}; |
52 |
} # for |
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 |
{ |
69 |
template_name => ('catalogue/detailprint.tmpl'), |
70 |
query => $query, |
71 |
type => "intranet", |
72 |
authnotrequired => ( $type eq 'opac' ), |
73 |
flagsrequired => { catalogue => 1 }, |
74 |
} |
75 |
); |
76 |
|
77 |
my $count = 1; |
78 |
|
79 |
# now to get the items into a hash we can use and whack that thru |
80 |
|
81 |
my $nextstartfrom = ( $startfrom + 20 < $count - 20 ) ? ( $startfrom + 20 ) : ( $count - 20 ); |
82 |
my $prevstartfrom = ( $startfrom - 20 > 0 ) ? ( $startfrom - 20 ) : (0); |
83 |
|
84 |
$template->param( |
85 |
startfrom => $startfrom + 1, |
86 |
endat => $startfrom + 20, |
87 |
numrecords => $count, |
88 |
nextstartfrom => $nextstartfrom, |
89 |
prevstartfrom => $prevstartfrom, |
90 |
BIBLIO_RESULTS => $resultsarray, |
91 |
ITEM_RESULTS => $itemsarray, |
92 |
loggedinuser => $loggedinuser, |
93 |
biblionumber => $biblionumber, |
94 |
); |
95 |
|
96 |
output_html_with_http_headers $query, $cookie, $template->output; |