X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fflat.pm;h=f4031ec797f4c7f0b6085e6225df2a01ad7d3b2d;hb=2a863bbb144830dfb8fca4afb3af76a84a647c76;hp=39be379337ed25df42ea1afd0f1bc10248e692bd;hpb=6194551336a925ae5455cede68a7f73660b06bb6;p=freeside.git

diff --git a/FS/FS/part_pkg/flat.pm b/FS/FS/part_pkg/flat.pm
index 39be37933..f4031ec79 100644
--- a/FS/FS/part_pkg/flat.pm
+++ b/FS/FS/part_pkg/flat.pm
@@ -60,7 +60,13 @@ use FS::part_pkg;
 );
 
 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');
 }