[freeside-commits] freeside/FS/FS/part_pkg flat.pm,1.12,1.13

[Ivan,,,]

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

Modified Files:
	flat.pm 
Log Message:
quiet a harmless but loud warning

Index: flat.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- flat.pm	17 Jan 2007 16:41:38 -0000	1.12
+++ flat.pm	2 Feb 2007 06:29:34 -0000	1.13
@@ -62,7 +62,8 @@
 sub calc_setup {
   my($self, $cust_pkg, $sdate, $details ) = @_;
 
-  my ( $i, $count ) = ( 0, $self->option( 'additional_count' ) );
+  my $i = 0;
+  my $count = $self->option( 'additional_count', 'quiet' ) || 0;
   while ($i < $count) {
     push @$details, $self->option( 'additional_info' . $i++ );
   }