projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
payment voiding part deux & credit card refunds!
[freeside.git]
/
httemplate
/
edit
/
process
/
part_bill_event.cgi
diff --git
a/httemplate/edit/process/part_bill_event.cgi
b/httemplate/edit/process/part_bill_event.cgi
index
4049ade
..
77dcd24
100755
(executable)
--- a/
httemplate/edit/process/part_bill_event.cgi
+++ b/
httemplate/edit/process/part_bill_event.cgi
@@
-5,14
+5,14
@@
my $eventpart = $cgi->param('eventpart');
my $old = qsearchs('part_bill_event',{'eventpart'=>$eventpart}) if $eventpart;
#s/days/seconds/
my $old = qsearchs('part_bill_event',{'eventpart'=>$eventpart}) if $eventpart;
#s/days/seconds/
-$cgi->param('seconds',
$cgi->param('days') * 86400
);
+$cgi->param('seconds',
int( $cgi->param('days') * 86400 )
);
my $error;
if ( ! $cgi->param('plan_weight_eventcode') ) {
$error = "Must select an action";
} else {
my $error;
if ( ! $cgi->param('plan_weight_eventcode') ) {
$error = "Must select an action";
} else {
- $cgi->param('plan_weight_eventcode') =~ /^([\w\-]+):(\d+):(.*)$/
+ $cgi->param('plan_weight_eventcode') =~ /^([\w\-]+):(\d+):(.*)$/
s
or die "illegal plan_weight_eventcode:".
$cgi->param('plan_weight_eventcode');
$cgi->param('plan', $1);
or die "illegal plan_weight_eventcode:".
$cgi->param('plan_weight_eventcode');
$cgi->param('plan', $1);
@@
-21,7
+21,8
@@
if ( ! $cgi->param('plan_weight_eventcode') ) {
my $plandata = '';
while ( $eventcode =~ /%%%(\w+)%%%/ ) {
my $field = $1;
my $plandata = '';
while ( $eventcode =~ /%%%(\w+)%%%/ ) {
my $field = $1;
- my $value = $cgi->param($field);
+ my $value = join(', ', $cgi->param($field) );
+ $cgi->param($field, $value); #in case it errors out
$eventcode =~ s/%%%$field%%%/$value/;
$plandata .= "$field $value\n";
}
$eventcode =~ s/%%%$field%%%/$value/;
$plandata .= "$field $value\n";
}