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

(-)a/suggestion/suggestion.pl (-2 / +14 lines)
Lines 182-188 elsif ($op eq "change" ) { Link Here
182
        $$suggestion_ref{'suggestionid'}=$suggestionid;
182
        $$suggestion_ref{'suggestionid'}=$suggestionid;
183
        &ModSuggestion($suggestion_ref);
183
        &ModSuggestion($suggestion_ref);
184
    }
184
    }
185
    $op = 'else';
185
    my $params;
186
    foreach my $key (
187
        qw(
188
        displayby branchcode title author isbn publishercode copyrightdate
189
        collectiontitle suggestedby suggesteddate_from suggesteddate_to
190
        manageddate_from manageddate_to accepteddate_from
191
        accepteddate_to budgetid
192
        )
193
      )
194
    {
195
        $params .= $key . '=' . $input->param($key) . '&'
196
          if $input->param($key);
197
    }
198
    print $input->redirect("/cgi-bin/koha/suggestion/suggestion.pl?$params");
186
}elsif ($op eq "delete" ) {
199
}elsif ($op eq "delete" ) {
187
    foreach my $delete_field (@editsuggestions) {
200
    foreach my $delete_field (@editsuggestions) {
188
        &DelSuggestion( $borrowernumber, $delete_field,'intranet' );
201
        &DelSuggestion( $borrowernumber, $delete_field,'intranet' );
189
- 

Return to bug 4068