|
Lines 31-36
use strict;
Link Here
|
| 31 |
use URI::Escape; |
31 |
use URI::Escape; |
| 32 |
use Scalar::Util qw( looks_like_number ); |
32 |
use Scalar::Util qw( looks_like_number ); |
| 33 |
|
33 |
|
|
|
34 |
use C4::Auth qw(get_template_and_user); |
| 34 |
use C4::Context; |
35 |
use C4::Context; |
| 35 |
use C4::Templates; |
36 |
use C4::Templates; |
| 36 |
|
37 |
|
|
Lines 51-57
BEGIN {
Link Here
|
| 51 |
); |
52 |
); |
| 52 |
push @EXPORT, qw( |
53 |
push @EXPORT, qw( |
| 53 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers |
54 |
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers |
| 54 |
&output_and_exit_if_error &output_and_exit |
55 |
&output_and_exit_if_error &output_and_exit &output_error |
| 55 |
); |
56 |
); |
| 56 |
|
57 |
|
| 57 |
} |
58 |
} |
|
Lines 365-370
sub output_and_exit {
Link Here
|
| 365 |
exit; |
366 |
exit; |
| 366 |
} |
367 |
} |
| 367 |
|
368 |
|
|
|
369 |
sub output_error { |
| 370 |
my ( $query, $error ) = @_; |
| 371 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 372 |
{ |
| 373 |
template_name => 'errors/errorpage.tt', |
| 374 |
query => $query, |
| 375 |
type => 'intranet', |
| 376 |
authnotrequired => 1, |
| 377 |
} |
| 378 |
); |
| 379 |
my $admin = C4::Context->preference('KohaAdminEmailAddress'); |
| 380 |
$template->param ( |
| 381 |
admin => $admin, |
| 382 |
errno => $error, |
| 383 |
); |
| 384 |
output_with_http_headers $query, $cookie, $template->output, 'html', '404 Not Found'; |
| 385 |
} |
| 386 |
|
| 368 |
sub parametrized_url { |
387 |
sub parametrized_url { |
| 369 |
my $url = shift || ''; # ie page.pl?ln={LANG} |
388 |
my $url = shift || ''; # ie page.pl?ln={LANG} |
| 370 |
my $vars = shift || {}; # ie { LANG => en } |
389 |
my $vars = shift || {}; # ie { LANG => en } |