[freeside-commits] freeside/FS/FS rate_detail.pm,1.7,1.8

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv4192/FS/FS

Modified Files:
	rate_detail.pm 
Log Message:
fixup per call billing

Index: rate_detail.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/rate_detail.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- rate_detail.pm	13 Feb 2008 23:42:00 -0000	1.7
+++ rate_detail.pm	26 Mar 2008 15:43:05 -0000	1.8
@@ -5,6 +5,7 @@
 use FS::Record qw( qsearch qsearchs );
 use FS::rate;
 use FS::rate_region;
+use Tie::IxHash;
 
 @ISA = qw(FS::Record);
 
@@ -189,6 +190,31 @@
 
 =back
 
+=head1 SUBROUTINES
+
+=over 4
+
+=item granularities
+
+  Returns an (ordered) hash of granularity => name pairs
+
+=cut
+
+tie my %granularities, 'Tie::IxHash',
+  '1', => '1 second',
+  '6'  => '6 second',
+  '30' => '30 second', # '1/2 minute',
+  '60' => 'minute',
+  '0'  => 'call',
+;
+
+sub granularities {
+  %granularities;
+}
+
+
+=back
+
 =head1 BUGS
 
 =head1 SEE ALSO