Bug 12424 - ddc sorting of call numbers truncates long Cutter parts

[srvgit] / catalogue / MARCdetail.pl

diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
index 3c7b276..5eb50e5 100755 (executable)
--- a/catalogue/MARCdetail.pl
+++ b/catalogue/MARCdetail.pl
@@ -33,7 +33,7 @@ This script needs a biblionumber as parameter
 It shows the biblio in a (nice) MARC format depending on MARC
 parameters tables.
 
-The template is in <templates_dir>/catalogue/MARCdetail.tmpl.
+The template is in <templates_dir>/catalogue/MARCdetail.tt.
 this template must be divided into 11 "tabs".
 
 The first 10 tabs present the biblio, the 11th one presents
@@ -73,7 +73,7 @@ my $subscriptionid = $query->param('subscriptionid');
 # open template
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
-        template_name   => "catalogue/MARCdetail.tmpl",
+        template_name   => "catalogue/MARCdetail.tt",
         query           => $query,
         type            => "intranet",
         authnotrequired => 0,
@@ -150,7 +150,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
         push( @subfields_data, \%subfield_data );
         my %tag_data;
         $tag_data{tag} = '000';
-       $tag_data{tag_desc} = $tagslib->{'000'}->{lib};
+        $tag_data{tag_desc} = $tagslib->{'000'}->{lib};
         my @tmp = @subfields_data;
         $tag_data{subfield} = \@tmp;
         push( @loop_data, \%tag_data );
@@ -238,8 +238,8 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
                 }
                 else {
                     $tag_data{tag} = $fields[$x_i]->tag();
-                   $tag_data{tag_ind} = C4::Koha::display_marc_indicators($fields[$x_i]);
-                   $tag_data{tag_desc} = $tagslib->{ $fields[$x_i]->tag() }->{lib};
+            $tag_data{tag_ind} = C4::Koha::display_marc_indicators($fields[$x_i]);
+            $tag_data{tag_desc} = $tagslib->{ $fields[$x_i]->tag() }->{lib};
                 }
             }
             my @tmp = @subfields_data;