my ($option, $valref) = @_;
if ( $$valref eq '' ) {
return '';
- } elsif ( $$valref =~ /^\s*(\-)?\s*(\d*)(\.\d{1})\s*$/ ) {
+ } elsif ( $$valref =~ /^\s*(\d*)(\.\d{1})\s*$/ ) {
#handle one decimal place without barfing out
- $$valref = ( ($1||''). ($2||''). ($3.'0') ) || 0;
- } elsif ( $$valref =~ /^\s*(\-)?\s*(\d*)(\.\d{2})?\s*$/ ) {
- $$valref = ( ($1||''). ($2||''). ($3||'') ) || 0;
+ $$valref = ( ($1||''). ($2.'0') ) || 0;
+ } elsif ( $$valref =~ /^\s*(\d*)(\.\d{2})?\s*$/ ) {
+ $$valref = ( ($1||''). ($2||'') ) || 0;
} else {
return "Illegal (money) $option: ". $$valref;
}
return '';
}
+tie my %count_available_phones, 'Tie::IxHash', (
+ 0 => 'Provisioned phone services',
+ 1 => 'All available phone services',
+);
%info = (
'disabled' => 1,
'name' => 'Automatic suspension period before cancelling (configuration setting part_pkg-delay_cancel-days)',
'type' => 'checkbox',
},
+ 'count_available_phones' => { 'name' => 'Count taxable phone lines',
+ 'type' => 'radio',
+ 'options' => \%count_available_phones,
+ 'default' => 0,
+ },
# miscellany--maybe put this in a separate module?
unused_credit_change
delay_cancel
+ count_available_phones
+
a2billing_tariff
a2billing_type
a2billing_simultaccess