projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
SMSC CDRs (Kannel) and cdrtypenum option on cdr sftp import script, RT10991
[freeside.git]
/
FS
/
FS
/
part_export.pm
diff --git
a/FS/FS/part_export.pm
b/FS/FS/part_export.pm
index
588606d
..
c0d3c54
100644
(file)
--- a/
FS/FS/part_export.pm
+++ b/
FS/FS/part_export.pm
@@
-50,6
+50,8
@@
fields are currently supported:
=item exportnum - primary key
=item exportnum - primary key
+=item exportname - Descriptive name
+
=item machine - Machine name
=item exporttype - Export type
=item machine - Machine name
=item exporttype - Export type
@@
-159,6
+161,7
@@
sub check {
my $self = shift;
my $error =
$self->ut_numbern('exportnum')
my $self = shift;
my $error =
$self->ut_numbern('exportnum')
+ || $self->ut_textn('exportname')
|| $self->ut_domain('machine')
|| $self->ut_alpha('exporttype')
;
|| $self->ut_domain('machine')
|| $self->ut_alpha('exporttype')
;
@@
-174,6
+177,17
@@
sub check {
$self->SUPER::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.
#=item part_svc
#
#Returns the service definition (see L<FS::part_svc>) for this export.