[freeside-commits] freeside/FS/FS part_export.pm, 1.104.4.1, 1.104.4.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv4757/FS/FS

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	part_export.pm 
Log Message:
better export labeling for DID import, RT#11219

Index: part_export.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export.pm,v
retrieving revision 1.104.4.1
retrieving revision 1.104.4.2
diff -u -w -d -r1.104.4.1 -r1.104.4.2
--- part_export.pm	8 Nov 2010 21:42:44 -0000	1.104.4.1
+++ part_export.pm	18 Jan 2011 02:46:36 -0000	1.104.4.2
@@ -177,6 +177,17 @@
   $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.