remove trailing , in subject list
This commit is contained in:
parent
cb3bb31ecd
commit
45414c767b
1 changed files with 3 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue