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 @svcparts = map { $_->svcpart } $export->export_svc;
+
my @svc_acct =
- map { qsearchs{'svc_acct', { 'svcnum' => $_->svcnum } ) }
- qsearch('cust_svc', { 'svcpart' => $export->part_svc->svcpart } );
+ map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
+ map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
+ grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
+ $export->export_svc;
+
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;
}
}
sub usage {
- #die "Usage:\n\n icradius_reset user machine\n";
- die "Usage:\n\n icradius_reset user\n";
+ #die "Usage:\n\n sqlradius_reset user machine\n";
+ die "Usage:\n\n sqlradius_reset user\n";
}