BUGfixing authorities editor

[koha_gimpoz] / authorities / detail.pl

diff --git a/authorities/detail.pl b/authorities/detail.pl
index 592c26b..52df8dc 100755 (executable)
--- a/authorities/detail.pl
+++ b/authorities/detail.pl
@@ -356,7 +356,7 @@ sub build_tabs ($$$$$) {
     for ( my $tabloop = 0 ; $tabloop <= $max_num_tab ; $tabloop++ ) {
         my @loop_data = (); #innerloop in the template.
         my $i = 0;
-        foreach my $tag (@tab_data) {
+        foreach my $tag (sort @tab_data) {
             $i++;
             next if ! $tag;
             my $indicator;
@@ -423,8 +423,7 @@ sub build_tabs ($$$$$) {
                     innerloop => \@loop_data,
                 };
             }
-        }                    
-        warn Data::Dumper::Dumper(@BIG_LOOP);
+        }
         $template->param( singletab => (scalar(@BIG_LOOP)==1), BIG_LOOP => \@BIG_LOOP );
 }