diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-04-29 21:01:40 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-04-29 21:01:40 -0700 |
commit | 884f9a3759cb4eff914a82f4317ce94f7371b020 (patch) | |
tree | a60cd8bd6b3342cde03130937e9103abffecaf57 /FS/FS/vend_bill_pay.pm | |
parent | 00013557f2aecf4422d7f09ddcf97eea9f2b0289 (diff) |
fix nascent vendor stuff for FKs
Diffstat (limited to 'FS/FS/vend_bill_pay.pm')
-rw-r--r-- | FS/FS/vend_bill_pay.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/FS/vend_bill_pay.pm b/FS/FS/vend_bill_pay.pm index 165193f..9277ad9 100644 --- a/FS/FS/vend_bill_pay.pm +++ b/FS/FS/vend_bill_pay.pm @@ -83,6 +83,12 @@ sub delete { local $FS::UID::AutoCommit = 0; my $dbh = dbh; + my $error = $self->SUPER::delete; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return $error; + } + #magically auto-deleting for the simple case foreach my $vend_pay ( $self->vend_pay ) { my $error = $vend_pay->delete; @@ -92,12 +98,6 @@ sub delete { } } - my $error = $self->SUPER::delete; - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return $error; - } - $dbh->commit or die $dbh->errstr if $oldAutoCommit; ''; |