+ $old->usergroup( [ $old->radius_groups ] );
+ if ( $new->usergroup ) {
+ #(sorta) false laziness with FS::part_export::sqlradius::_export_replace
+ my @newgroups = @{$new->usergroup};
+ foreach my $oldgroup ( @{$old->usergroup} ) {
+ if ( grep { $oldgroup eq $_ } @newgroups ) {
+ @newgroups = grep { $oldgroup ne $_ } @newgroups;
+ next;
+ }
+ my $radius_usergroup = qsearchs('radius_usergroup', {
+ svcnum => $old->svcnum,
+ groupname => $oldgroup,
+ } );
+ my $error = $radius_usergroup->delete;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "error deleting radius_usergroup $oldgroup: $error";
+ }
+ }
+
+ foreach my $newgroup ( @newgroups ) {
+ my $radius_usergroup = new FS::radius_usergroup ( {
+ svcnum => $new->svcnum,
+ groupname => $newgroup,
+ } );
+ my $error = $radius_usergroup->insert;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "error adding radius_usergroup $newgroup: $error";
+ }
+ }
+
+ }
+
+ #new-style exports!
+ unless ( $noexport_hack ) {
+ foreach my $part_export ( $new->cust_svc->part_svc->part_export ) {
+ my $error = $part_export->export_replace($new,$old);
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "exporting to ". $part_export->exporttype.
+ " (transaction rolled back): $error";
+ }
+ }
+ }
+
+ #old-style exports
+
+ if ( $vpopdir ) {
+ my $cpassword = crypt(
+ $new->_password,$saltset[int(rand(64))].$saltset[int(rand(64))]
+ );
+
+ if ($old->username ne $new->username || $old->domain ne $new->domain ) {
+ my $queue = new FS::queue { 'job' => 'FS::svc_acct::vpopmail_delete' };
+ $error = $queue->insert( $old->username, $old->domain );
+ my $queue2 = new FS::queue { 'job' => 'FS::svc_acct::vpopmail_insert' };
+ $error = $queue2->insert( $new->username,
+ $cpassword,
+ $new->domain,
+ $vpopdir,
+ )
+ unless $error;
+ } elsif ($old->_password ne $new->_password) {
+ my $queue = new FS::queue { 'job' => 'FS::svc_acct::vpopmail_replace_password' };
+ $error = $queue->insert( $new->username, $cpassword, $new->domain );
+ }
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "queueing job (transaction rolled back): $error";
+ }