my $discounts = {};
my $discount_descripsub = sub {
my($item) = @_;
+ die "Could not find part_pkg for pkgpart " . $item->pkgpart
+ unless $item->part_pkg;
$pkgpart{$item->pkgpart} ||= $item->part_pkg->pkg;
my $dnum = $item->discountnum;
$discounts->{$dnum} ||= qsearchs({