Lines 103-116
my $input = CGI->new;
Link Here
|
103 |
|
103 |
|
104 |
# getting the CGI params |
104 |
# getting the CGI params |
105 |
my $basketno = $input->param('basketno'); |
105 |
my $basketno = $input->param('basketno'); |
106 |
my $booksellerid = $input->param('booksellerid'); |
106 |
my $booksellerid = $input->param('booksellerid'); |
107 |
my $author = $input->param('author'); |
107 |
my $author = $input->param('author'); |
108 |
my $title = $input->param('title'); |
108 |
my $title = $input->param('title'); |
109 |
my $publishercode = $input->param('publishercode'); |
109 |
my $publishercode = $input->param('publishercode'); |
110 |
my $op = $input->param('op'); |
110 |
my $op = $input->param('op'); |
111 |
my $suggestionid = $input->param('suggestionid'); |
111 |
my $suggestionid = $input->param('suggestionid'); |
112 |
my $duplicateNumber = $input->param('duplicateNumber'); |
112 |
my $duplicateNumber = $input->param('duplicateNumber'); |
113 |
my $uncertainprice = $input->param('uncertainprice'); |
113 |
my $uncertainprice = $input->param('uncertainprice'); |
|
|
114 |
my $link_order = $input->param('link_order'); |
114 |
|
115 |
|
115 |
$op = 'else' unless $op; |
116 |
$op = 'else' unless $op; |
116 |
|
117 |
|
Lines 128-133
if ( $op eq 'connectDuplicate' ) {
Link Here
|
128 |
ConnectSuggestionAndBiblio( $suggestionid, $duplicateNumber ); |
129 |
ConnectSuggestionAndBiblio( $suggestionid, $duplicateNumber ); |
129 |
} |
130 |
} |
130 |
|
131 |
|
|
|
132 |
if ( $op eq 'link_order' and $link_order ) { |
133 |
my $order = Koha::Acquisition::Orders->find($link_order); |
134 |
my $suggestion = Koha::Suggestions->find($suggestionid); |
135 |
$suggestion->update( { biblionumber => $order->biblionumber } ) if $order->biblionumber; |
136 |
print $input->redirect( "/cgi-bin/koha/acqui/basket.pl?basketno=" . $basketno ); |
137 |
} |
138 |
|
131 |
my $suggestions = [ Koha::Suggestions->search_limited( |
139 |
my $suggestions = [ Koha::Suggestions->search_limited( |
132 |
{ |
140 |
{ |
133 |
( $author ? ( author => $author ) : () ), |
141 |
( $author ? ( author => $author ) : () ), |
Lines 140-150
my $suggestions = [ Koha::Suggestions->search_limited(
Link Here
|
140 |
|
148 |
|
141 |
my $vendor = Koha::Acquisition::Booksellers->find( $booksellerid ); |
149 |
my $vendor = Koha::Acquisition::Booksellers->find( $booksellerid ); |
142 |
$template->param( |
150 |
$template->param( |
143 |
suggestions => $suggestions, |
151 |
suggestions => $suggestions, |
144 |
basketno => $basketno, |
152 |
basketno => $basketno, |
145 |
booksellerid => $booksellerid, |
153 |
booksellerid => $booksellerid, |
146 |
name => $vendor->name, |
154 |
name => $vendor->name, |
147 |
"op_$op" => 1, |
155 |
"op_$op" => 1, |
|
|
156 |
link_order => $link_order, |
148 |
); |
157 |
); |
149 |
|
158 |
|
150 |
output_html_with_http_headers $input, $cookie, $template->output; |
159 |
output_html_with_http_headers $input, $cookie, $template->output; |