'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',
],
},
'type' => 'select',
'select_hash' => [ '' => 'No',
'1YMMXXXXXXXX' => '1YMMXXXXXXXX',
+ '1001XXXXXXXX' => '1001XXXXXXXX',
],
},
$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";
}