$cust_main->country,
'</TD></TR>',
;
- my $daytime_label = gettext('daytime') || 'Day Phone';
- my $night_label = gettext('night') || 'Night Phone';
- print '<TR><TD ALIGN="right">$daytime_label</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
+ my $daytime_label = FS::Msgcat::_gettext('daytime') || 'Day Phone';
+ my $night_label = FS::Msgcat::_gettext('night') || 'Night Phone';
+ print '<TR><TD ALIGN="right">'. $daytime_label.
+ '</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
$cust_main->daytime || ' ', '</TD></TR>',
- '<TR><TD ALIGN="right">$night_label</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
+ '<TR><TD ALIGN="right">'. $night_label.
+ '</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
$cust_main->night || ' ', '</TD></TR>',
'<TR><TD ALIGN="right">Fax</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
$cust_main->fax || ' ', '</TD></TR>',
$cust_main->get("${pre}country"),
'</TD></TR>',
;
- print '<TR><TD ALIGN="right">$daytime_label</TD>',
+ print '<TR><TD ALIGN="right">'. $daytime_label. '</TD>',
'<TD COLSPAN=5 BGCOLOR="#ffffff">',
$cust_main->get("${pre}daytime") || ' ', '</TD></TR>',
- '<TR><TD ALIGN="right">$night_label</TD>'.
+ '<TR><TD ALIGN="right">'. $night_label. '</TD>'.
'<TD COLSPAN=5 BGCOLOR="#ffffff">',
$cust_main->get("${pre}night") || ' ', '</TD></TR>',
'<TR><TD ALIGN="right">Fax</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
== true)
window.location.href = href;
}
+function cust_pay_unapply_areyousure(href) {
+ if (confirm("Are you sure you want to unapply this payment?")
+ == true)
+ window.location.href = href;
+}
</SCRIPT>
END
my $delete = $payment->closed !~ /^Y/i && $conf->exists('deletepayments')
? qq! (<A HREF="javascript:cust_pay_areyousure('${p}misc/delete-cust_pay.cgi?!. $payment->paynum. qq!')">delete</A>)!
: '';
+ my $unapply =
+ $payment->closed !~ /^Y/i && $conf->exists('unapplypayments')
+ ? qq! (<A HREF="javascript:cust_pay_unapply_areyousure('${p}misc/unapply-cust_pay.cgi?!. $payment->paynum. qq!')">unapply</A>)!
+ : '';
push @history,
- "$date\tPayment, Invoice #$invnum ($payby$payinfo)$delete\t\t$paid\t\t\t$target";
+ "$date\tPayment, Invoice #$invnum ($payby$payinfo)$delete$unapply\t\t$paid\t\t\t$target";
}
my(@cust_credit_bill)=