Bug 10694: (follow-up) fix various issues
[koha.git] / acqui / newordersuggestion.pl
1 #!/usr/bin/perl
2
3 # Copyright 2006 Biblibre
4 # Parts Copyright 2011 PTFS Europe
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
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20
21 =head1 NAME
22
23 newordersuggestion.pl
24
25 =head1 DESCRIPTION
26
27 this script allow to add an order from a existing suggestion.
28 The suggestion must have 'ACCEPTED' as status.
29
30 =head1 CGI PARAMETERS
31
32 =over 4
33
34 =item basketno
35
36     the number of this basket.
37
38 =item booksellerid
39
40     the bookseller who sells this record.
41
42 =item title
43
44     to filter on title when searching among ACCEPTED suggestion.
45
46 =item author
47
48     to filter on author when searching among ACCEPTED suggestion.
49
50 =item note
51
52     to filter on note when searching among ACCEPTED suggestion.
53
54 =item copyrightdate
55
56 =item publishercode
57
58 =item volumedesc
59
60 =item publicationyear
61
62 the publication year of this record.
63
64 =item place
65
66 =item isbn
67
68 the isbn of this suggestion.
69
70 =item duplicateNumber
71
72 is the biblionumber to put to the new suggestion.
73
74 =item suggestionid
75
76 the id of the suggestion to select.
77
78 =item op
79
80 can be equal to
81     * connectDuplicate :
82         then call to the function : ConnectSuggestionAndBiblio.
83         i.e set the biblionumber of this suggestion.
84     * else :
85         is the default value.
86
87 =back
88
89 =cut
90
91 use strict;
92 #use warnings; FIXME - Bug 2505
93
94 use CGI;
95 use C4::Auth;    # get_template_and_user
96 use C4::Output;
97 use C4::Suggestions;
98 use C4::Bookseller qw/ GetBookSellerFromId /;
99 use C4::Biblio;
100
101 my $input = new CGI;
102
103 # getting the CGI params
104 my $basketno        = $input->param('basketno');
105 my $booksellerid      = $input->param('booksellerid');
106 my $author          = $input->param('author');
107 my $title           = $input->param('title');
108 my $publishercode   = $input->param('publishercode');
109 my $op              = $input->param('op');
110 my $suggestionid    = $input->param('suggestionid');
111 my $duplicateNumber = $input->param('duplicateNumber');
112 my $uncertainprice = $input->param('uncertainprice');
113
114 $op = 'else' unless $op;
115
116 my $dbh = C4::Context->dbh;
117 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
118     {
119         template_name   => "acqui/newordersuggestion.tmpl",
120         type            => "intranet",
121         query           => $input,
122         authnotrequired => 1,
123         flagsrequired   => { acquisition => 'order_manage' },
124     }
125 );
126
127 if ( $op eq 'connectDuplicate' ) {
128     ConnectSuggestionAndBiblio( $suggestionid, $duplicateNumber );
129 }
130
131 # getting all suggestions.
132 my $suggestions_loop =
133         &SearchSuggestion( 
134                 { managedby     => $borrowernumber, 
135                 author                  => $author, 
136                 title                   => $title, 
137                 publishercode   => $publishercode,
138                 STATUS        => 'ACCEPTED'});
139 my $vendor = GetBookSellerFromId($booksellerid);
140 $template->param(
141     suggestions_loop        => $suggestions_loop,
142     basketno                => $basketno,
143     booksellerid              => $booksellerid,
144     name                                        => $vendor->{'name'},
145     "op_$op"                => 1,
146 );
147
148 output_html_with_http_headers $input, $cookie, $template->output;