diff options
author | ivan <ivan> | 2011-01-18 02:46:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-01-18 02:46:35 +0000 |
commit | 42b2a5b6a4e8bf2a692467ae1e45d9dde2d614db (patch) | |
tree | fd9f49065aaf4d5e2ff5ec16f5c1c1456fb21cb1 /FS/FS/part_export.pm | |
parent | 5cae209e7a123e2fb4da3eb720b54a0b83368977 (diff) |
better export labeling for DID import, RT#11219
Diffstat (limited to 'FS/FS/part_export.pm')
-rw-r--r-- | FS/FS/part_export.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index 6f5aedc..c0d3c54 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -177,6 +177,17 @@ sub check { $self->SUPER::check; } +=item label + +Returns a label for this export, "exportname||exportype (machine)". + +=cut + +sub label { + my $self = shift; + ($self->exportname || $self->exporttype ). ' ('. $self->machine. ')'; +} + #=item part_svc # #Returns the service definition (see L<FS::part_svc>) for this export. |