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

(-)a/C4/Installer.pm (+2 lines)
Lines 30-35 use C4::Context; Link Here
30
use Koha::Schema;
30
use Koha::Schema;
31
use Koha;
31
use Koha;
32
use Koha::Installer;
32
use Koha::Installer;
33
use Koha::Installer::Output qw ( say_failure );
33
34
34
use vars qw(@ISA @EXPORT);
35
use vars qw(@ISA @EXPORT);
35
BEGIN {
36
BEGIN {
Lines 742-747 sub run_db_rev { Link Here
742
        );
743
        );
743
    }
744
    }
744
    catch {
745
    catch {
746
        say_failure( $outfh, "ERROR: " . $_ );
745
        $error = $_;
747
        $error = $_;
746
    };
748
    };
747
749
(-)a/installer/data/mysql/updatedatabase.pl (-3 / +2 lines)
Lines 24302-24308 unless ( $ENV{HTTP_HOST} ) { # Is that correct? Link Here
24302
    }
24302
    }
24303
    for my $e ( @{ $report->{error} } ) {
24303
    for my $e ( @{ $report->{error} } ) {
24304
        say Encode::encode_utf8(join "\n", @{$e->{output}});
24304
        say Encode::encode_utf8(join "\n", @{$e->{output}});
24305
        say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) );
24305
        #say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) );
24306
        $error_code = 1;
24306
        $error_code = 1;
24307
    }
24307
    }
24308
24308
Lines 24313-24319 unless ( $ENV{HTTP_HOST} ) { # Is that correct? Link Here
24313
    }
24313
    }
24314
    for my $e ( @{ $report->{error} } ) {
24314
    for my $e ( @{ $report->{error} } ) {
24315
        say Encode::encode_utf8(join "\n", @{$e->{output}});
24315
        say Encode::encode_utf8(join "\n", @{$e->{output}});
24316
        say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) );
24316
        #say_failure( undef, Encode::encode_utf8("ERROR - " . $e->{error}) );
24317
        $error_code = 1;
24317
        $error_code = 1;
24318
    }
24318
    }
24319
    exit $error_code;
24319
    exit $error_code;
24320
- 

Return to bug 38299