From: Jonathan Prykop <jonathan@freeside.biz>
Date: Fri, 18 Sep 2015 00:27:10 +0000 (-0500)
Subject: RT#35197: Apply changes button in Edit rate plan screen clears the global default
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=76dff99173f25f38002fbb5236d8141a8781c3eb;p=freeside.git

RT#35197: Apply changes button in Edit rate plan screen clears the global default
---

diff --git a/FS/FS/rate.pm b/FS/FS/rate.pm
index d30517051..1164c15f2 100644
--- a/FS/FS/rate.pm
+++ b/FS/FS/rate.pm
@@ -491,8 +491,11 @@ sub process {
     warn "$rate replacing $old (". $param->{'ratenum'}. ")\n" if $DEBUG;
 
     my @param = ( 'job'=>$job );
-    push @param, 'rate_detail'=>\@rate_detail
-      unless $param->{'preserve_rate_detail'};
+    if ($param->{'preserve_rate_detail'}) {
+      $rate->default_detailnum($old->default_detailnum);
+    } else {
+      push @param, 'rate_detail'=>\@rate_detail;
+    }
 
     $error = $rate->replace( $old, @param );
 
diff --git a/httemplate/edit/process/rate_detail.html b/httemplate/edit/process/rate_detail.html
index 0709d5079..f8a744418 100644
--- a/httemplate/edit/process/rate_detail.html
+++ b/httemplate/edit/process/rate_detail.html
@@ -12,7 +12,6 @@ die "access denied"
 
 my $set_default_detail = sub {
   my ($cgi, $rate_detail) = @_;
-warn Dumper $rate_detail;
   if (!$rate_detail->dest_regionnum) {
     # then this is a global default rate
     my $rate = $rate_detail->rate;