[freeside-commits] freeside/FS/FS rate_detail.pm,1.5,1.5.2.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv3967/FS/FS

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	rate_detail.pm 
Log Message:
new rate editor

Index: rate_detail.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/rate_detail.pm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -u -d -r1.5 -r1.5.2.1
--- rate_detail.pm	20 Mar 2006 19:13:26 -0000	1.5
+++ rate_detail.pm	10 Jan 2008 21:53:24 -0000	1.5.2.1
@@ -126,6 +126,18 @@
   $self->SUPER::check;
 }
 
+=item rate 
+
+Returns the parent call plan (see L<FS::rate>) associated with this call plan
+rate.
+
+=cut
+
+sub rate {
+  my $self = shift;
+  qsearchs('rate', { 'ratenum' => $self->ratenum } );
+}
+
 =item orig_region 
 
 Returns the origination region (see L<FS::rate_region>) associated with this
@@ -150,6 +162,31 @@
   qsearchs('rate_region', { 'regionnum' => $self->dest_regionnum } );
 }
 
+=item dest_regionname
+
+Returns the name of the destination region (see L<FS::rate_region>) associated
+with this call plan rate.
+
+=cut
+
+sub dest_regionname {
+  my $self = shift;
+  $self->dest_region->regionname;
+}
+
+=item dest_regionname
+
+Returns a short list of the prefixes for the destination region
+(see L<FS::rate_region>) associated with this call plan rate.
+
+=cut
+
+sub dest_prefixes_short {
+  my $self = shift;
+  $self->dest_region->prefixes_short;
+}
+
+
 =back
 
 =head1 BUGS