Lines 111-116
my $op = $input->param('op');
Link Here
|
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 = [ |
139 |
my $suggestions = [ |
132 |
Koha::Suggestions->search_limited( |
140 |
Koha::Suggestions->search_limited( |
133 |
{ |
141 |
{ |
Lines 147-152
$template->param(
Link Here
|
147 |
booksellerid => $booksellerid, |
155 |
booksellerid => $booksellerid, |
148 |
name => $vendor->name, |
156 |
name => $vendor->name, |
149 |
"op_$op" => 1, |
157 |
"op_$op" => 1, |
|
|
158 |
link_order => $link_order, |
150 |
); |
159 |
); |
151 |
|
160 |
|
152 |
output_html_with_http_headers $input, $cookie, $template->output; |
161 |
output_html_with_http_headers $input, $cookie, $template->output; |