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

(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 587-593 sub version_check { Link Here
587
    }
587
    }
588
588
589
    # check if you're uptodate, and if you're not, head to updater
589
    # check if you're uptodate, and if you're not, head to updater
590
    my $koha39 =~ "3.0900000";
590
    my $koha39 = "3.0900028";
591
591
592
    # Old updatedatabase method
592
    # Old updatedatabase method
593
    if (C4::Context->preference('Version') < $koha39) {
593
    if (C4::Context->preference('Version') < $koha39) {
(-)a/installer/data/mysql/update.pl (-1 / +1 lines)
Lines 59-65 if ( $all ) { Link Here
59
}
59
}
60
60
61
if ( $version or $all ) {
61
if ( $version or $all ) {
62
    say "Report:";
62
    say @reports ? "Report:": "Nothing to report";
63
    for my $report ( @reports ) {
63
    for my $report ( @reports ) {
64
        my ( $v, $r ) = each %$report;
64
        my ( $v, $r ) = each %$report;
65
        if ( ref( $r ) eq 'HASH' ) {
65
        if ( ref( $r ) eq 'HASH' ) {
(-)a/installer/install.pl (-3 / +2 lines)
Lines 321-327 elsif ( $step && $step == 3 ) { Link Here
321
        warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n";
321
        warn "# plack? inserted PERL5LIB $ENV{PERL5LIB}\n";
322
    }
322
    }
323
323
324
        my $koha39 =~ "3.0900000";
324
        my $koha39 = "3.0900028";
325
        my $cmd;
325
        my $cmd;
326
        # Old updatedatabase method
326
        # Old updatedatabase method
327
        my $current_version = C4::Context->preference('Version');
327
        my $current_version = C4::Context->preference('Version');
Lines 329-335 elsif ( $step && $step == 3 ) { Link Here
329
            $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/updatedatabase.pl";
329
            $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/updatedatabase.pl";
330
            my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0);
330
            my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0);
331
            print_std( "updatedatabase.pl", $stdout_buf, $stderr_buf );
331
            print_std( "updatedatabase.pl", $stdout_buf, $stderr_buf );
332
332
            $current_version= $koha39;
333
        }
333
        }
334
        $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/update.pl -all -min=$current_version";
334
        $cmd = C4::Context->config("intranetdir") . "/installer/data/$info{dbms}/update.pl -all -min=$current_version";
335
        my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0);
335
        my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) = IPC::Cmd::run(command => $cmd, verbose => 0);
336
- 

Return to bug 7167