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