[Koha-cvs] CVS: koha search.pl,1.6.2.9,1.6.2.10

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	search.pl 
Log Message:
Fixed bug that broke searches with spaces in them.


Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.6.2.9
retrieving revision 1.6.2.10
diff -C2 -r1.6.2.9 -r1.6.2.10
*** search.pl	11 Jul 2002 18:05:28 -0000	1.6.2.9
--- search.pl	25 Jul 2002 04:05:59 -0000	1.6.2.10
***************
*** 192,196 ****
  	my $highlight=0;
  	($startfrom==($i-1)*10) && ($highlight=1);
! 	push @$numbers, { number => $i, highlight => $highlight , FORMINPUTS => $forminputs, startfrom => ($i-1)*10, opac => ($type eq 'opac') ? (1) : (0)};
      }
  }
--- 192,202 ----
  	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))};
      }
  }