'';
}
-sub export_insert {
+sub _export_insert {
my $self = shift;
my $svc = shift;
my $cust_pkg = $svc->cust_svc->cust_pkg;
'';
}
-sub export_delete {
+sub _export_delete {
my $self = shift;
my $svc = shift;
'';
}
-sub export_replace {
+sub _export_replace {
my $self = shift;
my $new = shift;
my $old = shift || $self->replace_old;
'';
}
-sub export_suspend {
+sub _export_suspend {
my $self = shift;
my $svc = shift;
$error || '';
}
-sub export_unsuspend {
+sub _export_unsuspend {
my $self = shift;
my $svc = shift;
return;
}
-sub export_insert {
+sub _export_insert {
my $self = shift;
my $new = shift;
my $app = $self->app;
}
}
-sub export_delete {
+sub _export_delete {
my $self = shift;
my $old = shift;
my $app = $self->app;
}
}
-sub export_replace {
+sub _export_replace {
my $self = shift;
my ($new, $old) = @_;
my $app = $self->app;
}
}
-sub export_suspend {
+sub _export_suspend {
my $self = shift;
my $svc = shift;
my $unsuspend = shift || 0;
return;
}
-sub export_unsuspend {
+sub _export_unsuspend {
my ($self, $svc) = @_;
$self->export_suspend($svc, 1);
}
'
);
-sub export_insert {
+sub _export_insert {
my ($self, $svc) = @_;
my $result = $self->request_user_edit(
'Add' => 1,
$result;
}
-sub export_replace {
+sub _export_replace {
my ($self, $new, $old) = @_;
if ($new->email ne $old->email) {
return $old->export_delete || $new->export_insert;
);
}
-sub export_suspend {
+sub _export_suspend {
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
);
}
-sub export_unsuspend {
+sub _export_unsuspend {
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
);
}
-sub export_delete {
+sub _export_delete {
my ($self, $svc) = @_;
$self->request_user_edit(
'ConfirmDelete' => 1,
END
);
-sub export_insert {
+sub _export_insert {
my($self, $svc_phone) = (shift, shift);
local $SIG{__DIE__};
try {
};
}
-sub export_replace {
+sub _export_replace {
my ($self, $new, $old) = @_;
# we only export the IP address and the phone number,
# neither of which we can change in place.
'';
}
-sub export_delete {
+sub _export_delete {
my ($self, $svc_phone) = (shift, shift);
local $SIG{__DIE__};
try {
=cut
-sub export_insert {
+sub _export_insert {
my $self = shift;
my $svc_broadband = shift;
my %hash = (
return;
}
-sub export_delete {
+sub _export_delete {
my $self = shift;
my $svc_broadband = shift;
my $svcnum = $svc_broadband->svcnum;
return;
}
-sub export_replace {
+sub _export_replace {
my $self = shift;
my ($new_svc, $old_svc) = (shift, shift);
END
);
-sub export_insert {
+sub _export_insert {
my $self = shift;
$self->export_command('insert', @_);
}
-sub export_delete {
+sub _export_delete {
my $self = shift;
$self->export_command('delete', @_);
}
-sub export_replace {
+sub _export_replace {
my $self = shift;
$self->export_command('replace', @_);
}
-sub export_suspend {
+sub _export_suspend {
my $self = shift;
$self->export_command('suspend', @_);
}
-sub export_unsuspend {
+sub _export_unsuspend {
my $self = shift;
$self->export_command('unsuspend', @_);
}
return $self->get('client');
}
-sub export_insert {
+sub _export_insert {
my( $self, $svc_phone ) = (shift, shift);
my %location_hash = $svc_phone->location_hash;
'';
}
-sub export_replace {
+sub _export_replace {
my( $self, $new, $old ) = (shift, shift, shift);
# except when changing the phone number, exactly like export_insert;
$self->export_insert($new);
}
-sub export_delete {
+sub _export_delete {
my ($self, $svc_phone) = (shift, shift);
if ($self->option('debug')) {
'';
}
-sub export_insert {
+sub _export_insert {
my($self, $svc_x) = (shift, shift);
my $error = $self->check_svc($svc_x);
}
}
-sub export_replace {
+sub _export_replace {
my ($self, $svc_new, $svc_old) = @_;
my $error = $self->check_svc($svc_new);
}
}
-sub export_delete {
+sub _export_delete {
my ($self, $svc_x) = (shift, shift);
my $role = $self->svc_role($svc_x)
END
);
-sub export_insert {
+sub _export_insert {
my($self, $svc_x) = (shift, shift);
my $role = $self->svc_role($svc_x);
'';
}
-sub export_replace {
+sub _export_replace {
my ($self, $svc_new, $svc_old) = @_;
my $role = $self->svc_role($svc_new);
my $error;
'';
}
-sub export_delete {
+sub _export_delete {
my ($self, $svc_x) = (shift, shift);
my $role = $self->svc_role($svc_x);
if ( $role eq 'subacct' ) {
'';
}
-sub export_suspend {
+sub _export_suspend {
my $self = shift;
my $svc_x = shift;
my $role = $self->svc_role($svc_x);
'';
}
-sub export_unsuspend {
+sub _export_unsuspend {
my $self = shift;
my $svc_x = shift;
my $role = $self->svc_role($svc_x);