diff options
author | Mark Wells <mark@freeside.biz> | 2014-12-05 18:21:48 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2014-12-05 18:21:48 -0800 |
commit | 0eedfd553057f9fd8d69197675f33dbc893e6c51 (patch) | |
tree | a0f0391e7435ffd44fe87aab4eaa68822eb07403 /FS/FS/cust_pkg | |
parent | 4f75a8cd92fad9dbe241e79c5e8a39fc5b89fe05 (diff) |
477 report: detect errors and fix them more easily, #32499, from #24047
Diffstat (limited to 'FS/FS/cust_pkg')
-rw-r--r-- | FS/FS/cust_pkg/Search.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/FS/FS/cust_pkg/Search.pm b/FS/FS/cust_pkg/Search.pm index aacd387..89809de 100644 --- a/FS/FS/cust_pkg/Search.pm +++ b/FS/FS/cust_pkg/Search.pm @@ -585,9 +585,8 @@ sub search { 'agentnum' => $agentnum, 'detail' => 1 ); - my $row = $report->[$rownum] + my $pkgnums = $report->{detail}->[$rownum] or die "row $rownum is past the end of the report"; - my $pkgnums = $row->[-1] || '0'; # '0' so that if there are no pkgnums (empty string) it will create # a valid query that returns nothing warn "PKGNUMS:\n$pkgnums\n\n"; # XXX debug |