X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export.pm;h=c0d3c54a2c0c9898b4a385482e11a64ec74062f4;hb=b49c1bd5510a5f10b05bffacc6cc8b6a1b2153e8;hp=6f5aedc350792cad3547cb26681259692cf61606;hpb=5ac9e46a92f4eefd795f97643f3e8f62ec1a2b26;p=freeside.git

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index 6f5aedc35..c0d3c54a2 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.