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