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