diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-09-18 02:56:30 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-09-18 02:56:30 -0700 |
commit | 806d426d106efea2b2b13314108c4ac046511e1c (patch) | |
tree | 89b277b7b0cca1b412e74b68869bccf733bc14c2 /FS/FS/part_export.pm | |
parent | 1ad547a47f16b4230762e752fbe48d460ed997e1 (diff) |
export host selection per service, RT#17914
Diffstat (limited to 'FS/FS/part_export.pm')
-rw-r--r-- | FS/FS/part_export.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index 97394af..c757d36 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -330,6 +330,31 @@ sub label { ($self->exportname || $self->exporttype ). ' ('. $self->machine. ')'; } +=item label_html + +Returns a label for this export, "exportname: exporttype to machine". + +=cut + +sub label_html { + my $self = shift; + + my $label = $self->exportname + ? '<B>'. $self->exportname. '</B>: ' #<BR>'. + : ''; + + $label .= $self->exporttype; + + $label .= ' to '. ( $self->machine eq '_SVC_MACHINE' + ? 'per-service hostname' + : $self->machine + ) + if $self->machine; + + $label; + +} + #=item part_svc # #Returns the service definition (see L<FS::part_svc>) for this export. |