Lines 1-99
Link Here
|
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 |
use C4::Context; |
23 |
use CGI; |
24 |
use C4::Biblio; |
25 |
use C4::Items; |
26 |
use C4::Auth; |
27 |
use C4::Output; |
28 |
use C4::Dates; |
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); |
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 = |
46 |
GetMarcAuthors( $record, C4::Context->preference("marcflavour") ); |
47 |
my $authorcount = scalar @$addauthor; |
48 |
|
49 |
$dat->{'count'} = @items; |
50 |
$dat->{'norequests'} = $norequests; |
51 |
|
52 |
$dat->{'additional'} = ""; |
53 |
foreach (@$addauthor) { |
54 |
$dat->{'additional'} .= "|" . $_->{'value'}; |
55 |
} # for |
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 => ('opac-detailprint.tmpl'), |
70 |
query => $query, |
71 |
type => "opac", |
72 |
authnotrequired => 1, |
73 |
} |
74 |
); |
75 |
|
76 |
my $count = 1; |
77 |
|
78 |
# now to get the items into a hash we can use and whack that thru |
79 |
|
80 |
my $nextstartfrom = |
81 |
( $startfrom + 20 < $count - 20 ) ? ( $startfrom + 20 ) : ( $count - 20 ); |
82 |
my $prevstartfrom = ( $startfrom - 20 > 0 ) ? ( $startfrom - 20 ) : (0); |
83 |
$template->param( |
84 |
startfrom => $startfrom + 1, |
85 |
endat => $startfrom + 20, |
86 |
numrecords => $count, |
87 |
nextstartfrom => $nextstartfrom, |
88 |
prevstartfrom => $prevstartfrom, |
89 |
BIBLIO_RESULTS => $resultsarray, |
90 |
ITEM_RESULTS => $itemsarray, |
91 |
loggedinuser => $loggedinuser, |
92 |
biblionumber => $biblionumber, |
93 |
); |
94 |
|
95 |
output_html_with_http_headers $query, $cookie, $template->output; |
96 |
|
97 |
# Local Variables: |
98 |
# tab-width: 8 |
99 |
# End: |
100 |
- |