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

(-)a/Koha/Database.pm (-2 / +1 lines)
Lines 35-41 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;
39
use base qw(Class::Accessor);
38
use base qw(Class::Accessor);
40
39
41
use vars qw($database);
40
use vars qw($database);
Lines 48-53 __PACKAGE__->mk_accessors(qw( )); Link Here
48
# returns it.
47
# returns it.
49
sub _new_schema {
48
sub _new_schema {
50
49
50
    require Koha::Schema;
51
    my $context = C4::Context->new();
51
    my $context = C4::Context->new();
52
52
53
    # we are letting C4::Context->dbh not set the RaiseError handle attribute
53
    # we are letting C4::Context->dbh not set the RaiseError handle attribute
54
- 

Return to bug 13690