diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-02-26 13:24:24 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-02-26 13:24:24 -0800 |
commit | 39fd1d46b323035c264f0cb12cf1d07c52cb0dad (patch) | |
tree | 48dd361a5c11825a2b8f9084756b2de6041ae0b0 /FS/FS/quotation_pkg.pm | |
parent | 0f5f7222dd6607c11e50020e0f6b4d813fc64cb9 (diff) |
fix quotation view, fallout from RT#13971
Diffstat (limited to 'FS/FS/quotation_pkg.pm')
-rw-r--r-- | FS/FS/quotation_pkg.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/FS/FS/quotation_pkg.pm b/FS/FS/quotation_pkg.pm index c73f857..c98e0f9 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; |