diff options
| author | jeff <jeff> | 2007-06-05 15:07:28 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-06-05 15:07:28 +0000 |
| commit | 278929cadb65d4a2412c4e8ff9c32343d6df95f8 (patch) | |
| tree | a4da04835c9236b2ca81142b45dec423368cd2e0 | |
| parent | adc10f166cceda3ce7f21e9c513ed2f69749f29c (diff) | |
correct shorage of variables bound to prepared statement
| -rw-r--r-- | FS/FS/svc_acct.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 54e019e30..2e499c43d 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -1698,7 +1698,7 @@ sub set_usage { if (scalar(keys %handyhash)) { my $sth = $dbh->prepare( $sql ) or die "Error preparing $sql: ". $dbh->errstr; - my $rv = $sth->execute((grep{$_} values %handyhash), $self->svcnum); + my $rv = $sth->execute((values %handyhash), $self->svcnum); die "Error executing $sql: ". $sth->errstr unless defined($rv); die "Can't update usage for svcnum ". $self->svcnum |