[freeside-commits] freeside/FS/FS/part_pkg flat.pm,1.10,1.11

[Jeff Finucane,420,,]

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

Modified Files:
	flat.pm 
Log Message:
one-time charge enhancements

Index: flat.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- flat.pm	7 Dec 2006 02:40:31 -0000	1.10
+++ flat.pm	12 Jan 2007 02:04:49 -0000	1.11
@@ -60,7 +60,13 @@
 );
 
 sub calc_setup {
-  my($self, $cust_pkg ) = @_;
+  my($self, $cust_pkg, $sdate, $details ) = @_;
+
+  my ( $i, $count ) = ( 0, $self->option( 'additional_count' ) );
+  while ($i < $count) {
+    push @$details, $self->option( 'additional_info' . $i++ );
+  }
+
   $self->option('setup_fee');
 }