|
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; |