X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg_report_option.pm;h=e3c353a2cdd4499a44cfb3e67e19d66d89f9c502;hp=372b119305f6afba1b23f1808d1dbe13a2346b57;hb=20f03d52cc6c930f610c0b4466eeeeda54fdbb40;hpb=0a160304352bc27dde67f55e03e0069f7716ad95 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