sub export_replace {
my ($self, $new, $old) = @_;
- if ($new->username ne $old->username) {
+ if ($new->email ne $old->email) {
return $old->export_delete || $new->export_insert;
}
my $UserLockout = 0;
$self->request_user_edit(
'Page' => 'UserEdit',
'Modify' => 1,
- 'UserID' => $old->username,
+ 'UserID' => $old->email,
$self->svc_acct_params($new),
UserLockout => $UserLockout,
);
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
- 'UserID' => $svc->username,
+ 'UserID' => $svc->email,
'UserLockout' => 1,
);
}
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
- 'UserID' => $svc->username,
+ 'UserID' => $svc->email,
'UserLockout' => 0,
);
}
my ($self, $svc) = @_;
$self->request_user_edit(
'ConfirmDelete' => 1,
- ('$Checked$' . $svc->username) => 1,
+ ('$Checked$' . $svc->email) => 1,
);
}
my $expire_date = $pkg->expire ? time2str('D%Y-%m-%d', $pkg->expire) : '';
(
- 'db_Users.UserID' => $svc->username,
+ 'db_Users.UserID' => $svc->email,
$self->password_params($svc),
'db_$N$Users.Status' => 0, # we suspend using UserLockout
'db_$D$Users.StartDate' => $setup_date,