[Koha-cvs] CVS: koha search.pl,1.6.2.12,1.6.2.13

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv14041

Modified Files:
      Tag: rel-1-2
        search.pl 
Log Message:
Limit the number of page index icons that are displayed to 15 maximum.


Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.6.2.12
retrieving revision 1.6.2.13
diff -C2 -r1.6.2.12 -r1.6.2.13
*** search.pl   18 Sep 2002 22:45:37 -0000      1.6.2.12
--- search.pl   2 Oct 2002 19:40:53 -0000       1.6.2.13
***************
*** 191,204 ****
  if ($count>10) {
      for (my $i=1; $i<$count/10+1; $i++) {
!     ($title) && (push @$forminputs, { line => "title=$title"});
!       my $highlight=0;
!       ($startfrom==($i-1)*10) && ($highlight=1);
!       my $formelements='';
!       foreach (@$forminputs) {
!           my $line=$_->{line};
!           $formelements.="$line&";
        }
-       $formelements=~s/ /+/g;
-       push @$numbers, { number => $i, highlight => $highlight , FORMELEMENTS 
=> $formelements, FORMINPUTS => $forminputs, startfrom => ($i-1)*10, opac => 
(($type eq 'opac') ? (1) : (0))};
      }
  }
--- 191,206 ----
  if ($count>10) {
      for (my $i=1; $i<$count/10+1; $i++) {
!       if ($i<16) {
!           ($title) && (push @$forminputs, { line => "title=$title"});
!           my $highlight=0;
!           ($startfrom==($i-1)*10) && ($highlight=1);
!           my $formelements='';
!           foreach (@$forminputs) {
!               my $line=$_->{line};
!               $formelements.="$line&";
!           }
!           $formelements=~s/ /+/g;
!           push @$numbers, { number => $i, highlight => $highlight , 
FORMELEMENTS => $formelements, FORMINPUTS => $forminputs, startfrom => 
($i-1)*10, opac => (($type eq 'opac') ? (1) : (0))};
        }
      }
  }