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

(-)a/C4/Update/Database.pm (-6 / +4 lines)
Lines 537-548 sub SetVersion { Link Here
537
sub TableExists {
537
sub TableExists {
538
    my $table = shift;
538
    my $table = shift;
539
    eval {
539
    eval {
540
                local $dbh->{PrintError} = 0;
540
        local $dbh->{PrintError} = 0;
541
                local $dbh->{RaiseError} = 1;
541
        local $dbh->{RaiseError} = 0;
542
                $dbh->do(qq{SELECT * FROM $table WHERE 1 = 0 });
542
        $dbh->do(qq{SELECT * FROM $table WHERE 1 = 0 });
543
            };
543
    };
544
    return 1 unless $@;
544
    return 1 unless $@;
545
    return 0;
545
    return 0;
546
}
546
}
547
548
1;
547
1;
549
- 

Return to bug 7167