From 6f1ce35d6c153f0c298e7b371098be07df553ee5 Mon Sep 17 00:00:00 2001 From: Owen Leonard Date: Tue, 9 Sep 2008 15:21:07 -0500 Subject: [PATCH] Fix for Bug 2592, "hyphens being added to marc view isbn." Also removing truncation of subfield descriptions. Signed-off-by: Galen Charlton --- catalogue/MARCdetail.pl | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index 2cfc14bb52..1b4860a3c1 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -171,10 +171,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] } ->{hidden}==(-7|-4|-3|-2|2|3|5|8)); my %subfield_data; - $subfield_data{short_desc} = substr( - $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib}, - 0, 20 - ); + $subfield_data{short_desc} = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib}; $subfield_data{long_desc} = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib}; $subfield_data{link} = @@ -192,7 +189,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { { # warn " tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}. "ISBN : ".$subf[$i][1]."PosttraitementISBN :".DisplayISBN($subf[$i][1]); - $subfield_data{marc_value} = DisplayISBN( $subf[$i][1] ); + $subfield_data{marc_value} = $subf[$i][1]; } else { if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] } -- 2.11.0