From 4ef0cb4a8729c07a7257cd924b6c778e17329d28 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 2 Aug 2017 17:09:00 -0700 Subject: enable all debugging when you turn on the checkbox, RT#76756 --- FS/FS/part_export/pbxware.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/part_export/pbxware.pm b/FS/FS/part_export/pbxware.pm index 53cb12bf9..44a606de6 100644 --- a/FS/FS/part_export/pbxware.pm +++ b/FS/FS/part_export/pbxware.pm @@ -137,7 +137,7 @@ sub import_cdrs { # page's IDs or something. my $uniqueid = md5_hex(join(',',@$row)); if ( FS::cdr->row_exists('uniqueid = ?', $uniqueid) ) { - warn "skipped duplicate row in page $page\n" if $DEBUG > 1; + warn "skipped duplicate row in page $page\n" if $DEBUG; next CDR; } @@ -186,7 +186,7 @@ local $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0; ] ); warn "$me $method\n" if $DEBUG; - warn $request->as_string."\n" if $DEBUG > 1; + warn $request->as_string."\n" if $DEBUG; my $ua = LWP::UserAgent->new; my $response = $ua->request($request); -- cgit v1.2.1 From c5bafe5c81eed4223adad4b313d060fc14d88bc2 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 3 Aug 2017 08:47:59 -0700 Subject: fix agent-specific invoice_default_terms on new customer add, RT#76862 --- httemplate/edit/cust_main.cgi | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index d84679d4e..fbd292ffb 100755 --- a/httemplate/edit/cust_main.cgi +++ b/httemplate/edit/cust_main.cgi @@ -320,8 +320,13 @@ if ( $cgi->param('error') ) { $custnum=''; $cust_main = new FS::cust_main ( {} ); + + my @agentnums = $curuser->agentnums; + $cust_main->agentnum( $agentnums[0] ) + if scalar(@agentnums) == 1; $cust_main->agentnum( $conf->config('default_agentnum') ) if $conf->exists('default_agentnum'); + $cust_main->otaker( &getotaker ); $cust_main->referral_custnum( $cgi->param('referral_custnum') ); @invoicing_list = (); -- cgit v1.2.1