Bug 29560: (follow-up) Clean up trailing comma
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
parent
8d118d80c9
commit
b665d57026
1 changed files with 2 additions and 2 deletions
|
@ -1848,7 +1848,7 @@ sub generate_marc_host_field {
|
||||||
|
|
||||||
# Control number
|
# Control number
|
||||||
if ( $host_field = $marc_host->field('001') ) {
|
if ( $host_field = $marc_host->field('001') ) {
|
||||||
$sfd{w} = $host_field->data(),;
|
$sfd{w} = $host_field->data();
|
||||||
}
|
}
|
||||||
|
|
||||||
# Control number identifier
|
# Control number identifier
|
||||||
|
@ -1923,7 +1923,7 @@ sub generate_marc_host_field {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if ( $host_field = $marc_host->field('001') ) {
|
if ( $host_field = $marc_host->field('001') ) {
|
||||||
$sfd{0} = $host_field->data(),;
|
$sfd{0} = $host_field->data();
|
||||||
}
|
}
|
||||||
$link_field = MARC::Field->new( 461, '0', ' ', %sfd );
|
$link_field = MARC::Field->new( 461, '0', ' ', %sfd );
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue