X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_port.pm;h=e72ac4933749e79fb221b304382f9918055a61b2;hp=931880e55a81a82d13f79249259d6a10295a0d22;hb=8f1500df332a86f1abe55a046778e42b21459430;hpb=f7e5e7625b04164ce2e0aac77a85bc03a7d48a6f

diff --git a/FS/FS/svc_port.pm b/FS/FS/svc_port.pm
index 931880e55..e72ac4933 100644
--- a/FS/FS/svc_port.pm
+++ b/FS/FS/svc_port.pm
@@ -1,9 +1,11 @@
 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
 
@@ -63,11 +65,13 @@ sub table_info {
     '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',
     },
   };
 }
@@ -103,52 +107,15 @@ otherwise returns false.
 The additional fields pkgnum and svcpart (see L<FS::cust_svc>) should be 
 defined.  An FS::cust_svc record will be created and inserted.
 
-=cut
-
-sub insert {
-  my $self = shift;
-  my $error;
-
-  $error = $self->SUPER::insert;
-  return $error if $error;
-
-  '';
-}
-
 =item delete
 
 Delete this record from the database.
 
-=cut
-
-sub delete {
-  my $self = shift;
-  my $error;
-
-  $error = $self->SUPER::delete;
-  return $error if $error;
-
-  '';
-}
-
-
 =item replace OLD_RECORD
 
 Replaces the OLD_RECORD with this one in the database.  If there is an error,
 returns the error, otherwise returns false.
 
-=cut
-
-sub replace {
-  my ( $new, $old ) = ( shift, shift );
-  my $error;
-
-  $error = $new->SUPER::replace($old);
-  return $error if $error;
-
-  '';
-}
-
 =item suspend
 
 Called by the suspend method of FS::cust_pkg (see L<FS::cust_pkg>).
@@ -182,21 +149,6 @@ sub check {
   $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