1 <& elements/process.html,
2 'table' => 'rate_detail',
3 'popup_reload' => 'Rate changed', #a popup "parent reload" for now
4 #someday change the individual element and go away instead
5 'noerror_callback' => $set_default_detail
9 my $conf = new FS::Conf;
11 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
13 my $set_default_detail = sub {
14 my ($cgi, $rate_detail) = @_;
15 warn Dumper $rate_detail;
16 if (!$rate_detail->dest_regionnum) {
17 # then this is a global default rate
18 my $rate = $rate_detail->rate;
19 if ($rate->default_detailnum) {
20 if ($rate->default_detailnum == $rate_detail->ratedetailnum) {
23 # there's somehow an existing default rate. remove it.
24 my $old_default = $rate->default_detail;
25 my $error = $old_default->delete;
26 die "$error (removing old default rate)\n" if $error;
29 $rate->set('default_detailnum' => $rate_detail->ratedetailnum);
30 my $error = $rate->replace;
31 die "$error (setting default rate)\n" if $error;