[freeside-commits] freeside/FS/FS part_pkg.pm,1.97.2.2,1.97.2.3

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	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.97.2.2
retrieving revision 1.97.2.3
diff -u -w -d -r1.97.2.2 -r1.97.2.3
--- part_pkg.pm	19 Dec 2009 19:10:45 -0000	1.97.2.2
+++ part_pkg.pm	30 Mar 2010 02:53:12 -0000	1.97.2.3
@@ -1179,6 +1179,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