diff options
author | Mark Wells <mark@freeside.biz> | 2015-05-31 23:24:52 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-05-31 23:24:52 -0700 |
commit | 6bc36a712285e9616a00ae38b136d7b8cd6cb58f (patch) | |
tree | dd1b6d580ef4c28ac634766acfd5e690388b7c77 /FS/FS/phone_device.pm | |
parent | 09589754a8926ef064ea1d3d474a0fc3a8590101 (diff) |
BroadWorks export, phase 1, #25927
Diffstat (limited to 'FS/FS/phone_device.pm')
-rw-r--r-- | FS/FS/phone_device.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/FS/FS/phone_device.pm b/FS/FS/phone_device.pm index b891bb2..2afad91 100644 --- a/FS/FS/phone_device.pm +++ b/FS/FS/phone_device.pm @@ -90,12 +90,12 @@ sub insert { my $dbh = dbh; my $error = $self->SUPER::insert; + $error ||= $self->export('device_insert'); if ( $error ) { $dbh->rollback if $oldAutoCommit; return $error; } - $self->export('device_insert'); $dbh->commit or die $dbh->errstr if $oldAutoCommit; ''; @@ -122,9 +122,8 @@ sub delete { local $FS::UID::AutoCommit = 0; my $dbh = dbh; - $self->export('device_delete'); - my $error = $self->SUPER::delete; + my $error = $self->export('device_delete') || $self->SUPER::delete; if ( $error ) { $dbh->rollback if $oldAutoCommit; return $error; @@ -159,13 +158,13 @@ sub replace { local $FS::UID::AutoCommit = 0; my $dbh = dbh; - my $error = $new->SUPER::replace($old); + my $error = $new->SUPER::replace($old) + || $new->export('device_replace', $old); if ( $error ) { $dbh->rollback if $oldAutoCommit; return $error; } - $new->export('device_replace', $old); $dbh->commit or die $dbh->errstr if $oldAutoCommit; ''; |