diff options
Diffstat (limited to 'LedgerSMB/Batch.pm')
| -rw-r--r-- | LedgerSMB/Batch.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm index 1e6b320e..19cb656e 100644 --- a/LedgerSMB/Batch.pm +++ b/LedgerSMB/Batch.pm @@ -6,7 +6,8 @@ use base qw(LedgerSMB::DBObject); sub create { $self = shift @_; my ($ref) = $self->exec_method(funcname => 'batch_create'); - $self->{id} = $ref->{id} + print STDERR "$ref, $ref->{batch_create}, " . join (':', keys %$ref); + $self->{id} = $ref->{batch_create}; return $ref->{id}; } |