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

(-)a/t/db_dependent/Items.t (-5 / +5 lines)
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
- 

Return to bug 20664