Lines 246-270
elsif ($op eq "update_status" ) {
Link Here
|
246 |
$suggestion->{suggestionid} = $suggestionid; |
246 |
$suggestion->{suggestionid} = $suggestionid; |
247 |
&ModSuggestion($suggestion); |
247 |
&ModSuggestion($suggestion); |
248 |
} |
248 |
} |
249 |
my $params = ''; |
249 |
redirect_with_params($input); |
250 |
foreach my $key ( |
|
|
251 |
qw( |
252 |
displayby branchcode title author isbn publishercode copyrightdate |
253 |
collectiontitle suggestedby suggesteddate_from suggesteddate_to |
254 |
manageddate_from manageddate_to accepteddate_from |
255 |
accepteddate_to budgetid |
256 |
) |
257 |
) |
258 |
{ |
259 |
$params .= $key . '=' . uri_escape($input->param($key)) . '&' |
260 |
if defined($input->param($key)); |
261 |
} |
262 |
print $input->redirect("/cgi-bin/koha/suggestion/suggestion.pl?$params"); |
263 |
}elsif ($op eq "delete" ) { |
250 |
}elsif ($op eq "delete" ) { |
264 |
foreach my $delete_field (@editsuggestions) { |
251 |
foreach my $delete_field (@editsuggestions) { |
265 |
&DelSuggestion( $borrowernumber, $delete_field,'intranet' ); |
252 |
&DelSuggestion( $borrowernumber, $delete_field,'intranet' ); |
266 |
} |
253 |
} |
267 |
$op = 'else'; |
254 |
redirect_with_params($input); |
268 |
} |
255 |
} |
269 |
elsif ( $op eq 'update_itemtype' ) { |
256 |
elsif ( $op eq 'update_itemtype' ) { |
270 |
my $new_itemtype = $input->param('suggestion_itemtype'); |
257 |
my $new_itemtype = $input->param('suggestion_itemtype'); |
Lines 272-277
elsif ( $op eq 'update_itemtype' ) {
Link Here
|
272 |
next unless $suggestionid; |
259 |
next unless $suggestionid; |
273 |
&ModSuggestion({ suggestionid => $suggestionid, itemtype => $new_itemtype }); |
260 |
&ModSuggestion({ suggestionid => $suggestionid, itemtype => $new_itemtype }); |
274 |
} |
261 |
} |
|
|
262 |
redirect_with_params($input); |
275 |
} |
263 |
} |
276 |
elsif ( $op eq 'show' ) { |
264 |
elsif ( $op eq 'show' ) { |
277 |
$suggestion_ref=&GetSuggestion($$suggestion_ref{'suggestionid'}); |
265 |
$suggestion_ref=&GetSuggestion($$suggestion_ref{'suggestionid'}); |
Lines 428-430
$template->param(
Link Here
|
428 |
SuggestionStatuses => GetAuthorisedValues('SUGGEST_STATUS'), |
416 |
SuggestionStatuses => GetAuthorisedValues('SUGGEST_STATUS'), |
429 |
); |
417 |
); |
430 |
output_html_with_http_headers $input, $cookie, $template->output; |
418 |
output_html_with_http_headers $input, $cookie, $template->output; |
431 |
- |
419 |
|
|
|
420 |
sub redirect_with_params { |
421 |
my ( $input ) = @_; |
422 |
my $params = ''; |
423 |
foreach my $key ( |
424 |
qw( |
425 |
displayby branchcode title author isbn publishercode copyrightdate |
426 |
collectiontitle suggestedby suggesteddate_from suggesteddate_to |
427 |
manageddate_from manageddate_to accepteddate_from |
428 |
accepteddate_to budgetid |
429 |
) |
430 |
) |
431 |
{ |
432 |
$params .= $key . '=' . uri_escape(scalar $input->param($key)) . '&' |
433 |
if defined($input->param($key)); |
434 |
} |
435 |
print $input->redirect("/cgi-bin/koha/suggestion/suggestion.pl?$params"); |
436 |
} |