projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Email::Sender::Transport::SMTP::TLS no longer needed
[freeside.git]
/
FS
/
FS
/
part_export
/
aradial.pm
diff --git
a/FS/FS/part_export/aradial.pm
b/FS/FS/part_export/aradial.pm
index
c7356bf
..
c5c5545
100644
(file)
--- a/
FS/FS/part_export/aradial.pm
+++ b/
FS/FS/part_export/aradial.pm
@@
-41,7
+41,7
@@
service types, create another export instance.</p>
'
);
'
);
-sub export_insert {
+sub
_
export_insert {
my ($self, $svc) = @_;
my $result = $self->request_user_edit(
'Add' => 1,
my ($self, $svc) = @_;
my $result = $self->request_user_edit(
'Add' => 1,
@@
-54,7
+54,7
@@
sub export_insert {
$result;
}
$result;
}
-sub export_replace {
+sub
_
export_replace {
my ($self, $new, $old) = @_;
if ($new->email ne $old->email) {
return $old->export_delete || $new->export_insert;
my ($self, $new, $old) = @_;
if ($new->email ne $old->email) {
return $old->export_delete || $new->export_insert;
@@
-70,7
+70,7
@@
sub export_replace {
);
}
);
}
-sub export_suspend {
+sub
_
export_suspend {
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
@@
-79,7
+79,7
@@
sub export_suspend {
);
}
);
}
-sub export_unsuspend {
+sub
_
export_unsuspend {
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
my ($self, $svc) = @_;
$self->request_user_edit(
'Modify' => 1,
@@
-88,7
+88,7
@@
sub export_unsuspend {
);
}
);
}
-sub export_delete {
+sub
_
export_delete {
my ($self, $svc) = @_;
$self->request_user_edit(
'ConfirmDelete' => 1,
my ($self, $svc) = @_;
$self->request_user_edit(
'ConfirmDelete' => 1,