X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=0610bc324004b67d58f33a749d99bdd5e342e053;hb=c1e33a61324f4e06157c522af7882a97a021830f;hp=630d9e568e9b618f944e38ab9933f04c0473ed4a;hpb=d16051449aa84da6705b46573ccd98abdcb7551b;p=freeside.git
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index 630d9e568..0610bc324 100755
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -241,9 +241,10 @@ print '';
if ( defined $cust_main->dbdef_table->column('comments')
&& $cust_main->comments )
{
- print "
Comments", &ntable("#cccccc"), "
', $cust_main->comments,
+ print " Comments". &ntable("#cccccc"). "".
+ &ntable("#cccccc",2).
+ ' | '.
+ encode_entities($cust_main->comments).
' | ';
}
@@ -271,13 +272,35 @@ print ' '.
qq! !;
+ qq! Amount:!.
+ qq! !;
+
+#false laziness w/ edit/part_pkg.cgi
+if ( $conf->exists('enable_taxclasses') ) {
+ print '';
+} else {
+ 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;
+}
+function svc_areyousure(href) {
+ if (confirm("Permanently unprovision and delete this service?") == true)
window.location.href = href;
}
@@ -382,6 +405,7 @@ foreach my $package (@packages) {
#foreach my $cust_svc ( @cust_svc ) {
foreach my $svcpart ( sort { $a<=>$b } keys %pkg_svc ) {
my $svc = qsearchs('part_svc',{'svcpart'=>$svcpart})->getfield('svc');
+ $svc =~ s/ / /g;
my(@cust_svc)=qsearch('cust_svc',{'pkgnum'=>$pkgnum,
'svcpart'=>$svcpart,
});
@@ -392,13 +416,13 @@ foreach my $package (@packages) {
my($svcnum) = $cust_svc->svcnum;
my($sview) = popurl(2). "view";
print $n2,qq!$label | !,
- qq!$value | !;
+ qq!$value ( Unprovision ) | !;
} else {
print $n2, qq!!.
- qq!Provision $svc!;
+ qq!Provision $svc!;
print qq! !.
- qq!Link to legacy $svc!
+ qq!Link to legacy $svc!
if $conf->exists('legacy_link');
print ' | ';
@@ -466,7 +490,7 @@ foreach my $bill (@bills) {
$payment->payinfo,
$cust_bill_pay->amount,
);
- $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(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;
@@ -549,7 +573,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;
@@ -604,10 +628,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) : '' ),
|