diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2017-08-03 11:53:07 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2017-08-03 11:53:07 -0400 |
| commit | 184b8e2c118ef3bd17f36b59f2a3f9690bf3d1bc (patch) | |
| tree | 129bf9ff4eef9c72810130b9c2fd4062bb80a02c | |
| parent | 639929eeb498d7f893e09084b72bccbaf91bf894 (diff) | |
| parent | c5bafe5c81eed4223adad4b313d060fc14d88bc2 (diff) | |
Merge branch 'FREESIDE_3_BRANCH' of freeside.biz:/home/git/freeside into FREESIDE_3_BRANCH
| -rw-r--r-- | FS/FS/part_export/pbxware.pm | 4 | ||||
| -rwxr-xr-x | httemplate/edit/cust_main.cgi | 5 |
2 files changed, 7 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); 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 = (); |