@@ -, +, @@ --- .../value_builder/unimarc_leader_authorities.pl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) --- a/cataloguing/value_builder/unimarc_leader_authorities.pl +++ a/cataloguing/value_builder/unimarc_leader_authorities.pl @@ -68,18 +68,17 @@ sub plugin { ); $result = " nz a22 3 4500" unless $result; - - my $f5 = substr( $result, 5, 1 ); $f5 = wrapper( $f5 ) if $f5; - my $f6 = substr( $result, 6, 1 ); $f6 = wrapper( $f6 ) if $f6; - my $f9 = substr( $result, 9, 1 ); $f9 = wrapper( $f9 ) if $f9; - my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17; + my $f5 = substr( $result, 5, 1 ); $f5 = wrapper( $f5 ) if $f5; + my $f6 = substr( $result, 6, 1 ); $f6 = wrapper( $f6 ) if $f6; + my $f9 = substr( $result, 9, 1 ); $f9 = wrapper( $f9 ) if $f9; + my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17; $template->param( index => $index, "f5$f5" => 1, "f6$f6" => 1, "f9$f9" => 1, - "f17$f17" => 1, + "f17$f17" => 1, ); output_html_with_http_headers $input, $cookie, $template->output; } --