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 = $dbh->prepare($query);
|
||||||
$sth->execute($bibnum);
|
$sth->execute($bibnum);
|
||||||
while (my $dat = $sth->fetchrow_hashref){
|
while (my $dat = $sth->fetchrow_hashref){
|
||||||
$data->{'subject'} .= " , $dat->{'subject'}";
|
$data->{'subject'} .= "$dat->{'subject'}, ";
|
||||||
} # while
|
} # while
|
||||||
|
chop $data->{'subject'};
|
||||||
|
chop $data->{'subject'};
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
return($data);
|
return($data);
|
||||||
} # sub bibdata
|
} # sub bibdata
|
||||||
|
|
Loading…
Reference in a new issue