[Koha-cvs] CVS: koha/search.marc search.pl,1.4,1.5

[Ambrose Li]

Update of /cvsroot/koha/koha/search.marc
In directory sc8-pr-cvs1:/tmp/cvs-serv382/search.marc

Modified Files:
        search.pl 
Log Message:
Minor visual tweaks
Noted correct tab size


Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.marc/search.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** search.pl   3 Feb 2003 18:46:04 -0000       1.4
--- search.pl   6 Feb 2003 07:05:51 -0000       1.5
***************
*** 1,3 ****
--- 1,4 ----
  #!/usr/bin/perl
+ # WARNING: 4-character tab stops here
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 90,100 ****
        my @marcarray;
        push @marcarray,"";
!       for (my $tabloop = 0; $tabloop<=9;$tabloop++) {
!       push @marcarray,"--------------------------------------- $tabloop 
---------------------------------------";
!               foreach my $tag (sort(keys (%{$tagslib}))) {
!                       foreach my $subfield (sort(keys %{$tagslib->{$tag}})) {
!                               next if subfield_is_koha_internal_p($subfield);
!                               next unless 
($tagslib->{$tag}->{$subfield}->{tab} eq $tabloop);
!                               push @marcarray, "$tag$subfield - 
$tagslib->{$tag}->{$subfield}->{lib}";
                        }
                }
--- 91,116 ----
        my @marcarray;
        push @marcarray,"";
!       my $widest_menu_item_width = 0;
!       for (my $pass = 1; $pass <= 2; $pass += 1) {
!               for (my $tabloop = 0; $tabloop<=9;$tabloop++) {
!                       my $separator_inserted_p = 0; # FIXME... should not 
use!!
!                       foreach my $tag (sort(keys (%{$tagslib}))) {
!                               foreach my $subfield (sort(keys 
%{$tagslib->{$tag}})) {
!                                       next if 
subfield_is_koha_internal_p($subfield);
!                                       next unless 
($tagslib->{$tag}->{$subfield}->{tab} eq $tabloop);
!                                       my $menu_item = "$tag$subfield - 
$tagslib->{$tag}->{$subfield}->{lib}";
!                                       if ($pass == 1) {
!                                               $widest_menu_item_width = 
length $menu_item
!                                                               if 
$widest_menu_item_width < length $menu_item;
!                                       } else {
!                                               if (!$separator_inserted_p) {
!                                                       my $w = 
int(($widest_menu_item_width - 3 + 0.5)/2);
!                                                       my $s = ('-' x ($w * 
4/5));
!                                                       push @marcarray,  "$s 
$tabloop $s";
!                                                       $separator_inserted_p = 
1;
!                                               }
!                                               push @marcarray, $menu_item;
!                                       }
!                               }
                        }
                }
***************
*** 110,111 ****
--- 126,132 ----
  # Print the page
  output_html_with_http_headers $query, $cookie, $template->output;
+ 
+ 
+ # Local Variables:
+ # tab-width: 4
+ # End: