[freeside-commits] freeside/FS/FS Schema.pm, 1.245, 1.246 part_svc.pm, 1.35, 1.36 svc_dsl.pm, 1.1, 1.2

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv25571/FS/FS

Modified Files:
	Schema.pm part_svc.pm svc_dsl.pm 
Log Message:
ikano.pm initial commit, svc_dsl UI initial commit, and svc_dsl on-going work, RT7111


Index: part_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_svc.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -w -d -r1.35 -r1.36
--- part_svc.pm	21 Feb 2010 03:16:02 -0000	1.35
+++ part_svc.pm	25 Nov 2010 01:46:33 -0000	1.36
@@ -459,6 +459,17 @@
   grep $_->can('get_dids'), $self->part_export;
 }
 
+=item part_export_dsl_pull
+
+Returns a list of any exports (see L<FS::part_export>) for this service that
+are capable of pulling/pushing DSL orders.
+
+=cut
+
+sub part_export_dsl_pull {
+    my $self = shift;
+    grep $_->can('dsl_pull'), $self->part_export;
+}
 
 =item cust_svc [ PKGPART ] 
 

Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.245
retrieving revision 1.246
diff -u -w -d -r1.245 -r1.246
--- Schema.pm	22 Nov 2010 20:53:21 -0000	1.245
+++ Schema.pm	25 Nov 2010 01:46:33 -0000	1.246
@@ -1682,7 +1682,7 @@
       'columns' => [
         'qualnum',  'serial',     '',     '', '', '', 
         'contactnum',    'int',     '',     '', '', '',
-	'svctn',     'int', 'NULL',       '', '', '',
+	'svctn',     'varchar', 'NULL',       24, '', '',
         'svcdb',      'varchar', '', $char_d, '', '', 
         'vendor_qual_id',      'varchar', 'NULL', $char_d, '', '', 
         'status',      'char', '', 1, '', '', 
@@ -1837,16 +1837,16 @@
       'columns' => [
         'svcnum',           'int',    '',        '', '', '',
 	'pushed',     'int', 'NULL',       '', '', '',
-	'desired_dd',     'int', '',       '', '', '',
+	'desired_dd',     'int', 'NULL',       '', '', '',
 	'dd',     'int', 'NULL',       '', '', '',
         'vendor_order_id',              'varchar', 'NULL', $char_d,  '', '',
         'vendor_qual_id',              'varchar', 'NULL', $char_d,  '', '',
-        'vendor_order_type',   'char', '',       1,  '', '', 
+        'vendor_order_type',   'char', 'NULL',       1,  '', '', 
         'vendor_order_status',   'char', 'NULL',       1,  '', '', 
-        'first',              'varchar', '', $char_d,  '', '',
-        'last',              'varchar', '', $char_d,  '', '',
+        'first',              'varchar', 'NULL', $char_d,  '', '',
+        'last',              'varchar', 'NULL', $char_d,  '', '',
         'company',              'varchar', 'NULL', $char_d,  '', '',
-	'svctn',     'int', 'NULL',       '', '', '',
+	'svctn',     'varchar', 'NULL',       24, '', '',
         'loop_type',   'char', 'NULL',       1,  '', '', 
         'lvp',              'varchar', 'NULL', $char_d,  '', '',
         'cktnum',              'varchar', 'NULL', $char_d,  '', '',
@@ -1856,7 +1856,7 @@
         'username',              'varchar', 'NULL', $char_d,  '', '',
         'password',              'varchar', 'NULL', $char_d,  '', '',
         'staticips',             'text', 'NULL', '',  '', '',
-        'monitored',   	'char', '',       1,  '', '', 
+        'monitored',   	'char', 'NULL',       1,  '', '', 
 	'last_pull',     'int', 'NULL',       '', '', '',
 	'notes',     'text', 'NULL',       '', '', '',
       ],

Index: svc_dsl.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_dsl.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- svc_dsl.pm	22 Nov 2010 20:53:21 -0000	1.1
+++ svc_dsl.pm	25 Nov 2010 01:46:33 -0000	1.2
@@ -155,8 +155,71 @@
 
 # the new method can be inherited from FS::Record, if a table method is defined
 
+sub table_info {
+    my %dis1 = ( disable_default=>1, disable_fixed=>1, disable_inventory=>1, disable_select=>1 );
+    my %dis2 = ( disable_inventory=>1, disable_select=>1 );
+
+    {
+	'name' => 'DSL',
+	'sorts' => [ 'svctn' ],
+	'display_weight' => 55,
+	'cancel_weight' => 75,
+	'fields' => {
+	    'pushed' => { 	label => 'Pushed', 
+				type => 'disabled' },
+	    'desired_dd' => { 	label => 'Desired Due Date', %dis2, },
+	    'dd' => { 		label => 'Due Date', %dis2, },
+	    'vendor_order_id' => { label => 'Vendor Order Id', %dis2, },
+	    'vendor_qual_id' => { label => 'Vendor Qualification Id', 
+				type => 'disabled' },
+	    'vendor_order_type' => { label => 'Vendor Order Type',
+				    disable_inventory => 1,
+				},
+	    'vendor_order_status' => { label => 'Vendor Order Status',
+				    disable_inventory => 1,
+				    },
+	    'first' => { 	label => 'First Name', %dis2, },
+	    'last' => {  	label => 'Last Name', %dis2, },
+	    'company' => {	label => 'Company Name', %dis2, },
+	    'svctn' => {	label => 'Service Telephone Number', },
+	    'loop_type' => {	label => 'Loop Type',
+				    disable_inventory => 1,
+			},
+	    'lvp' => {		label => 'Local Voice Provider',
+				    disable_inventory => 1,
+			},
+	    'cktnum' => {	label => 'Circuit #',	},
+	    'rate_band' => {	label => 'Rate Band',
+				    disable_inventory => 1,
+			},
+	    'isp_chg' => {	label => 'ISP Changing?', 
+				type => 'checkbox', %dis2 },
+	    'isp_prev' => {	label => 'Current or Previous ISP',
+				    disable_inventory => 1,
+			},
+	    'username' => {	label => 'PPPoE Username',
+				type => 'text',
+			},
+	    'password' => {	label => 'PPPoE Password', %dis2 },
+	    'staticips' => { 	label => 'Static IPs', %dis1 },
+	    'monitored' => {	label => 'Monitored', 
+				type => 'checkbox', %dis2 },
+	    'last_pull' => { 	label => 'Last Pull', type => 'disabled' },
+	    'notes' => { 	label => 'Order Notes', %dis1 },
+	},
+    };
+}
+
 sub table { 'svc_dsl'; }
 
+sub label {
+   my $self = shift;
+   return $self->svctn if $self->svctn;
+   return $self->username if $self->username;
+   return $self->vendor_order_id if $self->vendor_order_id;
+   return $self->svcnum;
+}
+
 =item insert
 
 Adds this record to the database.  If there is an error, returns the error,