diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-11-15 11:55:37 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-11-15 11:55:37 -0800 |
commit | 52606e395e99306e584e5ae459375a33752c231e (patch) | |
tree | 7cf6936d67787f80be3c81dd14d30ce993ed7b32 /FS/FS/part_export | |
parent | 6137f629b4e489bbc195ad8c8029549c1d57b980 (diff) |
fix legacy link (fallout from RT#22596)
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/shellcommands.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm index ce1369510..f7e86514b 100644 --- a/FS/FS/part_export/shellcommands.pm +++ b/FS/FS/part_export/shellcommands.pm @@ -267,17 +267,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 - resume cancel uncancel expore contract_end ); + resume cancel uncancel expire contract_end ); 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) { - ${"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($_)); } } |