|
Lines 1021-1026
subtest 'tests for GetMarcItem' => sub {
Link Here
|
| 1021 |
restricted => 1, |
1021 |
restricted => 1, |
| 1022 |
itemcallnumber => "", |
1022 |
itemcallnumber => "", |
| 1023 |
cn_sort => "", |
1023 |
cn_sort => "", |
|
|
1024 |
itype => 'itemtype' |
| 1024 |
} |
1025 |
} |
| 1025 |
}); |
1026 |
}); |
| 1026 |
my $get_itemnumber = $item1->itemnumber; |
1027 |
my $get_itemnumber = $item1->itemnumber; |
|
Lines 1067-1073
subtest 'tests for GetMarcItemFields' => sub {
Link Here
|
| 1067 |
withdrawn => 0, |
1068 |
withdrawn => 0, |
| 1068 |
} |
1069 |
} |
| 1069 |
}); |
1070 |
}); |
| 1070 |
push @items, GetItem( $item1->itemnumber ); |
1071 |
push @items, Koha::Items->find( $item1->itemnumber )->unblessed; |
| 1071 |
my $item2 = $builder->build_object({ |
1072 |
my $item2 = $builder->build_object({ |
| 1072 |
class => 'Koha::Items', |
1073 |
class => 'Koha::Items', |
| 1073 |
value => { |
1074 |
value => { |
|
Lines 1082-1088
subtest 'tests for GetMarcItemFields' => sub {
Link Here
|
| 1082 |
withdrawn => 0, |
1083 |
withdrawn => 0, |
| 1083 |
} |
1084 |
} |
| 1084 |
}); |
1085 |
}); |
| 1085 |
push @items, GetItem( $item2->itemnumber ); |
1086 |
push @items, Koha::Items->find( $item2->itemnumber )->unblessed; |
| 1086 |
my $item3 = $builder->build_object({ |
1087 |
my $item3 = $builder->build_object({ |
| 1087 |
class => 'Koha::Items', |
1088 |
class => 'Koha::Items', |
| 1088 |
value => { |
1089 |
value => { |
|
Lines 1097-1109
subtest 'tests for GetMarcItemFields' => sub {
Link Here
|
| 1097 |
withdrawn => 1, |
1098 |
withdrawn => 1, |
| 1098 |
} |
1099 |
} |
| 1099 |
}); |
1100 |
}); |
| 1100 |
push @items, GetItem( $item3->itemnumber ); |
1101 |
push @items, Koha::Items->find( $item3->itemnumber )->unblessed; |
| 1101 |
|
1102 |
|
| 1102 |
#Get the marc for our items individually for comparison later |
1103 |
#Get the marc for our items individually for comparison later |
| 1103 |
my $item1_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item1->itemnumber ); |
1104 |
my $item1_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item1->itemnumber ); |
| 1104 |
my $item2_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item2->itemnumber ); |
1105 |
my $item2_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item2->itemnumber ); |
| 1105 |
my $item3_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item3->itemnumber ); |
1106 |
my $item3_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item3->itemnumber ); |
| 1106 |
my ($itemtag, $item_num_subfield )=C4::Biblio::GetMarcFromKohaField("items.itemnumber"); #get itemnumber tag |
1107 |
my ($itemtag, $item_num_subfield ) = C4::Biblio::GetMarcFromKohaField("items.itemnumber"); #get itemnumber tag |
| 1107 |
$item1_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #and remove it |
1108 |
$item1_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #and remove it |
| 1108 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
1109 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
| 1109 |
|
1110 |
|
| 1110 |
- |
|
|