From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 26 Feb 2014 21:24:24 +0000 (-0800)
Subject: fix quotation view, fallout from RT#13971
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=39fd1d46b323035c264f0cb12cf1d07c52cb0dad

fix quotation view, fallout from RT#13971
---

diff --git a/FS/FS/quotation_pkg.pm b/FS/FS/quotation_pkg.pm
index c73f857ce..c98e0f98b 100644
--- a/FS/FS/quotation_pkg.pm
+++ b/FS/FS/quotation_pkg.pm
@@ -2,6 +2,8 @@ package FS::quotation_pkg;
 use base qw( FS::TemplateItem_Mixin FS::Record );
 
 use strict;
+use FS::Record qw( qsearchs ); #qsearch
+use FS::part_pkg;
 use FS::quotation_pkg_discount; #so its loaded when TemplateItem_Mixin needs it
 
 =head1 NAME
@@ -126,6 +128,13 @@ sub check {
   $self->SUPER::check;
 }
 
+#it looks redundant with a v4.x+ auto-generated method, but need to override
+# FS::TemplateItem_Mixin's version
+sub part_pkg {
+  my $self = shift;
+  qsearchs('part_pkg', { 'pkgpart' => $self->pkgpart } );
+}
+
 sub desc {
   my $self = shift;
   $self->part_pkg->pkg;