View | Details | Raw Unified | Return to bug 23594
Collapse All | Expand All

(-)a/suggestion/suggestion.pl (-16 / +21 lines)
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
}

Return to bug 23594