my ($self, $svc) = @_;
my $result = $self->request_user_edit(
'Add' => 1,
$self->svc_acct_params($svc),
my ($self, $svc) = @_;
my $result = $self->request_user_edit(
'Add' => 1,
$self->svc_acct_params($svc),
my ($self, $new, $old) = @_;
if ($new->email ne $old->email) {
return $old->export_delete || $new->export_insert;
}
my $Status = 0;
my ($self, $new, $old) = @_;
if ($new->email ne $old->email) {
return $old->export_delete || $new->export_insert;
}
my $Status = 0;
$self->request_user_edit(
'Page' => 'UserEdit',
'Modify' => 1,
'UserID' => $old->email,
$self->svc_acct_params($new),
$self->request_user_edit(
'Page' => 'UserEdit',
'Modify' => 1,
'UserID' => $old->email,
$self->svc_acct_params($new),
(
'db_Users.UserID' => $svc->email,
$self->password_params($svc),
(
'db_Users.UserID' => $svc->email,
$self->password_params($svc),
'db_$D$Users.StartDate' => $setup_date,
'db_$D$Users.UserExpiryDate' => $expire_date,
'db_$RS$Users.GroupName' => $self->option('group'),
'db_$D$Users.StartDate' => $setup_date,
'db_$D$Users.UserExpiryDate' => $expire_date,
'db_$RS$Users.GroupName' => $self->option('group'),