- 'amount',
-
- #sub { $_[0]->pkgnum > 0
- # ? $_[0]->get('pkg')
- # : $_[0]->get('itemdesc')
- # },
- ##strikethrough or "N/A ($amount)" or something these when
- ## they're not applicable to pkg_tax search
- #sub { sprintf($money_char.'%.2f', shift->setup ) },
- #sub { sprintf($money_char.'%.2f', shift->recur ) },
- #'invnum',
- #sub { time2str('%b %d %Y', shift->_date ) },
+ sub { $money_char. $_[0]->amount; },
+
+ sub {
+ $_[0]->billpkgnum. ': '.
+ ( $_[0]->pkgnum > 0
+ ? $_[0]->get('pkg')
+ : $_[0]->get('itemdesc')
+ ).
+ ' ('.
+ ( $_[0]->setup > 0
+ ? $money_char. $_[0]->setup. ' setup'
+ : ''
+ ).
+ ( $_[0]->setup > 0 && $_[0]->recur > 0
+ ? ' / '
+ : ''
+ ).
+ ( $_[0]->recur > 0
+ ? $money_char. $_[0]->recur. ' recur'
+ : ''
+ ).
+ ')';
+ },
+
+ 'invnum',
+ sub { time2str('%b %d %Y', shift->_date ) },