prevent bug causing 'Error crediting customer for service remaining: FS::cust_pkg...

[freeside.git] / FS / FS / part_pkg.pm

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 63cf00f..faaf485 100644 (file)
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -190,7 +190,7 @@ sub insert {
   } elsif ( $options{'options'} ) {
 
     warn "  inserting part_pkg_option records for options hashref" if $DEBUG;
-    foreach my $optionname ( %{$options{'options'}} ) {
+    foreach my $optionname ( keys %{$options{'options'}} ) {
 
       my $part_pkg_option =
         new FS::part_pkg_option {
@@ -672,6 +672,11 @@ sub _calc_eval {
   $value;
 }
 
+#fallback that return 0 for old legacy packages with no plan
+
+sub calc_remain { 0; }
+sub calc_cancel { 0; }
+
 =back
 
 =head1 SUBROUTINES