Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 107 lines (84 sloc) 3.085 kb
d0374d0 Initial revision
rangi authored
1 #!/usr/bin/perl
267f089 Updated to use get_template_and_user
acli authored
2 # NOTE: Use standard 8-space tabs for this file (indents are 4 spaces)
1e67687 Added copyright statement to all .pl and .pm files
tonnesen authored
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
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
21 use HTML::Template;
d0374d0 Initial revision
rangi authored
22 use strict;
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
23 require Exporter;
dbca398 Merged with arensb-context branch: use C4::Context->dbh instead of
arensb authored
24 use C4::Context;
d04d6ca switched from picktemplate() to gettemplate()
tonnesen authored
25 use C4::Output; # contains gettemplate
d0374d0 Initial revision
rangi authored
26 use CGI;
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
27 use C4::Search;
cebf30c merging from 1.2 : adding auth
tipaul authored
28 use C4::Auth;
267f089 Updated to use get_template_and_user
acli authored
29 use C4::Interface::CGI::Output;
8b4a044 Changed the scripts to use format_date
wolfpac444 authored
30 use C4::Date;
cebf30c merging from 1.2 : adding auth
tipaul authored
31
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
32 my $query=new CGI;
cebf30c merging from 1.2 : adding auth
tipaul authored
33 my $type=$query->param('type');
34 ($type) || ($type='intra');
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
35
36 my $biblionumber=$query->param('bib');
b7a18e8 added a Boolean: $norequests whhich is set on the template detail.tmpl s...
finlayt authored
37
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
38 # change back when ive fixed request.pl
39 my @items = ItemInfo(undef, $biblionumber, $type);
b7a18e8 added a Boolean: $norequests whhich is set on the template detail.tmpl s...
finlayt authored
40 my $norequests = 1;
41 foreach my $itm (@items) {
42 $norequests = 0 unless $itm->{'notforloan'};
43 }
44
7eab6cb fixed up the CheckReserves.pm routine so that it does not put Referece i...
finlayt authored
45
b7a18e8 added a Boolean: $norequests whhich is set on the template detail.tmpl s...
finlayt authored
46
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
47 my $dat=bibdata($biblionumber);
48 my ($authorcount, $addauthor)= &addauthor($biblionumber);
49 my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
50 my ($websitecount, @websites) = &getwebsites($biblionumber);
d0374d0 Initial revision
rangi authored
51
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
52 $dat->{'count'}=@items;
7eab6cb fixed up the CheckReserves.pm routine so that it does not put Referece i...
finlayt authored
53 $dat->{'norequests'} = $norequests;
073dc61 Bug fixes to get the new acqui.simple system working.
truth_nz authored
54
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
55 $dat->{'additional'}=$addauthor->[0]->{'author'};
56 for (my $i = 1; $i < $authorcount; $i++) {
57 $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
0747fb1 Changes to allow modifications to the website biblioitems
truth_nz authored
58 } # for
59
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
60 my @results;
0747fb1 Changes to allow modifications to the website biblioitems
truth_nz authored
61
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
62 $results[0]=$dat;
073dc61 Bug fixes to get the new acqui.simple system working.
truth_nz authored
63
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
64 my $resultsarray=\@results;
65 my $itemsarray=\@items;
66 my $webarray=\@webbiblioitems;
67 my $sitearray=\@websites;
073dc61 Bug fixes to get the new acqui.simple system working.
truth_nz authored
68
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
69 my $startfrom=$query->param('startfrom');
70 ($startfrom) || ($startfrom=0);
cec2db3 Update to catalogue to allow change of biblio abstracts.
truth_nz authored
71
267f089 Updated to use get_template_and_user
acli authored
72 my ($template, $loggedinuser, $cookie) = get_template_and_user({
73 template_name => ($type eq 'opac'? 'catalogue/detail-opac.tmpl':
74 'catalogue/detail.tmpl'),
75 query => $query,
76 type => "intranet",
77 authnotrequired => ($type eq 'opac'),
78 flagsrequired => {catalogue => 1},
79 });
80
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
81 my $count=1;
4915ed7 New files, and changes to add associated webstes to a biblio.
truth_nz authored
82
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
83 # now to get the items into a hash we can use and whack that thru
4915ed7 New files, and changes to add associated webstes to a biblio.
truth_nz authored
84
85
cc840a7 Update to acqui.simple system. Hopefully this is a lot more user friendl...
truth_nz authored
86 my $nextstartfrom=($startfrom+20<$count-20) ? ($startfrom+20) : ($count-20);
87 my $prevstartfrom=($startfrom-20>0) ? ($startfrom-20) : (0);
ae96102 * graphic bugfixes
tipaul authored
88 $template->param(startfrom => $startfrom+1,
89 endat => $startfrom+20,
90 numrecords => $count,
91 nextstartfrom => $nextstartfrom,
92 prevstartfrom => $prevstartfrom,
93 BIBLIO_RESULTS => $resultsarray,
94 ITEM_RESULTS => $itemsarray,
95 WEB_RESULTS => $webarray,
96 SITE_RESULTS => $sitearray,
97 loggedinuser => $loggedinuser,
3635a59 synch'ing 2.0.0 branch and head
tipaul authored
98 biblionumber => $biblionumber,
99 );
ae96102 * graphic bugfixes
tipaul authored
100
52a5fd4 Moved C4/Charset.pm to C4/Interface/CGI/Output.pm
acli authored
101 output_html_with_http_headers $query, $cookie, $template->output;
cec2db3 Update to catalogue to allow change of biblio abstracts.
truth_nz authored
102
267f089 Updated to use get_template_and_user
acli authored
103
104 # Local Variables:
105 # tab-width: 8
106 # End:
Something went wrong with that request. Please try again.