X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcdr.pm;h=3af776b70c497db05b4e81d941adac2fa7906095;hp=4126d5f9a2eb0dc4dbb3412443bef8f1855f1a2d;hb=a0956b1c4c7dc4193312945353b08098106e5b48;hpb=d88573ffdbf81830da692c49461664fc076f855d

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index 4126d5f9a..3af776b70 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -1049,6 +1049,31 @@ sub rate_single_price {
 
 }
 
+=item rate_cost
+
+Rates an already-rated CDR according to the cost fields from the rate plan.
+
+Returns the amount.
+
+=cut
+
+sub rate_cost {
+  my $self = shift;
+
+  return 0 unless $self->rated_ratedetailnum;
+
+  my $rate_detail =
+    qsearchs('rate_detail', { 'ratedetailnum' => $self->rated_ratedetailnum } );
+
+  return $rate_detail->min_cost if $self->rated_granularity == 0;
+
+  my $minutes = $self->rated_seconds / 60;
+  my $charge = $rate_detail->conn_cost + $minutes * $rate_detail->min_cost;
+
+  sprintf('%.2f', $charge + .00001 );
+
+}
+
 =item cdr_termination [ TERMPART ]
 
 =cut