diff options
| author | jeff <jeff> | 2007-04-02 15:49:37 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-04-02 15:49:37 +0000 |
| commit | 51bf0e9b404cd6e4ae84435230447619269f77c0 (patch) | |
| tree | 51aac6197047c4983d38003ff7d5d0176574623c /FS/FS | |
| parent | 8a507f43bfa5c5232b5babfbbf82ac5de5702add (diff) | |
ticket 1528 add driver's license field, mask it and ssn
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/Conf.pm | 7 | ||||
| -rw-r--r-- | FS/FS/Schema.pm | 2 | ||||
| -rw-r--r-- | FS/FS/Setup.pm | 8 | ||||
| -rw-r--r-- | FS/FS/cust_main.pm | 18 |
4 files changed, 35 insertions, 0 deletions
diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index 5f7cb8fec..22e193215 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -1181,6 +1181,13 @@ httemplate/docs/config.html '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', diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index e0fef9126..85ad94531 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -408,6 +408,8 @@ sub tables_hashref { # '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' ,@date_type, '', '', 'signupdate',@date_type, '', '', 'company', 'varchar', 'NULL', $char_d, '', '', diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm index 4864cfea8..17101a745 100644 --- a/FS/FS/Setup.pm +++ b/FS/FS/Setup.pm @@ -475,6 +475,14 @@ sub msgcat_messages { 'en_US' => 'Title', }, + 'stateid' => { + 'en_US' => 'Driver\'s License', + }, + + 'stateid_state' => { + 'en_US' => 'Driver\'s License State', + }, + ); } diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index d437db694..80111da0e 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1219,6 +1219,8 @@ sub check { || $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 @@ sub fuzzy_search { } +=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 |