remove trailing , in subject list

diff --git a/C4/Search.pm b/C4/Search.pm
index 2a91b3c..5a16a4e 100755 (executable)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1449,9 +1449,10 @@ sub bibdata {
     $sth   = $dbh->prepare($query);
     $sth->execute($bibnum);
     while (my $dat = $sth->fetchrow_hashref){
-        $data->{'subject'} .= " , $dat->{'subject'}";
+        $data->{'subject'} .= "$dat->{'subject'}, ";
     } # while
-
+       chop $data->{'subject'};
+       chop $data->{'subject'};
     $sth->finish;
     return($data);
 } # sub bibdata