remove trailing , in subject list

This commit is contained in:
tipaul 2003-09-17 10:20:12 +00:00
parent cb3bb31ecd
commit 45414c767b

View file

@ -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