View | Details | Raw Unified | Return to bug 30803
Collapse All | Expand All

(-)a/C4/Output.pm (+5 lines)
Lines 45-50 use URI::Escape; Link Here
45
use C4::Auth qw( get_template_and_user );
45
use C4::Auth qw( get_template_and_user );
46
use C4::Context;
46
use C4::Context;
47
use C4::Templates;
47
use C4::Templates;
48
use Koha::Exceptions;
48
49
49
=head1 NAME
50
=head1 NAME
50
51
Lines 392-397 Missing POD for output_error. Link Here
392
393
393
sub output_error {
394
sub output_error {
394
    my ( $query, $error ) = @_;
395
    my ( $query, $error ) = @_;
396
397
    if ( !$error || $error =~ /\D/ ) {
398
        Koha::Exceptions::WrongParameter->throw('output_error requires $error to be an integer');
399
    }
395
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
400
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
396
        {
401
        {
397
            template_name   => 'errors/errorpage.tt',
402
            template_name   => 'errors/errorpage.tt',
(-)a/t/Output.t (-2 / +11 lines)
Lines 20-25 use Modern::Perl; Link Here
20
use Test::NoWarnings;
20
use Test::NoWarnings;
21
use Test::More tests => 10;
21
use Test::More tests => 10;
22
use Test::Warn;
22
use Test::Warn;
23
use Test::Exception;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
25
use File::Temp qw/tempfile/;
26
use File::Temp qw/tempfile/;
Lines 139-145 subtest 'output_and_exit_if_error() tests' => sub { Link Here
139
};
140
};
140
141
141
subtest 'output_error' => sub {
142
subtest 'output_error' => sub {
142
    plan tests => 2;
143
    plan tests => 4;
143
144
144
    local *STDOUT;
145
    local *STDOUT;
145
    my $stdout;
146
    my $stdout;
Lines 158-161 subtest 'output_error' => sub { Link Here
158
    like( $stdout, qr{Error 403}, '403 returned' );
159
    like( $stdout, qr{Error 403}, '403 returned' );
159
    close STDOUT;
160
    close STDOUT;
160
161
162
    throws_ok {
163
        output_error($query);
164
    }
165
    'Koha::Exceptions::WrongParameter';
166
167
    throws_ok {
168
        output_error( $query, "Error" );
169
    }
170
    'Koha::Exceptions::WrongParameter';
161
};
171
};
162
- 

Return to bug 30803