diff options
| -rw-r--r-- | httemplate/elements/change_history_common.html | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/httemplate/elements/change_history_common.html b/httemplate/elements/change_history_common.html index c858ec123..2d2c4c0be 100644 --- a/httemplate/elements/change_history_common.html +++ b/httemplate/elements/change_history_common.html @@ -191,9 +191,10 @@ my %h_table_labelsub = ( 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; + $pkgpart{$item->pkgpart} ||= qsearchs({ + 'table' => 'part_pkg', + 'hashref' => {'pkgpart' => $item->pkgpart} + })->pkg; my $dnum = $item->discountnum; $discounts->{$dnum} ||= qsearchs({ 'table'=>'discount', |