Attachment #49665 for bug #15562

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




use Modern::Perl;
use Carp;
use C4::Context;
use Koha::Schema;
use base qw(Class::Accessor);

use vars qw($database);

# returns it.
sub _new_schema {

    require Koha::Schema;

    my $context = C4::Context->new();

    my $db_driver = $context->{db_driver};
- 

Return to bug 15562

Lines 35-40 Koha::Database Link Here

(-)a/Koha/Database.pm (-3 / +1 lines)
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	-