X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fchange_history_common.html;h=c858ec123ceaaee904693eb64d0aa47bafb0fcab;hb=a70498f14ae5d3be7f57ce81fef703b869ccdf0a;hp=9fc85aa53fac074f16a0c3c4bc7c375a09b15052;hpb=73d97ad71884ce66b435f0e8d85e5bf99cda3712;p=freeside.git

diff --git a/httemplate/elements/change_history_common.html b/httemplate/elements/change_history_common.html
index 9fc85aa53..c858ec123 100644
--- a/httemplate/elements/change_history_common.html
+++ b/httemplate/elements/change_history_common.html
@@ -191,6 +191,8 @@ 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;
   my $dnum = $item->discountnum;
   $discounts->{$dnum} ||= qsearchs({