Bug 33419: (QA follow-up) Remove changes to basic_workflow.t

These are not needed: 942 and 200 have no subfields for
homebranch and holdingbranch.

The tests pass without these changes.

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Katrin Fischer 2023-05-02 22:48:09 +00:00 committed by Tomas Cohen Arazi
parent a6caabfd2b
commit 81f2ed7e39
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F

View file

@ -132,10 +132,6 @@ SKIP: {
my $itemtype = $sample_data->{itemtype};
my $homelibrary = $sample_data->{homelibrary};
my $currentlibrary = $sample_data->{currentlibrary};
my @biblionumbers;
for my $i ( 1 .. $number_of_biblios_to_insert ) {
my $biblio = MARC::Record->new();
@ -145,16 +141,12 @@ SKIP: {
MARC::Field->new('200', ' ', ' ', a => 'test biblio '.$i),
MARC::Field->new('200', ' ', ' ', f => 'test author '.$i),
MARC::Field->new('200', ' ', ' ', b => $itemtype->{itemtype}),
MARC::Field->new('200', ' ', ' ', c => $homelibrary->{homelibrary}),
MARC::Field->new('200', ' ', ' ', d => $currentlibrary->{currentlibrary}),
);
} else {
$biblio->append_fields(
MARC::Field->new('245', ' ', ' ', a => 'test biblio '.$i),
MARC::Field->new('100', ' ', ' ', a => 'test author '.$i),
MARC::Field->new('942', ' ', ' ', c => $itemtype->{itemtype}),
MARC::Field->new('942', ' ', ' ', b => $homelibrary->{homelibrary}),
MARC::Field->new('942', ' ', ' ', d => $currentlibrary->{currentlibrary}),
);
}
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');
@ -219,11 +211,6 @@ SKIP: {
) {
next; # auto-filled
}
elsif (
$id =~ m|^tag_952_subfield_a| # homelibrary
) {
elsif ( =~ m|^tag_952_subfield_b| # currentlibrary
) {
elsif (
$id =~ m|^tag_952_subfield_d| # dateaccessioned
) {