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