X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=cataloguing%2Fvalue_builder%2Funimarc_field_126a.pl;fp=cataloguing%2Fvalue_builder%2Funimarc_field_126a.pl;h=e3d47b55f2ecf5a8dc6900b8ba36f146dc79e7ee;hb=0d480bbf5cd7c392c1937fe29c7f7bd4e5fe3fc8;hp=2f85f9e4071210a3383d8a998fa54ef93d9d6882;hpb=7244d5060be46f0b7154b897d28997970774957d;p=koha.git diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl index 2f85f9e407..e3d47b55f2 100755 --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ b/cataloguing/value_builder/unimarc_field_126a.pl @@ -60,6 +60,14 @@ function Clic$function_name(i) { return ($function_name,$res); } + +sub wrapper { + my ($char) = @_; + return "space" if $char eq " "; + return "pipe" if $char eq "|"; + return $char; +} + sub plugin { my ($input) = @_; my $index= $input->param('index'); @@ -83,12 +91,12 @@ my ($template, $loggedinuser, $cookie) my $f5 = substr($result,4,1); my $f6 = substr($result,5,1); my $f7 = substr($result,6,1); - my $f8 = substr($result,7,1); - my $f9 = substr($result,8,1); - my $f10 = substr($result,9,1); - my $f11 = substr($result,10,1); - my $f12 = substr($result,11,1); - my $f13 = substr($result,12,1); + my $f8 = substr($result,7,1); $f8 = wrapper( $f8 ) if $f8; + my $f9 = substr($result,8,1); $f9 = wrapper( $f9 ) if $f9; + my $f10 = substr($result,9,1); $f10 = wrapper( $f10 ) if $f10; + my $f11 = substr($result,10,1); $f11 = wrapper( $f11 ) if $f11; + my $f12 = substr($result,11,1); $f12 = wrapper( $f12 ) if $f12; + my $f13 = substr($result,12,1); $f13 = wrapper( $f13 ) if $f13; my $f14 = substr($result,13,1); my $f15 = substr($result,14,1); $template->param(index => $index,