diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-03-25 16:33:19 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-03-25 16:33:19 -0700 |
commit | 4289ed53f86f18d6107339db5b7cee38f64533c0 (patch) | |
tree | 14a30eecf87502d7d0e4a9be88d962db8011447b /FS/FS/part_pkg.pm | |
parent | def4273b6560ff747dfbb53fb5d921a4e5d1c79d (diff) |
improve performance of package add/edit (don't pull up pricing info in add-on/supplemental package dropdowns), RT#24000
Diffstat (limited to 'FS/FS/part_pkg.pm')
-rw-r--r-- | FS/FS/part_pkg.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index e872232..07f59aa 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -839,6 +839,16 @@ sub pkg_comment { $pre. $self->pkg. ( $custom_comment ? " - $custom_comment" : '' ); } +#without price info (so without hitting the DB again) +sub pkg_comment_only { + my $self = shift; + my %opt = @_; + + my $pre = $opt{nopkgpart} ? '' : $self->pkgpart. ': '; + my $comment = $self->comment; + $pre. $self->pkg. ( $comment ? " - $comment" : '' ); +} + sub price_info { # safety, in case a part_pkg hasn't defined price_info ''; } @@ -1241,6 +1251,8 @@ will be suppressed. sub option { my( $self, $opt, $ornull ) = @_; + cluck "$self -> option: searching for $opt" + if $DEBUG; my $part_pkg_option = qsearchs('part_pkg_option', { pkgpart => $self->pkgpart, |