[freeside-commits] freeside/FS/FS part_pkg.pm,1.102,1.103

[Ivan,,,]

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

Modified Files:
	part_pkg.pm 
Log Message:
employee (otaker / access_user) commissioning, RT#6991

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -w -d -r1.102 -r1.103
--- part_pkg.pm	18 Mar 2010 07:59:51 -0000	1.102
+++ part_pkg.pm	30 Mar 2010 02:53:10 -0000	1.103
@@ -1209,6 +1209,18 @@
 #fallback for everything except bulk.pm
 sub hide_svc_detail { 0; }
 
+=item recur_cost_permonth CUST_PKG
+
+recur_cost divided by freq (only supported for monthly and longer frequencies)
+
+=cut
+
+sub recur_cost_permonth {
+  my($self, $cust_pkg) = @_;
+  return 0 unless $self->freq =~ /^\d+$/ && $self->freq > 0;
+  sprintf('%.2f', $self->recur_cost / $self->freq );
+}
+
 =item format OPTION DATA
 
 Returns data formatted according to the function 'format' described