X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fpart_event%2FAction%2FMixin%2Fcredit_flat.pm;h=c35d5d838a54e8f7f6a330fb855fac7d6fb1a6ba;hb=e8e6cb9e129eb20fef8e4fa19239c76b4280cf5f;hp=374cf5d6bb3e101e2ae0a73698786acbf342a1f6;hpb=a2671c1396fed27ff620a58fb46773408d21d194;p=freeside.git

diff --git a/FS/FS/part_event/Action/Mixin/credit_flat.pm b/FS/FS/part_event/Action/Mixin/credit_flat.pm
index 374cf5d6b..c35d5d838 100644
--- a/FS/FS/part_event/Action/Mixin/credit_flat.pm
+++ b/FS/FS/part_event/Action/Mixin/credit_flat.pm
@@ -19,7 +19,10 @@ sub option_fields {
 
 sub _calc_credit {
   my $self = shift;
-  $self->option('amount');
+  my $warnref = $_[2]; #other input not used by credit_flat
+  my $warning = $self->option('amount') ? '' : 'Amount set to zero ';
+  $$warnref .= $warning if ref($warnref);
+  return $self->option('amount');
 }
 
 1;