[Koha-cvs] CVS: koha/C4 Search.pm,1.78,1.79

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv11180/C4

Modified Files:
        Search.pm 
Log Message:
remove trailing , in subject list

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.78
retrieving revision 1.79
diff -C2 -r1.78 -r1.79
*** Search.pm   12 Sep 2003 00:46:21 -0000      1.78
--- Search.pm   17 Sep 2003 10:20:12 -0000      1.79
***************
*** 1450,1456 ****
      $sth->execute($bibnum);
      while (my $dat = $sth->fetchrow_hashref){
!         $data->{'subject'} .= " , $dat->{'subject'}";
      } # while
! 
      $sth->finish;
      return($data);
--- 1450,1457 ----
      $sth->execute($bibnum);
      while (my $dat = $sth->fetchrow_hashref){
!         $data->{'subject'} .= "$dat->{'subject'}, ";
      } # while
!       chop $data->{'subject'};
!       chop $data->{'subject'};
      $sth->finish;
      return($data);