diff options
author | jeff <jeff> | 2008-07-01 05:03:42 +0000 |
---|---|---|
committer | jeff <jeff> | 2008-07-01 05:03:42 +0000 |
commit | 7905f5dfd903529a6de89875e6fae74638a89aa3 (patch) | |
tree | c0b2127274371c3eb040dd0fc3d9e58e0fa11627 /FS/FS/part_export/shellcommands.pm | |
parent | 3b268aa232236ad064c7b3f47a6a0a242e395bdf (diff) |
correct internal reason searching, prevent interleaved suspend/cancel/expire/adjourn, backporting and refactoring
Diffstat (limited to 'FS/FS/part_export/shellcommands.pm')
-rw-r--r-- | FS/FS/part_export/shellcommands.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm index 29e0a57..c55fa36 100644 --- a/FS/FS/part_export/shellcommands.pm +++ b/FS/FS/part_export/shellcommands.pm @@ -255,7 +255,9 @@ sub _export_command { @radius_groups = $svc_acct->radius_groups; my ($reasonnum, $reasontext, $reasontypenum, $reasontypetext); - if ( $cust_pkg && $action eq 'suspend' && (my $r = $cust_pkg->last_reason) ) { + if ( $cust_pkg && $action eq 'suspend' && + (my $r = $cust_pkg->last_reason('susp')) ) + { $reasonnum = $r->reasonnum; $reasontext = $r->reason; $reasontypenum = $r->reason_type; |