projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 79353 Update discount reports
[freeside.git]
/
httemplate
/
view
/
cust_refund.html
diff --git
a/httemplate/view/cust_refund.html
b/httemplate/view/cust_refund.html
index
996b4c0
..
d5f5eb2
100644
(file)
--- a/
httemplate/view/cust_refund.html
+++ b/
httemplate/view/cust_refund.html
@@
-2,7
+2,12
@@
<& /elements/header-popup.html, mt('Refund Receipt') &>
<& /elements/header-popup.html, mt('Refund Receipt') &>
- <CENTER><A HREF="javascript:self.parent.location = '<% $pr_link %>'"><% mt('Print') |h %></A></CENTER><BR>
+ <DIV ALIGN="center">
+ <A HREF="javascript:self.parent.location = '<% $pr_link %>'"><% mt('Print') |h %></A>
+% if ( $cust_main->invoicing_list_emailonly ) {
+ | <A HREF="javascript:self.location = '<% $email_link %>'"><% mt('Email') |h %></A>
+% }
+ </DIV>
% } elsif ( $link eq 'print' ) {
% } elsif ( $link eq 'print' ) {
@@
-16,6
+21,12
@@
%>
<BR><BR>
%>
<BR><BR>
+% } elsif ( $link eq 'email' ) {
+% if ( $email_error ) {
+ <& /elements/header-popup.html, mt("Error re-emailing receipt: [_1]", $email_error) &>
+% } else {
+ <& /elements/header-popup.html, mt("Re-emailed receipt") &>
+% }
% } else {
<& /elements/header.html, mt('Refund Receipt'), menubar(
% } else {
<& /elements/header.html, mt('Refund Receipt'), menubar(
@@
-26,7
+37,7
@@
% }
% }
-% unless ($link
eq 'popup'
) {
+% unless ($link
=~ /^(popup|email)$/
) {
<& /elements/small_custview.html,
$custnum,
scalar($conf->config('countrydefault')),
<& /elements/small_custview.html,
$custnum,
scalar($conf->config('countrydefault')),
@@
-62,7
+73,7
@@
<TD BGCOLOR="#FFFFFF"><B><% $cust_refund->payby_name %><% $cust_refund->paymask ? ' #'.$cust_refund->paymask : '' %></B></TD>
</TR>
<TD BGCOLOR="#FFFFFF"><B><% $cust_refund->payby_name %><% $cust_refund->paymask ? ' #'.$cust_refund->paymask : '' %></B></TD>
</TR>
-% if ( $cust_refund->payby =~ /^(CARD|CHEK|LECB)$/ && $cust_refund->p
aybatch
) {
+% if ( $cust_refund->payby =~ /^(CARD|CHEK|LECB)$/ && $cust_refund->p
rocessor
) {
<TR>
<TD ALIGN="right"><% mt('Processor') |h %></TD>
<TR>
<TD ALIGN="right"><% mt('Processor') |h %></TD>
@@
-71,7
+82,7
@@
<TR>
<TD ALIGN="right"><% mt('Authorization #') |h %></TD>
<TR>
<TD ALIGN="right"><% mt('Authorization #') |h %></TD>
- <TD BGCOLOR="#FFFFFF"><B><% $cust_refund->auth
orization
%></B></TD>
+ <TD BGCOLOR="#FFFFFF"><B><% $cust_refund->auth %></B></TD>
</TR>
% if ( $cust_refund->order_number ) {
</TR>
% if ( $cust_refund->order_number ) {
@@
-91,9
+102,14
@@
window.print();
</SCRIPT>
window.print();
</SCRIPT>
-% }
+% }
elsif ( $link eq 'email' ) {
-% if ( $link =~ /^(popup|print)$/ ) {
+ <SCRIPT TYPE="text/javascript">
+ window.top.location.reload();
+ </SCRIPT>
+
+% }
+% if ( $link =~ /^(popup|print|email)$/ ) {
</BODY>
</HTML>
% } else {
</BODY>
</HTML>
% } else {
@@
-125,10
+141,13
@@
my $cust_refund = qsearchs({
});
die "Refund #$refundnum not found!" unless $cust_refund;
});
die "Refund #$refundnum not found!" unless $cust_refund;
+my $cust_main = $cust_refund->cust_main;
+
my $pr_link = "${p}view/cust_refund.html?link=print;refundnum=$refundnum";
my $pr_link = "${p}view/cust_refund.html?link=print;refundnum=$refundnum";
+my $email_link = "${p}view/cust_refund.html?link=email;refundnum=$refundnum";
my $custnum = $cust_refund->custnum;
my $custnum = $cust_refund->custnum;
-my $display_custnum = $cust_
refund->cust_
main->display_custnum;
+my $display_custnum = $cust_main->display_custnum;
my $conf = new FS::Conf;
my $conf = new FS::Conf;
@@
-136,4
+155,11
@@
my $money_char = $conf->config('money_char') || '$';
tie my %payby, 'Tie::IxHash', FS::payby->payby2longname;
tie my %payby, 'Tie::IxHash', FS::payby->payby2longname;
+my $email_error;
+
+if ( $link eq 'email' ) {
+ $email_error = $cust_refund->send_receipt( 'cust_main' => $cust_main );
+ warn "can't send refund receipt: $email_error" if $email_error;
+}
+
</%init>
</%init>