Lines 33-38
use Koha::Acquisition::Currencies;
Link Here
|
33 |
use Koha::Libraries; |
33 |
use Koha::Libraries; |
34 |
use Koha::Patrons; |
34 |
use Koha::Patrons; |
35 |
use Koha::Suggestions; |
35 |
use Koha::Suggestions; |
|
|
36 |
use Koha::Token; |
36 |
|
37 |
|
37 |
use URI::Escape qw( uri_escape ); |
38 |
use URI::Escape qw( uri_escape ); |
38 |
|
39 |
|
Lines 531-540
foreach my $field ( qw(managedby acceptedby suggestedby budgetid) ) {
Link Here
|
531 |
$hashlists{ lc($field) . "_loop" } = \@codes_list; |
532 |
$hashlists{ lc($field) . "_loop" } = \@codes_list; |
532 |
} |
533 |
} |
533 |
|
534 |
|
|
|
535 |
my $csrf_token = Koha::Token->new->generate_csrf({ |
536 |
session_id => scalar $input->cookie('CGISESSID'), |
537 |
}); |
538 |
|
534 |
$template->param( |
539 |
$template->param( |
535 |
%hashlists, |
540 |
%hashlists, |
536 |
borrowernumber => ($input->param('borrowernumber') // undef), |
541 |
borrowernumber => ($input->param('borrowernumber') // undef), |
537 |
SuggestionStatuses => GetAuthorisedValues('SUGGEST_STATUS'), |
542 |
SuggestionStatuses => GetAuthorisedValues('SUGGEST_STATUS'), |
|
|
543 |
csrf_token => $csrf_token, |
538 |
); |
544 |
); |
539 |
output_html_with_http_headers $input, $cookie, $template->output; |
545 |
output_html_with_http_headers $input, $cookie, $template->output; |
540 |
|
546 |
|
541 |
- |
|
|