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

(-)a/Koha/Database.pm (-4 / +1 lines)
Lines 35-40 Koha::Database Link Here
35
use Modern::Perl;
35
use Modern::Perl;
36
use Carp;
36
use Carp;
37
use C4::Context;
37
use C4::Context;
38
use Koha::Schema;
38
use base qw(Class::Accessor);
39
use base qw(Class::Accessor);
39
40
40
use vars qw($database);
41
use vars qw($database);
Lines 46-54 __PACKAGE__->mk_accessors(qw( )); Link Here
46
# database connection from the data given in the current context, and
47
# database connection from the data given in the current context, and
47
# returns it.
48
# returns it.
48
sub _new_schema {
49
sub _new_schema {
49
50
    require Koha::Schema;
51
52
    my $context = C4::Context->new();
50
    my $context = C4::Context->new();
53
51
54
    my $db_driver = $context->{db_driver};
52
    my $db_driver = $context->{db_driver};
55
- 

Return to bug 15350