|
Lines 13-21
use C4::Items;
Link Here
|
| 13 |
use Koha::DateUtils; |
13 |
use Koha::DateUtils; |
| 14 |
use t::lib::TestBuilder; |
14 |
use t::lib::TestBuilder; |
| 15 |
|
15 |
|
|
|
16 |
my $schema = Koha::Database->new->schema; |
| 17 |
$schema->storage->txn_begin; |
| 16 |
my $dbh = C4::Context->dbh; |
18 |
my $dbh = C4::Context->dbh; |
| 17 |
$dbh->{AutoCommit} = 0; |
|
|
| 18 |
$dbh->{RaiseError} = 1; |
| 19 |
|
19 |
|
| 20 |
my $builder = t::lib::TestBuilder->new; |
20 |
my $builder = t::lib::TestBuilder->new; |
| 21 |
|
21 |
|
|
Lines 23-38
my $builder = t::lib::TestBuilder->new;
Link Here
|
| 23 |
my $library = $builder->build( { source => 'Branch' })->{branchcode}; |
23 |
my $library = $builder->build( { source => 'Branch' })->{branchcode}; |
| 24 |
my $library2 = $builder->build( { source => 'Branch' })->{branchcode}; |
24 |
my $library2 = $builder->build( { source => 'Branch' })->{branchcode}; |
| 25 |
|
25 |
|
|
|
26 |
my $frameworkcode = ''; # FIXME We do not want to insert the whole mapping, but we should use another frameworkcode |
| 26 |
$dbh->do(q| |
27 |
$dbh->do(q| |
| 27 |
DELETE FROM marc_subfield_structure |
28 |
DELETE FROM marc_subfield_structure |
| 28 |
WHERE kohafield = 'items.new_status' OR kohafield = 'items.stocknumber' |
29 |
WHERE ( kohafield = 'items.new_status' OR kohafield = 'items.stocknumber' ) |
| 29 |
|); |
30 |
AND frameworkcode = ? |
|
|
31 |
|, undef, $frameworkcode); |
| 30 |
|
32 |
|
| 31 |
my $new_tagfield = 'i'; |
33 |
my $new_tagfield = 'i'; |
| 32 |
$dbh->do(qq| |
34 |
$dbh->do(qq| |
| 33 |
INSERT INTO marc_subfield_structure(tagfield, tagsubfield, kohafield, frameworkcode) |
35 |
INSERT INTO marc_subfield_structure(tagfield, tagsubfield, kohafield, frameworkcode) |
| 34 |
VALUES ( 952, '$new_tagfield', 'items.new_status', '' ) |
36 |
VALUES ( 952, ?, 'items.new_status', ? ) |
| 35 |
|); |
37 |
|, undef, $new_tagfield, $frameworkcode); |
|
|
38 |
|
| 39 |
# Clear cache |
| 40 |
my $cache = Koha::Caches->get_instance(); |
| 41 |
$cache->clear_from_cache("MarcStructure-0-$frameworkcode"); |
| 42 |
$cache->clear_from_cache("MarcStructure-1-$frameworkcode"); |
| 43 |
$cache->clear_from_cache("default_value_for_mod_marc-$frameworkcode"); |
| 44 |
$cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); |
| 36 |
|
45 |
|
| 37 |
my $record = MARC::Record->new(); |
46 |
my $record = MARC::Record->new(); |
| 38 |
$record->append_fields( |
47 |
$record->append_fields( |
|
Lines 40-46
$record->append_fields(
Link Here
|
| 40 |
MARC::Field->new('245', ' ', ' ', a => 'Silence in the library'), |
49 |
MARC::Field->new('245', ' ', ' ', a => 'Silence in the library'), |
| 41 |
MARC::Field->new('942', ' ', ' ', c => 'ITEMTYPE_T'), |
50 |
MARC::Field->new('942', ' ', ' ', c => 'ITEMTYPE_T'), |
| 42 |
); |
51 |
); |
| 43 |
my ($biblionumber, undef) = C4::Biblio::AddBiblio($record, ''); |
52 |
my ($biblionumber, undef) = C4::Biblio::AddBiblio($record, $frameworkcode); |
| 44 |
|
53 |
|
| 45 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = C4::Items::AddItem( |
54 |
my ($item_bibnum, $item_bibitemnum, $itemnumber) = C4::Items::AddItem( |
| 46 |
{ |
55 |
{ |
|
Lines 55-61
my ($item_bibnum, $item_bibitemnum, $itemnumber) = C4::Items::AddItem(
Link Here
|
| 55 |
my $item = C4::Items::GetItem( $itemnumber ); |
64 |
my $item = C4::Items::GetItem( $itemnumber ); |
| 56 |
is ( $item->{new_status}, 'new_value', q|AddItem insert the 'new_status' field| ); |
65 |
is ( $item->{new_status}, 'new_value', q|AddItem insert the 'new_status' field| ); |
| 57 |
|
66 |
|
| 58 |
my ( $tagfield, undef ) = GetMarcFromKohaField('items.itemnumber', ''); |
67 |
my ( $tagfield, undef ) = GetMarcFromKohaField('items.itemnumber', $frameworkcode); |
| 59 |
my $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber ); |
68 |
my $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber ); |
| 60 |
is( $marc_item->subfield($tagfield, $new_tagfield), 'new_value', q|Koha mapping is correct|); |
69 |
is( $marc_item->subfield($tagfield, $new_tagfield), 'new_value', q|Koha mapping is correct|); |
| 61 |
|
70 |
|
|
Lines 288-290
C4::Items::ToggleNewStatus( { rules => \@rules } );
Link Here
|
| 288 |
|
297 |
|
| 289 |
$modified_item = C4::Items::GetItem( $itemnumber ); |
298 |
$modified_item = C4::Items::GetItem( $itemnumber ); |
| 290 |
is( $modified_item->{new_status}, 'another_new_updated_value', q|ToggleNewStatus: conditions on biblioitems|); |
299 |
is( $modified_item->{new_status}, 'another_new_updated_value', q|ToggleNewStatus: conditions on biblioitems|); |
| 291 |
- |
300 |
|
|
|
301 |
# Clear cache |
| 302 |
my $cache = Koha::Caches->get_instance(); |
| 303 |
$cache->clear_from_cache("MarcStructure-0-$frameworkcode"); |
| 304 |
$cache->clear_from_cache("MarcStructure-1-$frameworkcode"); |
| 305 |
$cache->clear_from_cache("default_value_for_mod_marc-$frameworkcode"); |
| 306 |
$cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); |