projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 82092 - Removed reload of DB Schema
[freeside.git]
/
httemplate
/
edit
/
process
/
cust_credit.cgi
diff --git
a/httemplate/edit/process/cust_credit.cgi
b/httemplate/edit/process/cust_credit.cgi
index
e442d7f
..
0b93c64
100755
(executable)
--- a/
httemplate/edit/process/cust_credit.cgi
+++ b/
httemplate/edit/process/cust_credit.cgi
@@
-14,9
+14,9
@@
%
% $dbh->commit or die $dbh->errstr if $oldAutoCommit;
%
%
% $dbh->commit or die $dbh->errstr if $oldAutoCommit;
%
-<
% header(emt('Credit successful')) %
>
+<
& /elements/header-popup.html, emt('Credit successful') &
>
<SCRIPT TYPE="text/javascript">
<SCRIPT TYPE="text/javascript">
-
window.top.location.
reload();
+
top
reload();
</SCRIPT>
</BODY></HTML>
</SCRIPT>
</BODY></HTML>
@@
-42,11
+42,20
@@
if (!$reasonnum) {
}
$cgi->param('reasonnum', $reasonnum) unless $error;
}
$cgi->param('reasonnum', $reasonnum) unless $error;
+my $_date;
+if ( $FS::CurrentUser::CurrentUser->access_right('Backdate credit') ) {
+ $_date = parse_datetime($cgi->param('_date'));
+}
+else {
+ $_date = time;
+}
+
+my @fields = grep { $_ ne '_date' } fields('cust_credit');
+
unless ($error) {
my $new = new FS::cust_credit ( {
unless ($error) {
my $new = new FS::cust_credit ( {
- map {
- $_, scalar($cgi->param($_));
- } fields('cust_credit')
+ _date => $_date,
+ map { $_ => scalar($cgi->param($_)) } @fields
} );
$error = $new->insert;
}
} );
$error = $new->insert;
}