$self->SUPER::check;
}
+=item display_svcnum
+
+Returns the displayed service number for this service: agent_svcid if it has a
+value, svcnum otherwise
+
+=cut
+
+sub display_svcnum {
+ my $self = shift;
+ $self->agent_svcid || $self->svcnum;
+}
+
=item part_svc
Returns the definition for this service, as a FS::part_svc object (see
sub _svc_label {
my( $self, $method, $svc_x ) = ( shift, shift, shift );
- my $identifier = $svc_x->$method(@_);
- $identifier = '['.$self->agent_svcid.']'. $identifier if $self->agent_svcid;
-
(
$self->part_svc->svc,
- $identifier,
+ $svc_x->$method(@_),
$self->part_svc->svcdb,
$self->svcnum
);