package FS::svc_port;
+use base qw( FS::svc_Torrus_Mixin FS::svc_Common );
use strict;
-use base qw( FS::svc_Common );
-#use FS::Record qw( qsearch qsearchs );
-use FS::cust_svc;
+#use vars qw( $DEBUG $me );
+
+#$DEBUG = 0;
+#$me = '[FS::svc_port]';
=head1 NAME
'name' => 'Port',
#'name_plural' => 'Ports', #optional,
#'longname_plural' => 'Ports', #optional
- 'sorts' => [ 'svcnum', 'serviceid' ], # optional sort field (or arrayref of sort fields, main first)
+ #'sorts' => [ 'svcnum', 'serviceid' ], # optional sort field (or arrayref of sort fields, main first)
+ 'sorts' => [ 'serviceid' ], # optional sort field (or arrayref of sort fields, main first)
'display_weight' => 75,
'cancel_weight' => 10,
'fields' => {
- 'serviceid' => 'Torrus serviceid',
+ 'svcnum' => 'Service',
+ 'serviceid' => 'Torrus serviceid',
},
};
}
$self->SUPER::check;
}
-=item
-
-Returns a PNG graph for this port.
-
-XXX Options
-
-=cut
-
-sub graph_png {
- my $self = shift;
- my $serviceid = $self->serviceid;
-
-
-}
-
=back
=head1 BUGS