Lines 99-105
my $columns = ' ' . join( ' ', $schema->source('Suggestion')->columns )
Link Here
|
99 |
my $suggestion_only = { map { $columns =~ / $_ / ? ( $_ => $suggestion_ref->{$_} ) : () } keys %$suggestion_ref }; |
99 |
my $suggestion_only = { map { $columns =~ / $_ / ? ( $_ => $suggestion_ref->{$_} ) : () } keys %$suggestion_ref }; |
100 |
$suggestion_only->{STATUS} = $suggestion_ref->{STATUS}; |
100 |
$suggestion_only->{STATUS} = $suggestion_ref->{STATUS}; |
101 |
|
101 |
|
102 |
qw( suggestedbyme op displayby tabcode notify filter_archived koha_login_context auth_forwarded_hash password userid ); |
102 |
qw( suggestedbyme op displayby tabcode notify filter_archived koha_login_context auth_forwarded_hash password userid ); |
103 |
|
103 |
|
104 |
delete $suggestion_only->{branchcode} if $suggestion_only->{branchcode} eq '__ANY__'; |
104 |
delete $suggestion_only->{branchcode} if $suggestion_only->{branchcode} eq '__ANY__'; |
105 |
delete $suggestion_only->{budgetid} if $suggestion_only->{budgetid} eq '__ANY__'; |
105 |
delete $suggestion_only->{budgetid} if $suggestion_only->{budgetid} eq '__ANY__'; |
Lines 256-264
if ( $op =~ /cud-save/ ) {
Link Here
|
256 |
} elsif ( $op eq 'add_form' ) { |
256 |
} elsif ( $op eq 'add_form' ) { |
257 |
|
257 |
|
258 |
$template->param( |
258 |
$template->param( |
259 |
default_suggester => $librarian, |
259 |
default_suggester => $librarian, |
260 |
default_suggesteddate => dt_from_string, |
260 |
default_suggesteddate => dt_from_string, |
261 |
default_branch => C4::Context->userenv->{"branch"}, |
261 |
default_branch => C4::Context->userenv->{"branch"}, |
262 |
); |
262 |
); |
263 |
$op = 'save'; |
263 |
$op = 'save'; |
264 |
} elsif ( $op eq 'edit_form' ) { |
264 |
} elsif ( $op eq 'edit_form' ) { |
Lines 272-280
if ( $op =~ /cud-save/ ) {
Link Here
|
272 |
} |
272 |
} |
273 |
$other_reason = 0 unless $stored_suggestion->reason; |
273 |
$other_reason = 0 unless $stored_suggestion->reason; |
274 |
$template->param( |
274 |
$template->param( |
275 |
other_reason => $other_reason, |
275 |
other_reason => $other_reason, |
276 |
default_manageddate => dt_from_string, |
276 |
default_manageddate => dt_from_string, |
277 |
default_branch => C4::Context->userenv->{"branch"}, |
277 |
default_branch => C4::Context->userenv->{"branch"}, |
278 |
); |
278 |
); |
279 |
$op = 'save'; |
279 |
$op = 'save'; |
280 |
} elsif ( $op eq "cud-update_status" ) { |
280 |
} elsif ( $op eq "cud-update_status" ) { |
Lines 498-504
$template->param(
Link Here
|
498 |
reasonsloop => $reasonsloop, |
498 |
reasonsloop => $reasonsloop, |
499 |
); |
499 |
); |
500 |
|
500 |
|
501 |
|
|
|
502 |
if ( defined($returnsuggested) and $returnsuggested ne "no_one" ) { |
501 |
if ( defined($returnsuggested) and $returnsuggested ne "no_one" ) { |
503 |
print $input->redirect( "/cgi-bin/koha/members/moremember.pl?borrowernumber=" . $returnsuggested . "#suggestions" ); |
502 |
print $input->redirect( "/cgi-bin/koha/members/moremember.pl?borrowernumber=" . $returnsuggested . "#suggestions" ); |
504 |
} |
503 |
} |
505 |
- |
|
|