|  |  |  | @ -251,8 +251,7 @@ sub process_billing_fees{ | 
			
		
	
		
			
				
					|  |  |  |  |             push @fails, $linenum; | 
			
		
	
		
			
				
					|  |  |  |  |             next; | 
			
		
	
		
			
				
					|  |  |  |  |         } | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{onpeak_extra_second} = undef if $row->{onpeak_extra_second} eq ''; | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{offpeak_extra_second} = undef if $row->{offpeak_extra_second} eq ''; | 
			
		
	
		
			
				
					|  |  |  |  | 
 | 
			
		
	
		
			
				
					|  |  |  |  |         my $k = $row->{zone}.'__NGCP__'.$row->{zone_detail}; | 
			
		
	
		
			
				
					|  |  |  |  |         unless(exists $zones{$k}) { | 
			
		
	
		
			
				
					|  |  |  |  |             my $zone = $profile->billing_zones->find_or_create({ | 
			
		
	
	
		
			
				
					|  |  |  | @ -265,6 +264,11 @@ sub process_billing_fees{ | 
			
		
	
		
			
				
					|  |  |  |  |         delete $row->{zone}; | 
			
		
	
		
			
				
					|  |  |  |  |         delete $row->{zone_detail}; | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{match_mode} = 'regex_longest_pattern' unless $row->{match_mode}; | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{onpeak_extra_rate} = 0 unless $row->{onpeak_extra_rate}; | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{offpeak_extra_rate} = 0 unless $row->{offpeak_extra_rate}; | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{onpeak_extra_second} = undef if (defined $row->{onpeak_extra_second} and $row->{onpeak_extra_second} eq ''); | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{offpeak_extra_second} = undef if (defined $row->{offpeak_extra_second} and $row->{offpeak_extra_second} eq ''); | 
			
		
	
		
			
				
					|  |  |  |  |         $row->{offpeak_use_free_time} = $row->{onpeak_use_free_time} if (not defined $row->{offpeak_use_free_time} or $row->{offpeak_use_free_time} eq ''); | 
			
		
	
		
			
				
					|  |  |  |  |         unless (validate_billing_fee($row, | 
			
		
	
		
			
				
					|  |  |  |  |             sub { | 
			
		
	
		
			
				
					|  |  |  |  |                 my ($field,$error,$error_detail) = @_; | 
			
		
	
	
		
			
				
					|  |  |  | 
 |