diff options
| -rwxr-xr-x | contrib/scripts/dbsep.cgi | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/contrib/scripts/dbsep.cgi b/contrib/scripts/dbsep.cgi index dd060f769..8010b21c3 100755 --- a/contrib/scripts/dbsep.cgi +++ b/contrib/scripts/dbsep.cgi @@ -57,7 +57,9 @@ if ($mode eq 'single') { $sth->execute() || throw_error("Invalid query: $sql"); $row = $sth->fetchrow_hashref(); foreach (keys %$row) { - push @answer, encode($_) . "=" . encode($row->{$_}); + foreach my $item (split /\;/, $row->{$_}) { + push @answer, encode($_) . "=" . encode($item); + } } $sth->finish(); $dbh->disconnect(); @@ -74,7 +76,9 @@ if ($mode eq 'single') { while (my $row = $sth->fetchrow_hashref()) { @answer = (); foreach (keys %$row) { - push @answer, encode($_) . "=" . encode($row->{$_}); + foreach my $item (split /\;/, $row->{$_}) { + push @answer, encode($_) . "=" . encode($item); + } } print join("&", @answer) . "\n"; } |