diff options
| -rw-r--r-- | FS/FS/Conf.pm | 7 | ||||
| -rw-r--r-- | FS/FS/cust_main.pm | 9 |
2 files changed, 13 insertions, 3 deletions
diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index e49174b20..6eb539fcf 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -3622,9 +3622,9 @@ and customer address. Include units.', 'description' => 'Enables searching of various formatted values in cust_main.agent_custid', 'type' => 'select', 'select_hash' => [ - '' => 'Numeric only', - '\d{7}' => 'Numeric only, exactly 7 digits', - 'ww?d+' => 'Numeric with one or two letter prefix', + '' => 'Numeric only', + '\d{7}' => 'Numeric only, exactly 7 digits', + 'ww?d+' => 'Numeric with one or two letter prefix', ], }, @@ -3779,6 +3779,7 @@ and customer address. Include units.', 'type' => 'select', 'select_hash' => [ '' => 'No', '1YMMXXXXXXXX' => '1YMMXXXXXXXX', + '1001XXXXXXXX' => '1001XXXXXXXX', ], }, diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index f8e103eee..32912afe7 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -676,6 +676,15 @@ sub auto_agent_custid { $counter->unlock; + } elsif ( $format eq '1001XXXXXXXX' ) { + + my $counter = new File::CounterFile 'cust_main.agent_custid'; + $counter->lock; + + $agent_custid = '1001'. $counter->inc; + + $counter->unlock; + } else { die "Unknown cust_main-auto_agent_custid format: $format"; } |