From 8524d0290aba175884b3b1d470091b750a965080 Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Fri, 24 May 2013 14:38:10 +0300 Subject: [PATCH] Bug 10331 - Little errors in unimarc_field_4XX.pl (punctuation) --- cataloguing/value_builder/unimarc_field_4XX.pl | 14 ++++++++++---- 1 files changed, 10 insertions(+), 4 deletions(-) diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl index e390010..75f0e9f 100755 --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ b/cataloguing/value_builder/unimarc_field_4XX.pl @@ -116,16 +116,19 @@ sub plugin { $subfield_value_a .= " " . $marcrecord->subfield( '700', "d" ) if $marcrecord->subfield( '700', 'd' ); $subfield_value_a .= - " (" . $marcrecord->subfield( '700', 'c' ) . " - " + " (" . $marcrecord->subfield( '700', 'c' ) if $marcrecord->subfield( '700', 'c' ); + $subfield_value_a .= " ; " + if $marcrecord->subfield( '700', 'c' ) + and $marcrecord->subfield( '700', 'f' ); $subfield_value_a .= " (" if ( $marcrecord->subfield( '700', 'f' ) and not( $marcrecord->subfield( '700', 'c' ) ) ); $subfield_value_a .= $marcrecord->subfield( '700', 'f' ) if ( $marcrecord->subfield( '700', 'f' ) ); $subfield_value_a .= ")" - if ( $marcrecord->subfield( '701', 'f' ) - or $marcrecord->subfield( '701', 'c' ) ); + if ( $marcrecord->subfield( '700', 'f' ) + or $marcrecord->subfield( '700', 'c' ) ); } elsif ( $marcrecord->field('702') ) { $subfield_value_a = $marcrecord->subfield( '702', 'a' ); @@ -134,8 +137,11 @@ sub plugin { $subfield_value_a .= " " . $marcrecord->subfield( '702', 'd' ) if $marcrecord->subfield( '702', 'd' ); $subfield_value_a .= - " (" . $marcrecord->subfield( '702', 'c' ) . "; " + " (" . $marcrecord->subfield( '702', 'c' ) if $marcrecord->subfield( '702', 'c' ); + $subfield_value_a .= " ; " + if $marcrecord->subfield( '702', 'c' ) + and $marcrecord->subfield( '702', 'f' ); $subfield_value_a .= " (" if $marcrecord->subfield( '702', 'f' ) and not $marcrecord->subfield( '702', 'c' ); -- 1.7.2.5