Lines 224-248
elsif ($op eq "update_status" ) {
Link Here
|
224 |
$suggestion->{suggestionid} = $suggestionid; |
224 |
$suggestion->{suggestionid} = $suggestionid; |
225 |
&ModSuggestion($suggestion); |
225 |
&ModSuggestion($suggestion); |
226 |
} |
226 |
} |
227 |
my $params = ''; |
227 |
redirect_with_params($input); |
228 |
foreach my $key ( |
|
|
229 |
qw( |
230 |
displayby branchcode title author isbn publishercode copyrightdate |
231 |
collectiontitle suggestedby suggesteddate_from suggesteddate_to |
232 |
manageddate_from manageddate_to accepteddate_from |
233 |
accepteddate_to budgetid |
234 |
) |
235 |
) |
236 |
{ |
237 |
$params .= $key . '=' . uri_escape($input->param($key)) . '&' |
238 |
if defined($input->param($key)); |
239 |
} |
240 |
print $input->redirect("/cgi-bin/koha/suggestion/suggestion.pl?$params"); |
241 |
}elsif ($op eq "delete" ) { |
228 |
}elsif ($op eq "delete" ) { |
242 |
foreach my $delete_field (@editsuggestions) { |
229 |
foreach my $delete_field (@editsuggestions) { |
243 |
&DelSuggestion( $borrowernumber, $delete_field,'intranet' ); |
230 |
&DelSuggestion( $borrowernumber, $delete_field,'intranet' ); |
244 |
} |
231 |
} |
245 |
$op = 'else'; |
232 |
redirect_with_params($input); |
246 |
} |
233 |
} |
247 |
elsif ( $op eq 'update_itemtype' ) { |
234 |
elsif ( $op eq 'update_itemtype' ) { |
248 |
my $new_itemtype = $input->param('suggestion_itemtype'); |
235 |
my $new_itemtype = $input->param('suggestion_itemtype'); |
Lines 250-255
elsif ( $op eq 'update_itemtype' ) {
Link Here
|
250 |
next unless $suggestionid; |
237 |
next unless $suggestionid; |
251 |
&ModSuggestion({ suggestionid => $suggestionid, itemtype => $new_itemtype }); |
238 |
&ModSuggestion({ suggestionid => $suggestionid, itemtype => $new_itemtype }); |
252 |
} |
239 |
} |
|
|
240 |
redirect_with_params($input); |
253 |
} |
241 |
} |
254 |
elsif ( $op eq 'show' ) { |
242 |
elsif ( $op eq 'show' ) { |
255 |
$suggestion_ref=&GetSuggestion($$suggestion_ref{'suggestionid'}); |
243 |
$suggestion_ref=&GetSuggestion($$suggestion_ref{'suggestionid'}); |
Lines 413-415
$template->param(
Link Here
|
413 |
SuggestionStatuses => GetAuthorisedValues('SUGGEST_STATUS'), |
401 |
SuggestionStatuses => GetAuthorisedValues('SUGGEST_STATUS'), |
414 |
); |
402 |
); |
415 |
output_html_with_http_headers $input, $cookie, $template->output; |
403 |
output_html_with_http_headers $input, $cookie, $template->output; |
416 |
- |
404 |
|
|
|
405 |
sub redirect_with_params { |
406 |
my ( $input ) = @_; |
407 |
my $params = ''; |
408 |
foreach my $key ( |
409 |
qw( |
410 |
displayby branchcode title author isbn publishercode copyrightdate |
411 |
collectiontitle suggestedby suggesteddate_from suggesteddate_to |
412 |
manageddate_from manageddate_to accepteddate_from |
413 |
accepteddate_to budgetid |
414 |
) |
415 |
) |
416 |
{ |
417 |
$params .= $key . '=' . uri_escape(scalar $input->param($key)) . '&' |
418 |
if defined($input->param($key)); |
419 |
} |
420 |
print $input->redirect("/cgi-bin/koha/suggestion/suggestion.pl?$params"); |
421 |
} |