projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update address standardization for cust_location changes
[freeside.git]
/
FS
/
FS
/
part_event
/
Action
/
Mixin
/
credit_pkg.pm
diff --git
a/FS/FS/part_event/Action/Mixin/credit_pkg.pm
b/FS/FS/part_event/Action/Mixin/credit_pkg.pm
index
aeda92f
..
9dcd701
100644
(file)
--- a/
FS/FS/part_event/Action/Mixin/credit_pkg.pm
+++ b/
FS/FS/part_event/Action/Mixin/credit_pkg.pm
@@
-51,7
+51,7
@@
sub _calc_credit {
}
}
}
}
- my $percent = $self->
option('percent'
);
+ my $percent = $self->
_calc_credit_percent($cust_pkg
);
#my @arg = $no_cust_pkg{$what} ? () : ($cust_pkg);
my @arg = ($what eq 'setup_cost') ? () : ($cust_pkg);
#my @arg = $no_cust_pkg{$what} ? () : ($cust_pkg);
my @arg = ($what eq 'setup_cost') ? () : ($cust_pkg);
@@
-60,4
+60,9
@@
sub _calc_credit {
}
}
+sub _calc_credit_percent {
+ my( $self, $cust_pkg ) = @_;
+ $self->option('percent');
+}
+
1;
1;