use strict;
use FS::UID qw(adminsuidsetup);
+use FS::Record qw(qsearch qsearchs);
use FS::part_export;
+use FS::svc_acct;
+use FS::cust_svc;
my $user = shift or die &usage;
adminsuidsetup $user;
foreach my $export ( @exports ) {
my @svc_acct =
- map { qsearchs{'svc_acct', { 'svcnum' => $_->svcnum } ) }
+ map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
qsearch('cust_svc', { 'svcpart' => $export->part_svc->svcpart } );
foreach my $svc_acct ( @svc_acct ) {
- #flase laziness with FS::svc_acct::insert (like it matters)
- my $error = $part_export->export_insert($self);
- if ( $error ) {
- $dbh->rollback if $oldAutoCommit;
- return "exporting to ". $part_export->exporttype.
- " (transaction rolled back): $error";
- }
+ #false laziness with FS::svc_acct::insert (like it matters)
+ my $error = $export->export_insert($svc_acct);
+ die $error if $error;
}
}