+my $discounts = {};
+my $discount_labelsub = sub {
+ my($item, $label) = @_;
+ my $dnum = $item->discountnum;
+ $discounts->{$dnum} ||= qsearchs({
+ 'table'=>'discount',
+ 'hashref'=>{'discountnum'=>$dnum}
+ });
+ my $d = $discounts->{$dnum};
+ $label . ': <b>' . encode_entities($d->description_short) . '<b>';
+};
+