|
Lines 435-441
sub GetMember {
Link Here
|
| 435 |
} |
435 |
} |
| 436 |
$debug && warn $select, " ",values %information; |
436 |
$debug && warn $select, " ",values %information; |
| 437 |
my $sth = $dbh->prepare("$select"); |
437 |
my $sth = $dbh->prepare("$select"); |
| 438 |
$sth->execute(map{$information{$_}} keys %information); |
438 |
$sth->execute(@values); |
| 439 |
my $data = $sth->fetchall_arrayref({}); |
439 |
my $data = $sth->fetchall_arrayref({}); |
| 440 |
#FIXME interface to this routine now allows generation of a result set |
440 |
#FIXME interface to this routine now allows generation of a result set |
| 441 |
#so whole array should be returned but bowhere in the current code expects this |
441 |
#so whole array should be returned but bowhere in the current code expects this |