X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=7d2d873151eecc9fe2ca6d7f5958f425bf47014b;hb=bd3a0f6ac3ce9370ee13b9c325e137e2ab533fce;hp=d960468a0454469c76feebb1a4a2d1385d804831;hpb=ee037398ef051cca986f799c52e52c0114f897c9;p=freeside.git
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index d960468a0..7d2d87315 100755
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -158,7 +158,7 @@ print '
', $cust_main->comments,
+ print " Comments". &ntable("#cccccc"). "".
+ &ntable("#cccccc",2).
+ ' '.
+ encode_entities($cust_main->comments).
' ';
}
@@ -266,12 +266,37 @@ foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
$part_pkg->comment;
}
-print ' ';
+print ' ';
+
+print ' '.
+ qq! !;
print <
function cust_pkg_areyousure(href) {
- if (confirm("Permanantly delete included services and cancel this package?") == true)
+ if (confirm("Permanently delete included services and cancel this package?") == true)
window.location.href = href;
}
@@ -364,7 +389,8 @@ foreach my $package (@packages) {
for ( qw( setup bill susp expire cancel ) ) {
print "", ( $package->getfield($_)
- ? time2str("%D", $package->getfield($_) )
+ ? time2str("%D %l:%M:%S%P %z ",
+ $package->getfield($_) )
: ' '
), ' ',
;
@@ -459,7 +485,7 @@ foreach my $bill (@bills) {
$payment->payinfo,
$cust_bill_pay->amount,
);
- $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4)
+ $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4))
if $payby eq 'CARD';
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;
@@ -542,7 +568,7 @@ foreach my $payment (@unapplied_payments) {
my $payby = $payment->payby;
my $payinfo = $payment->payinfo;
#false laziness w/above
- $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4)
+ $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4))
if $payby eq 'CARD';
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;
@@ -597,10 +623,10 @@ foreach my $item (sort keyfield_numerically @history) {
( $charge ? "\$".sprintf("%.2f",$charge) : '' ),
" ",
"",
- ( $payment ? "- \$".sprintf("%.2f",$payment) : '' ),
+ ( $payment ? "- \$".sprintf("%.2f",$payment) : '' ),
" ",
"",
- ( $credit ? "- \$".sprintf("%.2f",$credit) : '' ),
+ ( $credit ? "- \$".sprintf("%.2f",$credit) : '' ),
" ",
"",
( $refund ? "\$".sprintf("%.2f",$refund) : '' ),