diff options
| author | Mark Wells <mark@freeside.biz> | 2014-03-20 11:52:28 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2014-03-20 11:52:28 -0700 |
| commit | ffa69be333d69d99fb10232f3ee3a5847b6e9d93 (patch) | |
| tree | 11586ed9a48599e1eb5dfcdef5270f46a5d39371 | |
| parent | 56edd581cc007c2c94fba2d81ce2d4829355df1f (diff) | |
when enumerating the subsets of a set, include the null set, #27973
| -rw-r--r-- | FS/FS/part_pkg_report_option.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/FS/FS/part_pkg_report_option.pm b/FS/FS/part_pkg_report_option.pm index 372b11930..e3c353a2c 100644 --- a/FS/FS/part_pkg_report_option.pm +++ b/FS/FS/part_pkg_report_option.pm @@ -146,9 +146,13 @@ sub subsets { or die $dbh->errstr; # seriously, this should never happen $sth->execute or die $sth->errstr; - # return the first (only) column - map { [ split(',',$_->[0]) ], - [ split(',',$_->[1]) ] } @{ $sth->fetchall_arrayref }; + # return a pair of entries for the null set (conventionally we use zero + # for that) + ( [ 0 ], [ '(empty class)' ], + # followed by the first two columns: report class numbers and names + map { [ split(',',$_->[0]) ], + [ split(',',$_->[1]) ] } @{ $sth->fetchall_arrayref } + ); } =back |