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

(-)a/Koha/Database.pm (-3 / +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 47-54 __PACKAGE__->mk_accessors(qw( )); Link Here
47
# returns it.
48
# returns it.
48
sub _new_schema {
49
sub _new_schema {
49
50
50
    require Koha::Schema;
51
52
    my $context = C4::Context->new();
51
    my $context = C4::Context->new();
53
52
54
    my $db_driver = $context->{db_driver};
53
    my $db_driver = $context->{db_driver};
55
- 

Return to bug 15562