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

(-)a/Koha/Schema.pm (-1 / +1 lines)
Lines 15-20 __PACKAGE__->load_namespaces; Link Here
15
# Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21
15
# Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21
16
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:oDUxXckmfk6H9YCjW8PZTw
16
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:oDUxXckmfk6H9YCjW8PZTw
17
17
18
__PACKAGE__->storage_type('Koha::Storage');
18
19
19
# You can replace this text with custom content, and it will be preserved on regeneration
20
1;
20
1;
(-)a/Koha/Storage.pm (+16 lines)
Line 0 Link Here
1
use utf8;
2
package Koha::Storage;
3
4
use strict;
5
use warnings;
6
7
use base 'DBIx::Class::Storage::DBI';
8
sub DESTROY {
9
    my $self = shift;
10
11
    # destroy just the object if not native to this process/thread
12
    $self->_preserve_foreign_dbh;
13
14
    $self->_dbh(undef);
15
}
16
1;
(-)a/t/db_dependent/Koha_Database.t (-2 / +3 lines)
Lines 4-10 Link Here
4
use Modern::Perl;
4
use Modern::Perl;
5
use utf8;
5
use utf8;
6
6
7
use Test::More tests => 10;
7
use Test::More tests => 11;
8
8
9
BEGIN {
9
BEGIN {
10
    use_ok('Koha::Database');
10
    use_ok('Koha::Database');
Lines 35-40 $schema->resultset('Category')->create({ Link Here
35
    categorycode => 'GIFT-RUS',
35
    categorycode => 'GIFT-RUS',
36
    description  => $gift,
36
    description  => $gift,
37
});
37
});
38
my $cat = $schema->resultset('Category')->find('GIFT-RUS');
39
ok( $cat, 'Found category with find' );
38
my $desc = $schema->resultset('Category')->search({
40
my $desc = $schema->resultset('Category')->search({
39
    categorycode => 'GIFT-RUS',
41
    categorycode => 'GIFT-RUS',
40
})->single->get_column('description');
42
})->single->get_column('description');
41
- 

Return to bug 12472