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

(-)a/Koha/Database/Auditor.pm (-3 / +4 lines)
Lines 22-27 use SQL::Translator::Diff; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
24
25
use Koha::I18N qw(__);
26
25
=head1 NAME
27
=head1 NAME
26
28
27
Koha::Database::Auditor
29
Koha::Database::Auditor
Lines 86-92 sub _get_db { Link Here
86
    my ($self) = @_;
88
    my ($self) = @_;
87
89
88
    my $database_name = C4::Context->config("database");
90
    my $database_name = C4::Context->config("database");
89
    print "Parsing schema for database '$database_name'\n" if $self->{is_cli};
91
    print sprintf( __("Parsing schema for database %s\n"), $database_name ) if $self->{is_cli};
90
    my $dbh    = C4::Context->dbh;
92
    my $dbh    = C4::Context->dbh;
91
    my $parser = SQL::Translator->new(
93
    my $parser = SQL::Translator->new(
92
        parser      => 'DBI',
94
        parser      => 'DBI',
Lines 126-132 Retrieves and returns the schema using SQL::Translator for the given file Link Here
126
sub _get_kohastructure {
128
sub _get_kohastructure {
127
    my ($self) = @_;
129
    my ($self) = @_;
128
130
129
    print "Parsing schema for file $self->{filename} \n" if $self->{is_cli};
131
    print sprintf( __("Parsing schema for file %s\n"), $self->{filename} ) if $self->{is_cli};
130
    my $translator = SQL::Translator->new();
132
    my $translator = SQL::Translator->new();
131
    $translator->parser("MySQL");
133
    $translator->parser("MySQL");
132
    my $schema = $translator->translate( $self->{filename} );
134
    my $schema = $translator->translate( $self->{filename} );
133
- 

Return to bug 36039