[freeside-commits] freeside/FS/FS Setup.pm, 1.8, 1.8.2.1 Schema.pm, 1.44.2.4, 1.44.2.5 cust_main.pm, 1.271.2.9, 1.271.2.10 Conf.pm, 1.180.2.6, 1.180.2.7

[Jeff Finucane,420,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	Setup.pm Schema.pm cust_main.pm Conf.pm 
Log Message:
1528 add driver's license field, mask it and ssn (backport)

Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.44.2.4
retrieving revision 1.44.2.5
diff -u -d -r1.44.2.4 -r1.44.2.5
--- Schema.pm	23 Apr 2007 14:34:09 -0000	1.44.2.4
+++ Schema.pm	24 Apr 2007 22:36:23 -0000	1.44.2.5
@@ -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.180.2.6
retrieving revision 1.180.2.7
diff -u -d -r1.180.2.6 -r1.180.2.7
--- Conf.pm	23 Apr 2007 03:42:40 -0000	1.180.2.6
+++ Conf.pm	24 Apr 2007 22:36:23 -0000	1.180.2.7
@@ -1172,6 +1172,13 @@
   },
 
   { 
+    'key'         => 'show_stateid',
+    'section'     => 'UI',
+    'description' => "Turns on display/collection of driver's license/state issued id numbers in the web interface.  Sometimes required by electronic check (ACH) processors.",
+    'type'        => 'checkbox',
+  },
+
+  { 
     'key'         => 'agent_defaultpkg',
     'section'     => 'UI',
     'description' => 'Setting this option will cause new packages to be available to all agent types by default.',

Index: Setup.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Setup.pm,v
retrieving revision 1.8
retrieving revision 1.8.2.1
diff -u -d -r1.8 -r1.8.2.1
--- Setup.pm	15 Dec 2006 08:37:15 -0000	1.8
+++ Setup.pm	24 Apr 2007 22:36:22 -0000	1.8.2.1
@@ -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.271.2.9
retrieving revision 1.271.2.10
diff -u -d -r1.271.2.9 -r1.271.2.10
--- cust_main.pm	23 Apr 2007 03:42:40 -0000	1.271.2.9
+++ cust_main.pm	24 Apr 2007 22:36:23 -0000	1.271.2.10
@@ -1220,6 +1220,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."
@@ -4272,6 +4274,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