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