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