From 45414c767b295a8d35fcf99df6d0bdacd730d023 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 17 Sep 2003 10:20:12 +0000
Subject: [PATCH] remove trailing , in subject list

---
 C4/Search.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 2a91b3ccfc..5a16a4e85e 100755
--- 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
-- 
2.39.5