From: ivan <ivan>
Date: Thu, 10 Aug 2006 02:27:35 +0000 (+0000)
Subject: better debugging for missing recur_fee so its easier to check the db
X-Git-Tag: BEFORE_RT_3_4_5^2~33
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=64aeaf538530faec44db4818e8ecadfd0d1ee3f1;p=freeside.git

better debugging for missing recur_fee so its easier to check the db
---

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index aa39d890b..9de27f813 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -687,7 +687,8 @@ sub option {
   my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); }
                      split("\n", $self->get('plandata') );
   return $plandata{$opt} if exists $plandata{$opt};
-  cluck "Package definition option $opt not found in options or plandata!\n"
+  cluck "WARNING: (pkgpart ". $self->pkgpart. ") Package def option $opt".
+        "not found in options or plandata!\n"
     unless $ornull;
   '';
 }