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 |
__PACKAGE__->mk_accessors(qw( )); |
40 |
__PACKAGE__->mk_accessors(qw( )); |
Lines 46-51
__PACKAGE__->mk_accessors(qw( ));
Link Here
|
46 |
# returns it. |
45 |
# returns it. |
47 |
sub _new_schema { |
46 |
sub _new_schema { |
48 |
|
47 |
|
|
|
48 |
require Koha::Schema; |
49 |
my $context = C4::Context->new(); |
49 |
my $context = C4::Context->new(); |
50 |
|
50 |
|
51 |
# we are letting C4::Context->dbh not set the RaiseError handle attribute |
51 |
# we are letting C4::Context->dbh not set the RaiseError handle attribute |
52 |
- |
|
|