- my $rd = new FS::rate_detail { 'ratenum' => $ratenum,
- 'min_included' => 0,
- 'min_charge' => $rate,
- 'sec_granularity' => 60,
- 'dest_regionnum' => $rp->regionnum,
- };
- $error = $rd->insert;
- fatal("can't insert rd") if $error;
+ #use Data::Dumper;
+ #warn Dumper($rp);
+
+ my %hash = ( 'min_included' => 0,
+ 'sec_granularity' => 6, #60,
+ 'dest_regionnum' => $rp->regionnum,
+ );
+
+ my $intra_rd = new FS::rate_detail { 'ratenum' => $intra_ratenum,
+ 'min_charge' => $intra_rate,
+ 'intra_class' => $intra_class,
+ %hash,
+ };
+ $error = $intra_rd->insert;
+ fatal("can't insert (intra) rd: $error") if $error;
+
+ my $inter_rd = new FS::rate_detail { 'ratenum' => $inter_ratenum,
+ 'min_charge' => $inter_rate,
+ 'inter_class' => $inter_class,
+ %hash,
+ };
+ $error = $inter_rd->insert;
+ fatal("can't insert (inter) rd: $error") if $error;