projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e6bf8a2
)
fix legacy link (fallout from RT#22596)
author
Ivan Kohler
<ivan@freeside.biz>
Fri, 15 Nov 2013 19:55:44 +0000
(11:55 -0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Fri, 15 Nov 2013 19:55:44 +0000
(11:55 -0800)
FS/FS/part_export/shellcommands.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/shellcommands.pm
b/FS/FS/part_export/shellcommands.pm
index
15a4d5f
..
e32315f
100644
(file)
--- a/
FS/FS/part_export/shellcommands.pm
+++ b/
FS/FS/part_export/shellcommands.pm
@@
-284,17
+284,19
@@
sub export_pkg_change {
my @fields = qw( pkgnum pkgpart agent_pkgid ); #others?
my @date_fields = qw( order_date start_date setup bill last_bill susp adjourn
my @fields = qw( pkgnum pkgpart agent_pkgid ); #others?
my @date_fields = qw( order_date start_date setup bill last_bill susp adjourn
- resume cancel uncancel exp
o
re contract_end );
+ resume cancel uncancel exp
i
re contract_end );
no strict 'vars';
{
no strict 'refs';
foreach (@fields) {
no strict 'vars';
{
no strict 'refs';
foreach (@fields) {
- ${"old_$_"} = $old_cust_pkg
->getfield($_)
;
+ ${"old_$_"} = $old_cust_pkg
? $old_cust_pkg->getfield($_) : ''
;
${"new_$_"} = $new_cust_pkg->getfield($_);
}
foreach (@date_fields) {
${"new_$_"} = $new_cust_pkg->getfield($_);
}
foreach (@date_fields) {
- ${"old_$_"} = time2str('%Y-%m-%d', $old_cust_pkg->getfield($_));
+ ${"old_$_"} = $old_cust_pkg
+ ? time2str('%Y-%m-%d', $old_cust_pkg->getfield($_))
+ : '';
${"new_$_"} = time2str('%Y-%m-%d', $new_cust_pkg->getfield($_));
}
}
${"new_$_"} = time2str('%Y-%m-%d', $new_cust_pkg->getfield($_));
}
}