diff options
Diffstat (limited to 'rt/lib/RT/URI/freeside/Internal.pm')
| -rw-r--r-- | rt/lib/RT/URI/freeside/Internal.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/rt/lib/RT/URI/freeside/Internal.pm b/rt/lib/RT/URI/freeside/Internal.pm index 7b8efa0d3..4069b87af 100644 --- a/rt/lib/RT/URI/freeside/Internal.pm +++ b/rt/lib/RT/URI/freeside/Internal.pm @@ -53,7 +53,7 @@ See L<RT::URI::freeside> for public/private interface documentation. -sub _FreesideGetRecord { +sub _FreesideGetRecord { # cache this? my $self = shift; my ($table, $pkey) = ($self->{'fstable'}, $self->{'fspkey'}); @@ -167,4 +167,11 @@ sub CustomerTags { } @part_tag; } +sub Referral { + my $self = shift; + my $rec = $self->_FreesideGetRecord() or return; + my $ref = qsearchs('part_referral', { refnum => $rec->{'_object'}->refnum }); + $ref ? $ref->referral : '' +} + 1; |