freeside/FS/FS part_pkg.pm,1.27,1.28

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv24647

Modified Files:
	part_pkg.pm 
Log Message:
bypass plandata warning; we're accessing it on purpose

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- part_pkg.pm	8 Nov 2004 09:16:14 -0000	1.27
+++ part_pkg.pm	8 Nov 2004 09:24:54 -0000	1.28
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw( @ISA %freq %plans $DEBUG );
-use Carp qw(cluck);
+use Carp qw(carp cluck);
 use Tie::IxHash;
 use FS::Conf;
 use FS::Record qw( qsearch qsearchs dbh dbdef );
@@ -462,7 +462,7 @@
   } );
   return $part_pkg_option->optionvalue if $part_pkg_option;
   my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
-                     split("\n", $self->plandata );
+                     split("\n", $self->get('plandata') );
   return $plandata{$opt} if exists $plandata{$opt};
   cluck "Package definition option $opt not found in options or plandata!\n";
   '';