diff options
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/Batch.pm | 8 | ||||
| -rw-r--r-- | LedgerSMB/DBObject/Company.pm | 3 |
2 files changed, 11 insertions, 0 deletions
diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm index 67bc0ad9..a09031cd 100644 --- a/LedgerSMB/Batch.pm +++ b/LedgerSMB/Batch.pm @@ -31,13 +31,21 @@ sub get_search_results { sub post { my ($self) = @_; ($self->{post_return_ref}) = $self->exec_method(funcname => 'batch_post'); + $self->{dbh}->commit; return $self->{post_return_ref}; } sub delete { my ($self) = @_; ($self->{delete_ref}) = $self->exec_method(funcname => 'batch_delete'); + $self->{dbh}->commit; return $self->{delete_ref}; } +sub list_vouchers { + my ($self) = @_; + @{$self->{vouchers}} = $self->exec_method(funcname => 'voucher_list'); + return @{$self->{vouchers}}; +} + 1; diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm index 13b9ff65..0e56567b 100644 --- a/LedgerSMB/DBObject/Company.pm +++ b/LedgerSMB/DBObject/Company.pm @@ -14,8 +14,10 @@ sub set_entity_class { sub save { my $self = shift @_; $self->set_entity_class(); + $self->{threshold} = $self->parse_amount(amount => $self->{threshold}); my ($ref) = $self->exec_method(funcname => 'entity_credit_save'); $self->{entity_id} = $ref->{entity_credit_save}; + $self->{threshold} = $self->format_amount(amount => $self->{threshold}); $self->{dbh}->commit; } @@ -88,6 +90,7 @@ sub get { $self->set_entity_class(); my ($ref) = $self->exec_method(funcname => 'entity__retrieve_credit'); $self->merge($ref); + $self->{threshold} = $self->format_amount(amount => $self->{threshold}); $self->{name} = $self->{legal_name}; |