projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
eliminate some false laziness in FS::Misc::send_email vs. msg_template/email.pm send_...
[freeside.git]
/
FS
/
FS
/
part_export
/
a2billing.pm
diff --git
a/FS/FS/part_export/a2billing.pm
b/FS/FS/part_export/a2billing.pm
index
15410ae
..
f636654
100644
(file)
--- a/
FS/FS/part_export/a2billing.pm
+++ b/
FS/FS/part_export/a2billing.pm
@@
-11,6
+11,7
@@
use FS::svc_phone;
use Locale::Country qw(country_code2code);
use Date::Format qw(time2str);
use Carp qw( cluck );
use Locale::Country qw(country_code2code);
use Date::Format qw(time2str);
use Carp qw( cluck );
+use FS::DBI;
@ISA = qw(FS::part_export);
@ISA = qw(FS::part_export);
@@
-55,11
+56,11
@@
END
sub dbh {
my $self = shift;
sub dbh {
my $self = shift;
- $self->{dbh} ||= DBI->connect(
+ $self->{dbh} ||=
FS::
DBI->connect(
$self->option('datasrc'),
$self->option('username'),
$self->option('password')
$self->option('datasrc'),
$self->option('username'),
$self->option('password')
- ) or die $DBI::errstr;
+ ) or die $
FS::
DBI::errstr;
$self->{dbh}->trace(1, '%%%FREESIDE_LOG%%%/a2b_exportlog.'.$self->exportnum)
if $DEBUG;
$self->{dbh}->trace(1, '%%%FREESIDE_LOG%%%/a2b_exportlog.'.$self->exportnum)
if $DEBUG;
@@
-105,7
+106,7
@@
sub replace {
'';
}
'';
}
-sub export_insert {
+sub
_
export_insert {
my $self = shift;
my $svc = shift;
my $cust_pkg = $svc->cust_svc->cust_pkg;
my $self = shift;
my $svc = shift;
my $cust_pkg = $svc->cust_svc->cust_pkg;
@@
-290,7
+291,7
@@
sub export_insert {
'';
}
'';
}
-sub export_delete {
+sub
_
export_delete {
my $self = shift;
my $svc = shift;
my $self = shift;
my $svc = shift;
@@
-376,7
+377,7
@@
sub export_delete {
'';
}
'';
}
-sub export_replace {
+sub
_
export_replace {
my $self = shift;
my $new = shift;
my $old = shift || $self->replace_old;
my $self = shift;
my $new = shift;
my $old = shift || $self->replace_old;
@@
-421,7
+422,7
@@
sub export_replace {
'';
}
'';
}
-sub export_suspend {
+sub
_
export_suspend {
my $self = shift;
my $svc = shift;
my $self = shift;
my $svc = shift;
@@
-446,7
+447,7
@@
sub export_suspend {
$error || '';
}
$error || '';
}
-sub export_unsuspend {
+sub
_
export_unsuspend {
my $self = shift;
my $svc = shift;
my $self = shift;
my $svc = shift;