Lines 28-34
use C4::Auth qw(get_template_and_user);
Link Here
|
28 |
use C4::Koha; |
28 |
use C4::Koha; |
29 |
use C4::Context; |
29 |
use C4::Context; |
30 |
use C4::Log qw( logaction ); |
30 |
use C4::Log qw( logaction ); |
31 |
use C4::Output qw(output_html_with_http_headers); |
31 |
use C4::Output qw(output_html_with_http_headers output_and_exit_if_error); |
32 |
use C4::Languages qw(getTranslatedLanguages); |
32 |
use C4::Languages qw(getTranslatedLanguages); |
33 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
33 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
34 |
|
34 |
|
Lines 84-89
if ( $op eq 'add_form' ) {
Link Here
|
84 |
); |
84 |
); |
85 |
} |
85 |
} |
86 |
elsif ( $op eq 'add_validate' ) { |
86 |
elsif ( $op eq 'add_validate' ) { |
|
|
87 |
output_and_exit_if_error($cgi, $cookie, $template, { check => 'csrf_token' }); |
87 |
my $location = $cgi->param('location'); |
88 |
my $location = $cgi->param('location'); |
88 |
my $code = $cgi->param('code'); |
89 |
my $code = $cgi->param('code'); |
89 |
my $branchcode = $cgi->param('branchcode') || undef; |
90 |
my $branchcode = $cgi->param('branchcode') || undef; |
Lines 202-207
elsif ( $op eq 'add_validate' ) {
Link Here
|
202 |
} |
203 |
} |
203 |
} |
204 |
} |
204 |
elsif ( $op eq 'delete_confirmed' ) { |
205 |
elsif ( $op eq 'delete_confirmed' ) { |
|
|
206 |
output_and_exit_if_error($cgi, $cookie, $template, { check => 'csrf_token' }); |
205 |
my @ids = $cgi->multi_param('ids'); |
207 |
my @ids = $cgi->multi_param('ids'); |
206 |
my $deleted = eval { |
208 |
my $deleted = eval { |
207 |
|
209 |
|
208 |
- |
|
|