X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FConf.pm;h=cf505de36e1eb43da3881e2c779c5402a8fd4d43;hp=691097784684f71e72a4ede8bd82e8d8121758ac;hb=5e76080d6ca453fa4471d21e10da023f8bb03184;hpb=a76eba49dd827c1afefa62d96fa796ff39bb904d diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index 691097784..cf505de36 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -2,6 +2,9 @@ package FS::Conf; use vars qw($base_dir @config_items @base_items @card_types $DEBUG); use strict; +use vars qw( $base_dir @config_items @base_items @card_types @invoice_terms + $DEBUG + ); use Carp; use IO::File; use File::Basename; @@ -689,6 +692,14 @@ logo.png logo.eps ); +@invoice_terms = ( + '', + 'Payable upon receipt', + 'Net 0', 'Net 3', 'Net 5', 'Net 7', 'Net 9', 'Net 10', 'Net 14', + 'Net 15', 'Net 18', 'Net 20', 'Net 21', 'Net 25', 'Net 30', 'Net 45', + 'Net 60', 'Net 90' +); + my %msg_template_options = ( 'type' => 'select-sub', 'options_sub' => sub { @@ -1056,6 +1067,13 @@ my $validate_email = sub { $_[0] =~ }, { + 'key' => 'business-onlinepayment-verification', + 'section' => 'billing', + 'description' => 'Run a $1 authorization (followed by a void) to verify new credit card information.', + 'type' => 'checkbox', + }, + + { 'key' => 'currency', 'section' => 'billing', 'description' => 'Currency', @@ -1649,11 +1667,8 @@ and customer address. Include units.', 'description' => 'Optional default invoice term, used to calculate a due date printed on invoices.', 'type' => 'select', 'per_agent' => 1, - 'select_enum' => [ - '', 'Payable upon receipt', 'Net 0', 'Net 3', 'Net 5', 'Net 7', 'Net 9', 'Net 10', 'Net 14', - 'Net 15', 'Net 18', 'Net 20', 'Net 21', 'Net 25', 'Net 30', 'Net 45', - 'Net 60', 'Net 90' - ], }, + 'select_enum' => \@invoice_terms, + }, { 'key' => 'invoice_show_prior_due_date', @@ -3498,7 +3513,7 @@ and customer address. Include units.', { 'key' => 'cust_main-require_address2', 'section' => 'UI', - 'description' => 'Second address field is required (on service address only, if billing and service addresses differ). Also enables "Unit" labeling of address2 on customer view and edit pages. Useful for multi-tenant applications. See also: address2-search', + 'description' => 'Second address field is required. Also enables "Unit" labeling of address2 on customer view and edit pages. Useful for multi-tenant applications. See also: address2-search', # service address only part not working in the modern world, see #41184 (on service address only, if billing and service addresses differ) 'type' => 'checkbox', }, @@ -4596,7 +4611,6 @@ and customer address. Include units.', 'usps' => 'U.S. Postal Service', 'uscensus' => 'U.S. Census Bureau', 'ezlocate' => 'EZLocate', - 'tomtom' => 'TomTom', 'melissa' => 'Melissa WebSmart', 'freeside' => 'Freeside web service (support contract required)', ], @@ -4617,13 +4631,6 @@ and customer address. Include units.', }, { - 'key' => 'tomtom-userid', - 'section' => 'UI', - 'description' => 'TomTom geocoding service API key. See the TomTom website to obtain a key. This is recommended for addresses in the United States only.', - 'type' => 'text', - }, - - { 'key' => 'ezlocate-userid', 'section' => 'UI', 'description' => 'User ID for EZ-Locate service. See the TomTom website for access and pricing information.', @@ -5307,6 +5314,13 @@ and customer address. Include units.', }, { + 'key' => 'cdr-intl_to_domestic_rewrite', + 'section' => 'telephony', + 'description' => 'Strip the "011" international prefix from CDR destination numbers if the rest of the number is 7 digits or shorter, and so probably does not contain a country code.', + 'type' => 'checkbox', + }, + + { 'key' => 'cdr-gsm_tap3-sender', 'section' => 'telephony', 'description' => 'GSM TAP3 Sender network (5 letter code)', @@ -5441,7 +5455,7 @@ and customer address. Include units.', { 'key' => 'tax-cust_exempt-groups-require_individual_nums', 'section' => 'deprecated', - 'description' => 'Deprecated: see tax-cust_exempt-groups-number_requirement', + 'description' => 'Deprecated: see tax-cust_exempt-groups-num_req', 'type' => 'checkbox', }, @@ -5584,7 +5598,7 @@ and customer address. Include units.', my @part_export = map { qsearch( 'part_export', {exporttype => $_ } ) } keys %{FS::part_export::export_info('cust_main')}; - map { $_->exportnum => $_->exporttype.' to '.$_->machine } @part_export; + map { $_->exportnum => $_->exportname } @part_export; }, 'option_sub' => sub { require FS::Record; @@ -5593,7 +5607,7 @@ and customer address. Include units.', 'part_export', { 'exportnum' => shift } ); $part_export - ? $part_export->exporttype.' to '.$part_export->machine + ? $part_export->exportname : ''; }, }, @@ -5602,7 +5616,7 @@ and customer address. Include units.', { 'key' => 'cust_location-exports', 'section' => '', - 'description' => 'Export(s) to call on cust_location insert, modification and deletion.', + 'description' => 'Export(s) to call on cust_location insert or modification', 'type' => 'select-sub', 'multiple' => 1, 'options_sub' => sub {