X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=90299e4dd494547bb7d2fe7df165cade1e450bd8;hb=a4c96748eb6eab29a70f3a944c6520283a635c78;hp=a32abc0e1cfc1c4daff291bbeb7f2d28a5557774;hpb=fbcb45dfe5a1bce7981fe4527176b9fdf2ec54b7;p=freeside.git diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index a32abc0e1..90299e4dd 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -1,44 +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 ); -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; - -print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar( + +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!; @@ -53,10 +27,17 @@ unless ( $conf->exists('disable_customer_referrals') ) { print qq! | !, - qq!View this customer's referrals!; + qq!View this customer's referrals!; } print '

'; + +my $signupurl = $conf->config('signupurl'); +if ( $signupurl ) { +print "This customer's signup URL: ". + "$signupurl?ref=$custnum

"; +} + print ''; print &itable(), ''; @@ -68,8 +49,12 @@ print ''; 'Contact name', '', $cust_main->last, ', ', $cust_main->first, - 'SS#', - $cust_main->ss || ' ', '', + ''; +print 'SS#', + $cust_main->ss || ' ', '' + if $conf->exists('show_ss'); + +print '', 'Company', $cust_main->company, '', @@ -151,15 +136,16 @@ print ''; $custnum, '', ; - @agents = qsearch( 'agent', {} ); + my @agents = qsearch( 'agent', {} ); + my $agent; unless ( scalar(@agents) == 1 ) { - $agent = qsearchs('agent',{ - 'agentnum' => $cust_main->agentnum - } ); + $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } ); print 'Agent', $agent->agentnum, ": ", $agent->agent, ''; + } 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 @@ -181,7 +167,11 @@ print ''; $cust_main->referral_custnum. '">'. $cust_main->referral_custnum. ': '. ( $referring_cust_main->company - || $referring_cust_main->last. ', '. $referring_cust_main->first ). + ? $referring_cust_main->company. ' ('. + $referring_cust_main->last. ', '. $referring_cust_main->first. + ')' + : $referring_cust_main->last. ', '. $referring_cust_main->first + ). ''; } print ''; @@ -190,7 +180,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), @@ -249,6 +239,24 @@ if ( defined $cust_main->dbdef_table->column('comments') print ''; +print '
'. + '
'. + qq!!. + '
'; + print qq!
Packages !, # qq!
Click on package number to view/edit package.!, qq!( Order and cancel packages (preserves services) )!, @@ -268,14 +276,15 @@ print qq!!, &table(), "\n", 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; @@ -319,6 +328,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! ( !. @@ -332,10 +351,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 :) -@bills = qsearch('cust_bill',{'custnum'=>$custnum}); -foreach $bill (@bills) { +my %target = (); + +my @bills = qsearch('cust_bill',{'custnum'=>$custnum}); +foreach my $bill (@bills) { my($bref)=$bill->hashref; my $bpre = ( $bill->owed > 0 ) ? ' Open ' @@ -359,9 +380,16 @@ foreach $bill (@bills) { $payment->payinfo, $cust_bill_pay->amount, ); - $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4) if $payby eq 'CARD'; + $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4) + if $payby eq 'CARD'; + 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"; + "$date\tPayment, Invoice #$invnum ($payby$payinfo)$delete\t\t$paid\t\t\t$target"; } my(@cust_credit_bill)= @@ -382,9 +410,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" . @@ -411,12 +439,24 @@ foreach my $refund (@refunds) { my @unapplied_payments = grep { $_->unapplied > 0 } qsearch('cust_pay', { 'custnum' => $custnum } ); 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) + if $payby eq 'CARD'; + 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 . "". - "\t\t" . $payment->unapplied . "\t\t"; + $payment->paynum . " ($payby$payinfo) ". + '('. + "apply)$delete". + "\t\t" . $payment->unapplied . "\t\t\t$target"; } #formatting @@ -434,17 +474,24 @@ END #display payment history -$balance = 0; -foreach $item (sort keyfield_numerically @history) { - my($date,$desc,$charge,$payment,$credit,$refund)=split(/\t/,$item); +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; $credit ||= 0; $refund ||= 0; $balance += $charge - $payment; $balance -= $credit - $refund; - - print "",time2str("%D",$date),"", + $balance = sprintf("%.2f", $balance); + $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp + $target = '' unless defined $target; + + print ""; + print qq!! unless $target && $target{$target}++; + print time2str("%D",$date); + print '' if $target && $target{$target} == 1; + print "", "$desc", "", ( $charge ? "\$".sprintf("%.2f",$charge) : '' ), @@ -458,7 +505,7 @@ foreach $item (sort keyfield_numerically @history) { "", ( $refund ? "\$".sprintf("%.2f",$refund) : '' ), "", - "\$" . sprintf("%.2f",$balance), + "\$" . $balance, "", "\n"; }