[freeside-commits] freeside/FS/FS Setup.pm, 1.8, 1.9 Schema.pm, 1.48, 1.49 cust_main.pm, 1.278, 1.279 Conf.pm, 1.185, 1.186

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv957/FS/FS

Modified Files:
	Setup.pm Schema.pm cust_main.pm Conf.pm 
Log Message:
ticket 1528 add driver's license field, mask it and ssn

Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- Schema.pm	1 Apr 2007 02:45:28 -0000	1.48
+++ Schema.pm	2 Apr 2007 15:49:36 -0000	1.49
@@ -408,6 +408,8 @@
 #        'middle',   'varchar', 'NULL', $char_d, '', '', 
         'first',    'varchar', '',     $char_d, '', '', 
         'ss',       'varchar', 'NULL', 11, '', '', 
+        'stateid', 'varchar', 'NULL', $char_d, '', '', 
+        'stateid_state', 'varchar', 'NULL', $char_d, '', '', 
         'birthdate' , at date_type, '', '', 
         'signupdate', at date_type, '', '', 
         'company',  'varchar', 'NULL', $char_d, '', '', 

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.185
retrieving revision 1.186
diff -u -d -r1.185 -r1.186
--- Conf.pm	16 Mar 2007 01:35:55 -0000	1.185
+++ Conf.pm	2 Apr 2007 15:49:36 -0000	1.186
@@ -1181,6 +1181,13 @@
     'type'        => 'checkbox',
   },
 
+  {
+    'key'         => 'show_stateid',
+    'section'     => 'UI',
+    'description' => 'Turns on display/collection of state issued id numbers in the web interface.',
+    'type'        => 'checkbox',
+  },
+
   { 
     'key'         => 'agent_defaultpkg',
     'section'     => 'UI',

Index: Setup.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Setup.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Setup.pm	15 Dec 2006 08:37:15 -0000	1.8
+++ Setup.pm	2 Apr 2007 15:49:36 -0000	1.9
@@ -475,6 +475,14 @@
       'en_US' => 'Title',
     },
 
+    'stateid' => {
+      'en_US' => 'Driver\'s License',
+    },
+
+    'stateid_state' => {
+      'en_US' => 'Driver\'s License State',
+    },
+
   );
 }
 

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.278
retrieving revision 1.279
diff -u -d -r1.278 -r1.279
--- cust_main.pm	21 Mar 2007 23:07:14 -0000	1.278
+++ cust_main.pm	2 Apr 2007 15:49:36 -0000	1.279
@@ -1219,6 +1219,8 @@
     || $self->ut_country('country')
     || $self->ut_anything('comments')
     || $self->ut_numbern('referral_custnum')
+    || $self->ut_textn('stateid')
+    || $self->ut_textn('stateid_state')
   ;
   #barf.  need message catalogs.  i18n.  etc.
   $error .= "Please select an advertising source."
@@ -4141,6 +4143,22 @@
 
 }
 
+=item masked FIELD
+
+Returns a masked version of the named field
+
+=cut
+
+sub masked {
+my ($self,$field) = @_;
+
+# Show last four
+
+'x'x(length($self->getfield($field))-4).
+  substr($self->getfield($field), (length($self->getfield($field))-4));
+
+}
+
 =back
 
 =head1 SUBROUTINES