Lines 42-47
use Koha::Database;
Link Here
|
42 |
use Koha; |
42 |
use Koha; |
43 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
43 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
44 |
use Koha::Caches; |
44 |
use Koha::Caches; |
|
|
45 |
use Koha::Installer::Output qw ( say_failure ); |
45 |
|
46 |
|
46 |
use MARC::Record; |
47 |
use MARC::Record; |
47 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
48 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
Lines 24301-24307
unless ( $ENV{HTTP_HOST} ) { # Is that correct?
Link Here
|
24301 |
} |
24302 |
} |
24302 |
for my $e ( @{ $report->{error} } ) { |
24303 |
for my $e ( @{ $report->{error} } ) { |
24303 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24304 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24304 |
say Encode::encode_utf8("ERROR - " . $e->{error}); |
24305 |
say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) ); |
24305 |
$error_code = 1; |
24306 |
$error_code = 1; |
24306 |
} |
24307 |
} |
24307 |
|
24308 |
|
Lines 24312-24318
unless ( $ENV{HTTP_HOST} ) { # Is that correct?
Link Here
|
24312 |
} |
24313 |
} |
24313 |
for my $e ( @{ $report->{error} } ) { |
24314 |
for my $e ( @{ $report->{error} } ) { |
24314 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24315 |
say Encode::encode_utf8(join "\n", @{$e->{output}}); |
24315 |
say Encode::encode_utf8("ERROR - " . $e->{error}); |
24316 |
say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) ); |
24316 |
$error_code = 1; |
24317 |
$error_code = 1; |
24317 |
} |
24318 |
} |
24318 |
exit $error_code; |
24319 |
exit $error_code; |
24319 |
- |
|
|