X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=dc4760d736fc768bd17d576c1104403c59c46df0;hb=69c6e80a7253f927af1780a3e0dd3fcf50110599;hp=eea2403c484a8503fee633ec5b0e31acdba8efac;hpb=92c43e05cdc7dc5c5a4f8d6b0017f7d699cda90d;p=freeside.git
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index eea2403c4..dc4760d73 100755
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -1,45 +1,18 @@
+
<%
-#
-
-use strict;
-use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral
- @packages $package @history @bills $bill @credits $credit
- $balance $item @agents @referrals @invoicing_list $n1 $conf
- $signupurl );
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use Date::Format;
-use FS::UID qw(cgisuidsetup);
-use FS::Record qw(qsearchs qsearch);
-use FS::CGI qw(header menubar popurl table itable ntable);
-use FS::cust_credit;
-use FS::cust_pay;
-use FS::cust_bill;
-use FS::part_pkg;
-use FS::cust_pkg;
-use FS::part_referral;
-use FS::agent;
-use FS::cust_main;
-use FS::cust_refund;
-use FS::cust_bill_pay;
-use FS::cust_credit_bill;
-
-$cgi = new CGI;
-&cgisuidsetup($cgi);
-
-$conf = new FS::Conf;
+
+my $conf = new FS::Conf;
print header("Customer View", menubar(
'Main Menu' => popurl(2)
));
die "No customer specified (bad URL)!" unless $cgi->keywords;
-($query) = $cgi->keywords; # needs parens with my, ->keywords returns array
+my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array
$query =~ /^(\d+)$/;
-$custnum = $1;
-$cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
+my $custnum = $1;
+my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
die "Customer not found!" unless $cust_main;
-$hashref = $cust_main->hashref;
print qq!Edit this customer!;
@@ -159,7 +132,8 @@ print '
';
$custnum, ' | ',
;
- @agents = qsearch( 'agent', {} );
+ my @agents = qsearch( 'agent', {} );
+ my $agent;
unless ( scalar(@agents) == 1 ) {
$agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
print 'Agent | ',
@@ -167,7 +141,7 @@ print ' | ';
} else {
$agent = $agents[0];
}
- @referrals = qsearch( 'part_referral', {} );
+ my @referrals = qsearch( 'part_referral', {} );
unless ( scalar(@referrals) == 1 ) {
my $referral = qsearchs('part_referral', {
'refnum' => $cust_main->refnum
@@ -202,7 +176,7 @@ print ' | ';
print ' ';
- @invoicing_list = $cust_main->invoicing_list;
+ my @invoicing_list = $cust_main->invoicing_list;
print "Billing information (",
qq!!, "Bill now)",
&ntable("#cccccc"), " |
", &ntable("#cccccc",2),
@@ -268,8 +242,11 @@ print ' '.
foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
my $pkgpart = $type_pkgs->pkgpart;
- my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } )
- or do { warn "unknown type_pkgs.pkgpart $pkgpart"; next; };
+# my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } )
+# or do { warn "unknown type_pkgs.pkgpart $pkgpart"; next; };
+ my $part_pkg =
+ qsearchs('part_pkg', { 'pkgpart' => $pkgpart, 'disabled' => '' } )
+ or next;
print qq! |
\n!;
#get package info
+my @packages;
if ( $conf->exists('hidecancelledpackages') ) {
@packages = sort { $a->pkgnum <=> $b->pkgnum } ($cust_main->ncancelled_pkgs);
} else {
@packages = sort { $a->pkgnum <=> $b->pkgnum } ($cust_main->all_pkgs);
}
-$n1 = '';
-foreach $package (@packages) {
+my $n1 = '
';
+foreach my $package (@packages) {
my $pkgnum = $package->pkgnum;
my $pkg = $package->part_pkg->pkg;
my $comment = $package->part_pkg->comment;
@@ -346,6 +324,16 @@ print "
";
#formatting
print "";
+print <
+function areyousure(href) {
+ if (confirm("Are you sure you want to delete this payment?")
+ == true)
+ window.location.href = href;
+}
+
+END
+
#formatting
print qq!
Payment History!.
qq! ( !.
@@ -359,12 +347,12 @@ print qq!
Payment History!.
# major problem: this whole thing is way too sloppy.
# minor problem: the description lines need better formatting.
-@history = (); #needed for mod_perl :)
+my @history = (); #needed for mod_perl :)
my %target = ();
-@bills = qsearch('cust_bill',{'custnum'=>$custnum});
-foreach $bill (@bills) {
+my @bills = qsearch('cust_bill',{'custnum'=>$custnum});
+foreach my $bill (@bills) {
my($bref)=$bill->hashref;
my $bpre = ( $bill->owed > 0 )
? ' Open '
@@ -393,8 +381,11 @@ foreach $bill (@bills) {
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;
$payby =~ s/^(CARD|COMP)$/$1 /;
+ my $delete = $payment->closed !~ /^Y/i && $conf->exists('deletepayments')
+ ? qq! (delete)!
+ : '';
push @history,
- "$date\tPayment, Invoice #$invnum ($payby$payinfo)\t\t$paid\t\t\t$target";
+ "$date\tPayment, Invoice #$invnum ($payby$payinfo)$delete\t\t$paid\t\t\t$target";
}
my(@cust_credit_bill)=
@@ -415,9 +406,9 @@ foreach $bill (@bills) {
}
}
-@credits = grep { $_->credited > 0 }
+my @credits = grep { $_->credited > 0 }
qsearch('cust_credit',{'custnum'=>$custnum});
-foreach $credit (@credits) {
+foreach my $credit (@credits) {
my($cref)=$credit->hashref;
push @history,
$cref->{_date} . "\t" .
@@ -452,11 +443,15 @@ foreach my $payment (@unapplied_payments) {
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;
$payby =~ s/^(CARD|COMP)$/$1 /;
+ my $delete = $payment->closed !~ /^Y/i && $conf->exists('deletepayments')
+ ? qq! (delete)!
+ : '';
push @history,
$payment->_date. "\t".
- ''.
'Unapplied payment #' .
- $payment->paynum . " ($payby$payinfo)".
+ $payment->paynum . " ($payby$payinfo) ".
+ '('.
+ "apply)$delete".
"\t\t" . $payment->unapplied . "\t\t\t$target";
}
@@ -475,8 +470,8 @@ END
#display payment history
-$balance = 0;
-foreach $item (sort keyfield_numerically @history) {
+my $balance = 0;
+foreach my $item (sort keyfield_numerically @history) {
my($date,$desc,$charge,$payment,$credit,$refund,$target)=split(/\t/,$item);
$charge ||= 0;
$payment ||= 0;
@@ -486,11 +481,12 @@ foreach $item (sort keyfield_numerically @history) {
$balance -= $credit - $refund;
$balance = sprintf("%.2f", $balance);
$balance =~ s/^\-0\.00$/0.00/; #yay ieee fp
+ $target = '' unless defined $target;
print "";
- print qq!! unless $target{$target}++;
+ print qq!! unless $target && $target{$target}++;
print time2str("%D",$date);
- print '' if $target{$target} == 1;
+ print '' if $target && $target{$target} == 1;
print " | ",
"$desc | ",
"",
|