projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7c1d5f4
)
bug squishing
author
jeff
<jeff>
Thu, 16 Nov 2006 15:37:42 +0000
(15:37 +0000)
committer
jeff
<jeff>
Thu, 16 Nov 2006 15:37:42 +0000
(15:37 +0000)
httemplate/edit/process/part_bill_event.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/process/part_bill_event.cgi
b/httemplate/edit/process/part_bill_event.cgi
index
cedba1e
..
af594f2
100755
(executable)
--- a/
httemplate/edit/process/part_bill_event.cgi
+++ b/
httemplate/edit/process/part_bill_event.cgi
@@
-18,15
+18,6
@@
% $cgi->param('weight', $2);
% my $eventcode = $3;
% my $plandata = '';
% $cgi->param('weight', $2);
% my $eventcode = $3;
% my $plandata = '';
-% while ( $eventcode =~ /%%%(\w+)%%%/ ) {
-% my $field = $1;
-% my $value = join(', ', $cgi->param($field) );
-% $cgi->param($field, $value); #in case it errors out
-% $eventcode =~ s/%%%$field%%%/$value/;
-% $plandata .= "$field $value\n";
-% }
-% $cgi->param('eventcode', $eventcode);
-% $cgi->param('plandata', $plandata);
%
% my $rnum;
% my $rtype;
%
% my $rnum;
% my $rtype;
@@
-52,14
+43,25
@@
% my $reason = new FS::reason ({ 'reason' => $reasonm,
% 'reason_type' => $rtype,
% });
% my $reason = new FS::reason ({ 'reason' => $reasonm,
% 'reason_type' => $rtype,
% });
-% $error = $reason->insert
or $rnum = $reason->reasonnum
;
+% $error = $reason->insert;
% unless ($error) {
% unless ($error) {
+% $rnum = $reason->reasonnum;
% $cgi->param("${class}reason", $rnum);
% $cgi->param("new${class}reason", '');
% $cgi->param("new${class}reasonT", '');
% }
% }
%
% $cgi->param("${class}reason", $rnum);
% $cgi->param("new${class}reason", '');
% $cgi->param("new${class}reasonT", '');
% }
% }
%
+% while ( $eventcode =~ /%%%(\w+)%%%/ ) {
+% my $field = $1;
+% my $value = join(', ', $cgi->param($field) );
+% $cgi->param($field, $value); #in case it errors out
+% $eventcode =~ s/%%%$field%%%/$value/;
+% $plandata .= "$field $value\n";
+% }
+% $cgi->param('eventcode', $eventcode);
+% $cgi->param('plandata', $plandata);
+%
% unless($error){
% my $new = new FS::part_bill_event ( {
% map {
% unless($error){
% my $new = new FS::part_bill_event ( {
% map {