projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1e2473f
)
17528: back-date payment access-right
author
Mike Robinson
<miker@freeside.biz>
Tue, 1 May 2012 17:32:53 +0000
(12:32 -0500)
committer
Mike Robinson
<miker@freeside.biz>
Tue, 1 May 2012 17:32:53 +0000
(12:32 -0500)
FS/FS/AccessRight.pm
patch
|
blob
|
history
FS/FS/access_right.pm
patch
|
blob
|
history
httemplate/edit/cust_pay.cgi
patch
|
blob
|
history
httemplate/edit/process/cust_pay.cgi
patch
|
blob
|
history
diff --git
a/FS/FS/AccessRight.pm
b/FS/FS/AccessRight.pm
index
8a13ab3
..
a39fb37
100644
(file)
--- a/
FS/FS/AccessRight.pm
+++ b/
FS/FS/AccessRight.pm
@@
-188,6
+188,7
@@
tie my %rights, 'Tie::IxHash',
'Customer payment rights' => [
'View payments',
{ rightname=>'Post payment', desc=>'Make check or cash payments.' },
'Customer payment rights' => [
'View payments',
{ rightname=>'Post payment', desc=>'Make check or cash payments.' },
+ { rightname=>'Backdate payment', desc=>'Enable payments to be posted for days other than today.' },
'Post check payment',
'Post cash payment',
'Post payment batch',
'Post check payment',
'Post cash payment',
'Post payment batch',
diff --git
a/FS/FS/access_right.pm
b/FS/FS/access_right.pm
index
815c6d9
..
719577f
100644
(file)
--- a/
FS/FS/access_right.pm
+++ b/
FS/FS/access_right.pm
@@
-185,6
+185,7
@@
sub _upgrade_data { # class method
my %onetime = (
'List customers' => 'List all customers',
'List packages' => 'Summarize packages',
my %onetime = (
'List customers' => 'List all customers',
'List packages' => 'Summarize packages',
+ 'Post payment' => 'Backdate payment',
);
foreach my $old_acl ( keys %onetime ) {
);
foreach my $old_acl ( keys %onetime ) {
diff --git
a/httemplate/edit/cust_pay.cgi
b/httemplate/edit/cust_pay.cgi
index
7a1bb00
..
f0826f6
100755
(executable)
--- a/
httemplate/edit/cust_pay.cgi
+++ b/
httemplate/edit/cust_pay.cgi
@@
-23,6
+23,7
@@
<% mt('Payment') |h %>
<% ntable("#cccccc", 2) %>
<% mt('Payment') |h %>
<% ntable("#cccccc", 2) %>
+% if ( $FS::CurrentUser::CurrentUser->access_right(['Backdate payment']) ) {
<TR>
<TD ALIGN="right"><% mt('Date') |h %></TD>
<TD COLSPAN=2>
<TR>
<TD ALIGN="right"><% mt('Date') |h %></TD>
<TD COLSPAN=2>
@@
-39,6
+40,15
@@
align: "BR"
});
</SCRIPT>
align: "BR"
});
</SCRIPT>
+% }
+% else {
+<TR>
+ <TD ALIGN="right"><% mt('Date') |h %></TD>
+ <TD COLSPAN=2>
+ <% time2str($date_format.' %r',$_date) %>
+ </TD>
+</TR>
+% }
<TR>
<TD ALIGN="right"><% mt('Amount') |h %></TD>
<TR>
<TD ALIGN="right"><% mt('Amount') |h %></TD>
diff --git
a/httemplate/edit/process/cust_pay.cgi
b/httemplate/edit/process/cust_pay.cgi
index
06f5e64
..
8664883
100755
(executable)
--- a/
httemplate/edit/process/cust_pay.cgi
+++ b/
httemplate/edit/process/cust_pay.cgi
@@
-39,7
+39,13
@@
$cgi->param('link') =~ /^(custnum|invnum|popup)$/
my $field = my $link = $1;
$field = 'custnum' if $field eq 'popup';
my $field = my $link = $1;
$field = 'custnum' if $field eq 'popup';
-my $_date = parse_datetime($cgi->param('_date'));
+my $_date;
+if ( $FS::CurrentUser::CurrentUser->access_right(['Backdate payment']) ) {
+ $_date = parse_datetime($cgi->param('_date'));
+}
+else {
+ $_date = time;
+}
my $new = new FS::cust_pay ( {
$field => $linknum,
my $new = new FS::cust_pay ( {
$field => $linknum,