my $self = shift;
$self->status_long;
},
- sub {
- my $self = shift;
- my $cust_or_prospect = $self->cust_or_prospect;
- return $cust_or_prospect->name
- if $cust_or_prospect->get('custnum');
- return "Prospect #".$cust_or_prospect->prospectnum
- if $cust_or_prospect->get('prospectnum');
- '';
- },
- 'phonenum',
+ sub { shift->cust_or_prospect->name },
+ sub { shift->phonenum || '(none - dry loop)' },
sub {
my $self = shift;
- my %location_hash = $self->location;
+ my %location_hash= $self->location_hash;
# ugh...
if ( %location_hash ) {
my $loc = new FS::cust_location(\%location_hash);
},
sub {
my $self = shift;
- my $export = $self->export;
+ my $export = $self->part_export;
my $result = '(manual)';
$result = $export->exportname if $export;
$result;