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 |
- |
|
|