[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))};
  	}
      }
  }