diff options
Diffstat (limited to 'httemplate/view/cust_main')
| -rw-r--r-- | httemplate/view/cust_main/billing.html | 214 | ||||
| -rw-r--r-- | httemplate/view/cust_main/contacts.html | 122 | ||||
| -rw-r--r-- | httemplate/view/cust_main/misc.html | 112 | ||||
| -rwxr-xr-x | httemplate/view/cust_main/notes.html | 93 | ||||
| -rwxr-xr-x | httemplate/view/cust_main/packages.html | 629 | ||||
| -rw-r--r-- | httemplate/view/cust_main/payment_history.html | 630 | ||||
| -rw-r--r-- | httemplate/view/cust_main/tickets.html | 84 |
7 files changed, 0 insertions, 1884 deletions
diff --git a/httemplate/view/cust_main/billing.html b/httemplate/view/cust_main/billing.html deleted file mode 100644 index fa3863b13..000000000 --- a/httemplate/view/cust_main/billing.html +++ /dev/null @@ -1,214 +0,0 @@ -Billing information -%# If we can't see the unencrypted card, then bill now is an exercise in -%# frustration (without some sort of job queue magic to send it to a secure -%# machine, anyway) -%if ( $FS::CurrentUser::CurrentUser->access_right('Bill customer now') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - (<A HREF="<% $p %>misc/bill.cgi?<% $cust_main->custnum %>">Bill now</A>) -% } - -<% ntable("#cccccc") %><TR><TD><% ntable("#cccccc",2) %> - -%( my $balance = $cust_main->balance ) -% =~ s/^(\-?)(.*)$/<FONT SIZE=+1>$1<\/FONT>$money_char$2/; - -<TR> - <TD ALIGN="right">Balance due</TD> - <TD BGCOLOR="#ffffff"><B><% $balance %></B></TD> -</TR> - -<TR> - <TD ALIGN="right">Billing type</TD> - <TD BGCOLOR="#ffffff"> -% if ( $cust_main->payby eq 'CARD' || $cust_main->payby eq 'DCRD' ) { - - - Credit card <% $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' %> - </TD> -</TR> -<TR> - <TD ALIGN="right">Card number</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->paymask %></TD> -</TR> -% -%#false laziness w/elements/select-month_year.html & edit/cust_main/billing.html -%my( $mon, $year ); -%my $date = $cust_main->paydate || '12-2037'; -%if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format -% ( $mon, $year ) = ( $2, $1 ); -%} elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) { -% ( $mon, $year ) = ( $1, $3 ); -%} else { -% warn "unrecognized expiration date format: $date"; -% ( $mon, $year ) = ( '', '' ); -%} -% - -<TR> - <TD ALIGN="right">Expiration</TD> - <TD BGCOLOR="#ffffff"><% "$mon/$year" %></TD> -</TR> -% if ( $cust_main->paystart_month ) { - - <TR> - <TD ALIGN="right">Start date</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->paystart_month. '/'. $cust_main->paystart_year %> - </TR> -% } elsif ( $cust_main->payissue ) { - - <TR> - <TD ALIGN="right">Issue #</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->payissue %> - </TR> -% } - - -<TR> - <TD ALIGN="right">Name on card</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->payname %></TD> -</TR> -% } elsif ( $cust_main->payby eq 'CHEK' || $cust_main->payby eq 'DCHK') { -% my( $account, $aba ) = split('@', $cust_main->payinfo ); -% - - - Electronic check <% $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' %> - </TD> -</TR> -<TR> - <TD ALIGN="right">ABA/Routing code</TD> - <TD BGCOLOR="#ffffff"><% $aba %></TD> -</TR> -<TR> - <TD ALIGN="right">Account number</TD> - <TD BGCOLOR="#ffffff"><% 'x'x(length($account)-2). substr($account,(length($account)-2)) %></TD> -</TR> -<TR> - <TD ALIGN="right">Account type</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->paytype %></TD> -</TR> -<TR> - <TD ALIGN="right">Bank name</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->payname %></TD> -</TR> -% if ( $conf->exists('show_bankstate') ) { -<TR> - <TD ALIGN="right"><% $paystate_label %></TD> - <TD BGCOLOR="#ffffff"><% $cust_main->paystate || ' ' %></TD> -</TR> -% } -% } elsif ( $cust_main->payby eq 'LECB' ) { -% $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/; -% my $payinfo = "$1-$2-$3"; -% - - - Phone bill billing - </TD> -</TR> -<TR> - <TD ALIGN="right">Phone number</TD> - <TD BGCOLOR="#ffffff"><% $payinfo %></TD> -</TR> -% } elsif ( $cust_main->payby eq 'BILL' ) { - - - Billing - </TD> -</TR> -% if ( $cust_main->payinfo ) { - -<TR> - <TD ALIGN="right">P.O. </TD> - <TD BGCOLOR="#ffffff"><% $cust_main->payinfo %></TD> -</TR> -% } - - -<TR> - <TD ALIGN="right">Attention</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->payname %></TD> -</TR> -% } elsif ( $cust_main->payby eq 'COMP' ) { - - - Complimentary - </TD> -</TR> -<TR> - <TD ALIGN="right">Authorized by</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->payinfo %></TD> -</TR> -% -%#false laziness w/above etc. -%my( $mon, $year ); -%my $date = $cust_main->paydate || '12-2037'; -%if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format -% ( $mon, $year ) = ( $2, $1 ); -%} elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) { -% ( $mon, $year ) = ( $1, $3 ); -%} else { -% warn "unrecognized expiration date format: $date"; -% ( $mon, $year ) = ( '', '' ); -%} -% - -<TR> - <TD ALIGN="right">Expiration</TD> - <TD BGCOLOR="#ffffff"><% "$mon/$year" %></TD> -</TR> -% } - - -<TR> - <TD ALIGN="right">Tax exempt</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->tax ? 'yes' : 'no' %></TD> -</TR> -<TR> - <TD ALIGN="right">Postal invoices</TD> - <TD BGCOLOR="#ffffff"> - <% ( grep { $_ eq 'POST' } @invoicing_list ) ? 'yes' : 'no' %> - </TD> -</TR> -<TR> - <TD ALIGN="right">FAX invoices</TD> - <TD BGCOLOR="#ffffff"> - <% ( grep { $_ eq 'FAX' } @invoicing_list ) ? 'yes' : 'no' %> - </TD> -</TR> -<TR> - <TD ALIGN="right">Email invoices</TD> - <TD BGCOLOR="#ffffff"> - <% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || 'no' %> - </TD> -</TR> -<TR> - <TD ALIGN="right">Invoice terms</TD> - <TD BGCOLOR="#ffffff"> - <% $cust_main->invoice_terms || 'Default ('. ( $conf->config('invoice_default_terms') || 'Payable upon receipt' ). ')' %> - </TD> -</TR> - -% if ( $conf->exists('voip-cust_cdr_spools') ) { - <TR> - <TD ALIGN="right">Spool CDRs</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->spool_cdr ? 'yes' : 'no' %></TD> - </TR> -% } - -</TABLE></TD></TR></TABLE> -<%once> - -my $paystate_label = FS::Msgcat::_gettext('paystate'); -$paystate_label = 'Bank state' if $paystate_label =~/^paystate$/; - -</%once> -<%init> - -my( $cust_main ) = @_; -my @invoicing_list = $cust_main->invoicing_list; -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - -</%init> diff --git a/httemplate/view/cust_main/contacts.html b/httemplate/view/cust_main/contacts.html deleted file mode 100644 index e88c02ea5..000000000 --- a/httemplate/view/cust_main/contacts.html +++ /dev/null @@ -1,122 +0,0 @@ -% my %which = ( -% '' => 'Billing', -% 'ship_' => 'Service', -% ); -% foreach my $which ( '', 'ship_' ) { -% my $pre = $cust_main->get("${which}last") ? $which : ''; - -<% $which{$which} %> address -<% ntable("#cccccc") %><TR><TD><% ntable("#cccccc",2) %> -<TR> - <TD ALIGN="right">Contact name</TD> - <TD COLSPAN=5 BGCOLOR="#ffffff"> - <% $cust_main->get("${pre}last"). ', '. $cust_main->get("${pre}first") %> - </TD> -% if ( $which eq '' && $conf->exists('show_ss') ) { - <TD ALIGN="right">SS#</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->masked('ss') || ' ' %></TD> -% } -</TR> -<TR> - <TD ALIGN="right">Company</TD> - <TD COLSPAN=7 BGCOLOR="#ffffff"><% $cust_main->get("${pre}company") %></TD> -</TR> -<TR> - <TD ALIGN="right">Address</TD> - <TD COLSPAN=7 BGCOLOR="#ffffff"><% $cust_main->get("${pre}address1") %></TD> -</TR> - -% if ( $cust_main->get("${pre}address2") ) { -% my $address2_label = -% ( $conf->exists('cust_main-require_address2') -% && ! ( $pre xor $cust_main->has_ship_address ) -% ) -% ? 'Unit #' -% : ' '; - - <TR> - <TD ALIGN="right"><% $address2_label %></TD> - <TD COLSPAN=7 BGCOLOR="#ffffff"><% $cust_main->get("${pre}address2") %></TD> - </TR> - -% } - -<TR> - <TD ALIGN="right">City</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->get("${pre}city") %></TD> -% if ( $cust_main->get("${pre}county") ) { - <TD ALIGN="right">County</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->get("${pre}county") %></TD> -% } - <TD ALIGN="right">State</TD> - <TD BGCOLOR="#ffffff"><% state_label( $cust_main->get("${pre}state"), $cust_main->get("${pre}country") ) %></TD> - <TD ALIGN="right">Zip</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->get("${pre}zip") %></TD> -</TR> -<TR> - <TD ALIGN="right">Country</TD> - <TD BGCOLOR="#ffffff"><% code2country( $cust_main->get("${pre}country") ) %></TD> -</TR> -<TR> - <TD ALIGN="right"><% $daytime_label %></TD> - <TD COLSPAN=3 BGCOLOR="#ffffff"> - <% include('/elements/phonenumber.html', - $cust_main->get("${pre}daytime"), - 'callable'=>1 - ) - %> - </TD> -</TR> -<TR> - <TD ALIGN="right"><% $night_label %></TD> - <TD COLSPAN=3 BGCOLOR="#ffffff"> - <% include('/elements/phonenumber.html', - $cust_main->get("${pre}night"), - 'callable'=>1 - ) - %> - </TD> -</TR> -<TR> - <TD ALIGN="right">Fax</TD> - <TD COLSPAN=3 BGCOLOR="#ffffff"> - <% $cust_main->get("${pre}fax") || ' ' %> - </TD> -</TR> -% if ( $which eq '' && $conf->exists('show_stateid') ) { - <TR> - <TD ALIGN="right"><% $stateid_label %></TD> - <TD BGCOLOR="#ffffff"><% $cust_main->masked('stateid') || ' ' %></TD> - <TD ALIGN="right"><% $stateid_state_label %></TD> - <TD BGCOLOR="#ffffff"><% $cust_main->stateid_state || ' ' %></TD> - </TR> -% } -</TABLE></TD></TR></TABLE> -% if ( $which ne 'ship_' ) { -<BR> -% } -% } - -<%once> - -my $daytime_label = FS::Msgcat::_gettext('daytime') =~ /^(daytime)?$/ - ? 'Day Phone' - : FS::Msgcat::_gettext('daytime'); -my $night_label = FS::Msgcat::_gettext('night') =~ /^(night)?$/ - ? 'Night Phone' - : FS::Msgcat::_gettext('night'); -my $stateid_label = FS::Msgcat::_gettext('stateid') =~ /^(stateid)?$/ - ? 'Driver’s License' - : FS::Msgcat::_gettext('stateid'); -my $stateid_state_label = FS::Msgcat::_gettext('stateid_state') =~ /^(stateid_state)?$/ - ? 'Driver’s License State' - : FS::Msgcat::_gettext('stateid_state'); - -</%once> -<%init> - -my( $cust_main ) = @_; -my $conf = new FS::Conf; - -</%init> - diff --git a/httemplate/view/cust_main/misc.html b/httemplate/view/cust_main/misc.html deleted file mode 100644 index 9528db243..000000000 --- a/httemplate/view/cust_main/misc.html +++ /dev/null @@ -1,112 +0,0 @@ -% -% my( $cust_main ) = @_; -% my $conf = new FS::Conf; -% my $date_format = ($conf->config('date_format') || "%m/%d/%Y"); -% - - -<% ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %> - -<TR> - <TD ALIGN="right">Customer number</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->custnum %></TD> -</TR> - -<TR> - <TD ALIGN="right">Status</TD> - <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD> -</TR> -% -% my @agents = qsearch( 'agent', {} ); -% my $agent; -% unless ( scalar(@agents) == 1 ) { -% $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } ); -% - - -<TR> - <TD ALIGN="right">Agent</TD> - <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD> -</TR> -% -% } else { -% $agent = $agents[0]; -% } -% -% if ( $cust_main->agent_custid ) { -% - - -<TR> - <TD ALIGN="right">Agent customer ref#</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD> -</TR> -% -% } -% -% unless ( FS::part_referral->num_part_referral == 1 ) { -% my $referral = qsearchs('part_referral', { -% 'refnum' => $cust_main->refnum -% } ); -% - - -<TR> - <TD ALIGN="right">Advertising source</TD> - <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD> -</TR> -% } - - -<TR> - <TD ALIGN="right">Referring Customer</TD> - <TD BGCOLOR="#ffffff"> -% -% my $referring_cust_main = ''; -% if ( $cust_main->referral_custnum -% && ( $referring_cust_main = -% qsearchs('cust_main', { custnum => $cust_main->referral_custnum } ) -% ) -% ) { -% - - -<A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$cust_main->referral_custnum %>: -<% - ( $referring_cust_main->company - ? $referring_cust_main->company. ' ('. - $referring_cust_main->last. ', '. $referring_cust_main->first. - ')' - : $referring_cust_main->last. ', '. $referring_cust_main->first - ) -%></A> -% } - - - </TD> -</TR> - -<TR> - <TD ALIGN="right">Order taker</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD> -</TR> - - <TR> - <TD ALIGN="right">Signup Date</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD> - </TR> - -% if ( $conf->exists('cust_main-enable_birthdate') ) { -% my $dt = DateTime->from_epoch(epoch => $cust_main->birthdate, -% time_zone=>'floating', -% ); - - <TR> - <TD ALIGN="right">Date of Birth</TD> - <TD BGCOLOR="#ffffff"><% $cust_main->birthdate ne '' ? $dt->strftime($date_format) : '' %></TD> - </TR> - -% } - -</TABLE></TD></TR></TABLE> - diff --git a/httemplate/view/cust_main/notes.html b/httemplate/view/cust_main/notes.html deleted file mode 100755 index f2d116930..000000000 --- a/httemplate/view/cust_main/notes.html +++ /dev/null @@ -1,93 +0,0 @@ -% -% my $conf = new FS::Conf; -% my $curuser = $FS::CurrentUser::CurrentUser; -% -% $cgi->param('custnum') =~ /^(\d+)$/ -% or die "No customer specified (bad URL)!"; -% my $custnum = $1; -% -% my $cust_main = qsearchs('cust_main', {'custnum' => $custnum} ); -% die "Custimer not found!" unless $cust_main; -% - -<STYLE TYPE="text/css"> - -body { background: #e8e8e8 } -.inv table { border: none } -.inv TH { border: none } -.inv TD { border: none } - -</STYLE> - -% my (@notes) = $cust_main->notes(); -% if ( scalar(@notes) ) { - -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws.js"></SCRIPT> -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws_iframe.js"></SCRIPT> -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws_crossframe.js"></SCRIPT> -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/iframecontentmws.js"></SCRIPT> - -<TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0 BORDER=0 > - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; -% -% foreach my $note (@notes) { -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% my $pop = popurl(3); -% my $notenum = $note->notenum; -% my $clickjs = qq!onclick="overlib( OLiframeContent('${pop}edit/! . -% qq!cust_main_note.cgi?custnum=$custnum&! . -% qq!notenum=$notenum', 616, ! . -% qq!386, 'cust_main_note_popup' ), CAPTION, 'Edit customer ! . -% qq!note', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, ! . -% qq!CLOSECLICK, FRAME, top); return false;"!; -% -% my ($el, $eel); -% if ($curuser->access_right('Edit customer note') ) { -% $el = qq!<A HREF="javascript:void(0);" $clickjs>!; -% $eel = qq!</A>!; -% }else{ -% $el = $eel = ''; -% } - -<TR> - <% note_datestr($note,$conf,$bgcolor, $el, $eel) %> - <TD CLASS="inv" BGCOLOR="<% $bgcolor %>"> - <% $el %> <%$note->otaker%> <% $eel %> - </TD> - <TD CLASS="inv" BGCOLOR="<% $bgcolor %>"> - <%$note->comments%> - </TD> -</TR> - -% } #end display notes - -</TABLE> - -% } -% -%#subroutines -% -%sub note_datestr { -% my($note, $conf, $bgcolor, $el, $eel) = @_ or return ''; -% my $format=qq{<TD class="inv" bgcolor="$bgcolor" align="left">$el<B>%b</B>$eel</TD>}. -% qq{<TD class="inv" bgcolor="$bgcolor" align="right">$el<B> %o,</B>$eel</TD>}. -% qq{<TD class="inv" bgcolor="$bgcolor" align="right">$el<B> %Y </B>$eel</TD>}; -% $format .= qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="right">$el<B> %l$eel</TD>}. -% qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="center">$el<B>:</B>$eel</TD>}. -% qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="left">$el<B>%M</B>$eel</TD>}. -% qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="left">$el<B> %P </B>$eel</TD>} -% if $conf->exists('cust_main_note-display_times'); -% ( my $strip = time2str($format, $note->_date) ) =~ s/ (\d)/$1/g; -% $strip; -% } -% - diff --git a/httemplate/view/cust_main/packages.html b/httemplate/view/cust_main/packages.html deleted file mode 100755 index 891fa3009..000000000 --- a/httemplate/view/cust_main/packages.html +++ /dev/null @@ -1,629 +0,0 @@ -<A NAME="cust_pkg"><FONT SIZE="+2">Packages</FONT></A><BR> - -% my $s = 0; -% if ( $curuser->access_right('Order customer package') ) { - <% $s++ ? ' | ' : '' %> - <% order_pkg_link($cust_main) %> -% } - -% if ( $curuser->access_right('One-time charge') -% && $conf->config('payby-default') ne 'HIDE' -% ) { -% - <% $s++ ? ' | ' : '' %> - <% popup_link('edit/quick-charge.html?custnum='. $cust_main->custnum, 'One-time charge', 'One-time charge', '#333399', 545) %> -% } -% if ( $curuser->access_right('Bulk change customer packages') ) { - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>edit/cust_pkg.cgi?<% $cust_main->custnum %>">Bulk order and cancel packages</A> (preserves services) -% } - - -<BR><BR> -% if ( @$packages ) { - -Current packages -% } -% if ( $cust_main->num_cancelled_pkgs ) { -% if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me -% || ( $conf->exists('hidecancelledpackages') -% && ! $cgi->param('showcancelledpackages') -% ) -% ) -% { -% $cgi->param('showcancelledpackages', 1); -% - - ( <a href="<% $cgi->self_url %>">show -% } else { -% $cgi->param('showcancelledpackages', 0); -% - - ( <a href="<% $cgi->self_url %>">hide -% } - - cancelled packages</a> ) -% } -% if ( @$packages ) { - - -<% include('/elements/table-grid.html') %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; - -<TR> - <TH CLASS="grid" BGCOLOR="#cccccc">Package</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Status</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Services</TH> -</TR> - -%foreach my $cust_pkg (@$packages) { -% -% my $part_pkg = $cust_pkg->part_pkg; -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - -<!--pkgnum: <% $cust_pkg->pkgnum %>--> -<TR> - - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> - - <A NAME="cust_pkg<% $cust_pkg->pkgnum %>" ID="cust_pkg<% $cust_pkg->pkgnum %>"><% $cust_pkg->pkgnum %></A>: - <% $part_pkg->pkg %> - <% $part_pkg->comment %> - <BR> - - <FONT SIZE=-1> -% unless ( $cust_pkg->get('cancel') ) { -% my $br = 0; -% if ( $curuser->access_right('Change customer package') ) { $br=1; - - ( <%pkg_change_link($cust_pkg)%> ) -% } -% if ( $curuser->access_right('Edit customer package dates') ) { $br=1; - - ( <%pkg_dates_link($cust_pkg)%> ) -% } -% if ( $curuser->access_right('Customize customer package') ) { $br=1; - - ( <%pkg_customize_link($cust_pkg,$cust_main->custnum)%> ) -% } - <% $br ? '<BR>' : '' %> -% } - -% if ( $cust_pkg->num_cust_event -% && ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) -% ) { - ( <%pkg_event_link($cust_pkg)%> ) -% } - - </FONT> - - </TD> - - <TD CLASS="inv" BGCOLOR="<% $bgcolor %>"> - <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%"> -% -% sub myfreq { -% my $part_pkg = shift; -% my $freq = $part_pkg->freq_pretty; -% $freq =~ s/ / /g; -% $freq; -% } -% -% #this should use cust_pkg->status and cust_pkg->statuscolor eventually -% #my $colspan = $conf->exists('cust_pkg-display_times') ? 8 : 4; -% #my $width = $conf->exists('cust_pkg-display_times') ? '38%' : '56%'; -% -% #false laziness w/edit/REAL_cust_pkg.cgi -% my( $billed_or_prepaid, $last_bill_or_renewed, $next_bill_or_prepaid_until ); -% unless ( $part_pkg->is_prepaid ) { -% $billed_or_prepaid = 'billed'; -% $last_bill_or_renewed = 'Last bill'; -% $next_bill_or_prepaid_until = 'Next bill'; -% } else { -% $billed_or_prepaid = 'prepaid'; -% $last_bill_or_renewed = 'Renewed'; -% $next_bill_or_prepaid_until = 'Prepaid until'; -% } -% -% -% if ( $cust_pkg->get('cancel') ) { #status: cancelled - - <% pkg_status_row($cust_pkg, 'Cancelled', 'cancel', 'color'=>'FF0000' ) %> - - <% pkg_status_row_colspan( - ( $cust_pkg->last_reason ? $cust_pkg->last_reason->reason : '' ), '', - 'align' => 'right', 'color' => 'ff0000', 'size' => '-2', - ) - %> - -% unless ( $cust_pkg->get('setup') ) { - - <% pkg_status_row_colspan('Never billed') %> - -% } else { - - <% pkg_status_row( $cust_pkg, 'Setup', 'setup' ) %> - <% pkg_status_row_changed( $cust_pkg ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill' ) %> - <% pkg_status_row_if( $cust_pkg, 'Suspended', 'susp' ) %> - -% } -% -% } else { -% -% if ( $cust_pkg->get('susp') ) { #status: suspended - - <% pkg_status_row( $cust_pkg, 'Suspended', 'susp', 'color'=>'FF9900' ) %> - - <% pkg_status_row_colspan( - ( $cust_pkg->last_reason ? $cust_pkg->last_reason->reason : '' ), '', - 'align' => 'right', 'color' => 'FF9900', 'size' => '-2', - ) - %> - -% unless ( $cust_pkg->get('setup') ) { - <% pkg_status_row_colspan('Never billed') %> -% } else { - <% pkg_status_row($cust_pkg, 'Setup', 'setup' ) %> -% } - - <% pkg_status_row_changed( $cust_pkg ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill' ) %> -% # pkg_status_row($cust_pkg, 'Next bill', 'bill') - <% pkg_status_row_if( $cust_pkg, 'Expires', 'expire' ) %> - - <TR> - <TD COLSPAN=<%$colspan%>> - <FONT SIZE=-1> -% if ( $curuser->access_right('Unsuspend customer package') ) { - ( <% pkg_unsuspend_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } - </FONT> - </TD> - </TR> - -% } else { #status: active -% -% unless ( $cust_pkg->get('setup') ) { #not setup -% -% unless ( $part_pkg->freq ) { - - <% pkg_status_row_colspan('Not yet billed (one-time charge)') %> - - <TR> - <TD COLSPAN=<%$colspan%>> - <FONT SIZE=-1> -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } - </FONT> - </TD> - </TR> - -% } else { - - <% pkg_status_row_colspan("Not yet billed ($billed_or_prepaid ". myfreq($part_pkg). ')' ) %> - -% } -% -% } else { #setup -% -% unless ( $part_pkg->freq ) { - - <% pkg_status_row_colspan('One-time charge') %> - - <% pkg_status_row($cust_pkg, 'Billed', 'setup') %> - -% } else { -% -% if (scalar($cust_pkg->overlimit)) { - - <% pkg_status_row_colspan( - 'Overlimit', - $billed_or_prepaid. ' '. myfreq($part_pkg), - 'color' => 'FFD000', - ) - %> - -% } else { - <% pkg_status_row_colspan( - 'Active', - $billed_or_prepaid. ' '. myfreq($part_pkg), - 'color' => '00CC00', - ) - %> -% } - - <% pkg_status_row($cust_pkg, 'Setup', 'setup') %> - -% } -% -% } - - <% pkg_status_row_changed( $cust_pkg ) %> - <% pkg_status_row_if( $cust_pkg, $last_bill_or_renewed, 'last_bill' ) %> - <% pkg_status_row_if( $cust_pkg, $next_bill_or_prepaid_until, 'bill' ) %> - <% pkg_status_row_if( $cust_pkg, 'Will suspend on', 'adjourn' ) %> - <% pkg_status_row_if( $cust_pkg, 'Expires', 'expire' ) %> - -% if ( $part_pkg->freq ) { - - <TR> - <TD COLSPAN=<%$colspan%>> - <FONT SIZE=-1> -% if ( $curuser->access_right('Suspend customer package') ) { - ( <% pkg_suspend_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Suspend customer package later') ) { - ( <% pkg_adjourn_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } -% if ( $curuser->access_right('Cancel customer package later') ) { - ( <% pkg_expire_link($cust_pkg) %> ) -% } - - <FONT> - </TD> - </TR> -% } -% -% } -% } - -</TABLE> -</TD> - -<TD CLASS="inv" BGCOLOR="<% $bgcolor %>"> - <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%"> - -% #foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) { -% foreach my $part_svc ( $cust_pkg->part_svc ) { - -% #foreach my $service (@{$svcpart->{services}}) { -% foreach my $cust_svc ( @{ $part_svc->cust_pkg_svc } ) { - - <TR> - <TD ALIGN="right" VALIGN="top"><% FS::UI::Web::svc_link($m, $part_svc, $cust_svc) %></TD> - <TD STYLE="padding-bottom:0px"><B><% FS::UI::Web::svc_label_link($m, $part_svc, $cust_svc) %></B></TD> - <TD><% FS::UI::Web::svc_export_links($m, $part_svc, $cust_svc) %></TD> - </TR> - - <TR> - <TD ALIGN="right" COLSPAN="3" VALIGN="top" STYLE="padding-bottom:1px;padding-top:0px"><FONT SIZE="-2" COLOR="#FFD000"> - - <% $cust_svc->overlimit ? "Overlimit: ". time2str('%b %o %Y' . ($conf->exists('cust_pkg-display_times') ? ' %l:%M %P' : ''), $cust_svc->overlimit) : '' %> - </FONT></TD> - </TR> - - <TR> - <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2"> - -% if ( $curuser->access_right('Recharge customer service') -% && $part_svc->svcdb eq 'svc_acct' -% && ( $cust_svc->svc_x->seconds ne '' -% || $cust_svc->svc_x->upbytes ne '' -% || $cust_svc->svc_x->downbytes ne '' -% || $cust_svc->svc_x->totalbytes ne '' -% ) -% ) { - ( <%svc_recharge_link($cust_svc)%> ) -% } - </FONT></TD> - - <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2"> - -% if ( $curuser->access_right('Unprovision customer service') ) { - ( <%svc_unprovision_link($cust_svc)%> ) -% } - </FONT></TD> - </TR> -% } - -% if ( ! $cust_pkg->get('cancel') -% && $curuser->access_right('Provision customer service') -% && $part_svc->num_avail -% ) { - - <TR> - <TD COLSPAN=3 ALIGN="center" STYLE="padding-bottom:4px;padding-top:0px"> - <B><% svc_provision_link($cust_pkg, $part_svc, $conf, $curuser) %></B> - </TD> - </TR> - -% } - -% } - -</TABLE> -</TD> -% } #end display packages -% - - -</TABLE> -% } else { - -<BR> -% } -% if ( $cgi->param('fragment') =~ /^cust_pkg(\d+)$/ ) { - <SCRIPT> - // IE-specific hack. other browsers listen to #fragments - // is this even working? or is the #target redirection just working cause - // we set the URL params differently? - var el = document.getElementById( 'cust_pkg<% $1 %>' ); - if ( el ) el.scrollIntoView(true); - </SCRIPT> -% } -<%init> - -my( $cust_main ) = @_; -my $conf = new FS::Conf; - -my $curuser = $FS::CurrentUser::CurrentUser; - -my $packages = get_packages($cust_main, $conf); - -my $colspan = $conf->exists('cust_pkg-display_times') ? 8 : 4; -my $width = $conf->exists('cust_pkg-display_times') ? '38%' : '56%'; - -sub pkg_status_row { - my( $cust_pkg, $title, $field, %opt ) = @_; - - my $color = $opt{'color'}; - - my $html = qq(<TR><TD WIDTH="<%$width%>" ALIGN="right">); - $html .= qq(<FONT COLOR="#$color"><B>) if length($color); - $html .= qq($title ); - $html .= qq(</B></FONT>) if length($color); - $html .= qq(</TD>); - $html .= pkg_datestr($cust_pkg, $field, $conf).'</TR>'; - - $html; -} - -sub pkg_status_row_if { - my( $cust_pkg, $title, $field, %opt ) = @_; - $cust_pkg->get($field) ? pkg_status_row(@_) : ''; -} - -sub pkg_status_row_changed { - my($cust_pkg) = @_; - return '' unless $cust_pkg->change_date; - my $html = pkg_status_row( $cust_pkg, 'Package changed', 'change_date' ); - my $old = $cust_pkg->old_cust_pkg; - if ( $old ) { - my $part_pkg = $old->part_pkg; - my $label = 'Changed from '. $cust_pkg->change_pkgnum. ': '. - $part_pkg->pkg. ' - '. $part_pkg->comment; - $html .= pkg_status_row_colspan( $label, '', size=>'-1', align=>'right' ); - } - $html; -} - -sub pkg_status_row_colspan { - my($title, $addl, %opt) = @_; - - my $align = $opt{'align'} ? 'ALIGN="'. $opt{'align'}.'"' : ''; - my $color = $opt{'color'} ? 'COLOR="#'.$opt{'color'}.'"' : ''; - my $size = $opt{'size'} ? 'SIZE="'. $opt{'size'}. '"' : ''; - - my $html = qq(<TR><TD COLSPAN=$colspan $align>); - $html .= qq(<FONT $color $size>) if length($color) || $size; - $html .= qq(<B>) if $color && !$size; - $html .= $title; - $html .= qq(</B>) if $color && !$size; - $html .= qq(</FONT>) if length($color) || $size; - $html .= ", $addl" if length($addl); - $html .= qq(</TD></TR>); - - $html; - -} - -</%init> -<%once> - -#subroutines - -sub get_packages { - my $cust_main = shift or return undef; - my $conf = shift; - - my @packages = (); - my $method; - if ( $cgi->param('showcancelledpackages') eq '0' #see if it was set by me - || ( $conf->exists('hidecancelledpackages') - && ! $cgi->param('showcancelledpackages') ) - ) - { - $method = 'ncancelled_pkgs'; - } else { - $method = 'all_pkgs'; - } - - [ $cust_main->$method() ]; -} - -sub svc_provision_link { - my ($cust_pkg, $part_svc, $conf, $curuser) = @_; - ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g; - my $num_avail = $part_svc->num_avail; - my $pkgnum_svcpart = "pkgnum=". $cust_pkg->pkgnum. ';'. - "svcpart=". $part_svc->svcpart; - my $url; - if ( $part_svc->svcdb eq 'svc_external' #could be generalized - && $conf->exists('svc_external-skip_manual') - ) { - $url = "${p}edit/process/". $part_svc->svcdb. ".cgi?$pkgnum_svcpart"; - } else { - $url = svc_url( - 'm' => $m, - 'action' => 'edit', - 'part_svc' => $part_svc, - 'query' => $pkgnum_svcpart, - ); - #$url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart"; - } - - my $link = qq!<A CLASS="provision" HREF="$url">!. - "Provision $svc_nbsp ($num_avail)</A>"; - if ( $conf->exists('legacy_link') - && $curuser->access_right('View/link unlinked services') - ) - { - $link .= '<BR>'. - qq!<A CLASS="provision" HREF="${p}misc/link.cgi?!. - qq!$pkgnum_svcpart">!. - "Link to legacy $svc_nbsp ($num_avail)</A>"; - } - $link; -} - -sub svc_unprovision_link { - my $cust_svc = shift or return ''; - qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?!. $cust_svc->svcnum. - qq!', 'Permanently unprovision and delete this service?')">Unprovision</A>!; -} - -sub pkg_datestr { - my($cust_pkg, $field, $conf) = @_ or return ''; - return ' ' unless $cust_pkg->get($field); - my $format = '<TD align="left"><B>%b</B></TD>'. - '<TD align="right"><B> %o,</B></TD>'. - '<TD align="right"><B> %Y</B></TD>'; - #$format .= ' <FONT SIZE=-3>%l:%M:%S%P %z</FONT>' - $format .= '<TD ALIGN="right"><B> %l</TD>'. - '<TD ALIGN="center"><B>:</B></TD>'. - '<TD ALIGN="left"><B>%M</B></TD>'. - '<TD ALIGN="left"><B> %P</B></TD>' - if $conf->exists('cust_pkg-display_times'); - my $strip = time2str($format, $cust_pkg->get($field) ); - $strip =~ s/ (\d)/$1/g; - $strip; -} - -sub pkg_change_link { pkg_popup_link('misc/change_pkg.cgi?dummy=value', - 'Change package', - 'Change', - '', - @_ - ); - } - -sub pkg_suspend_link { pkg_popup_link( 'misc/cancel_pkg.html?method=suspend', - 'Suspend now', - 'Suspend', - '#FF9900', - @_ - ); - } - -sub pkg_adjourn_link { pkg_popup_link( 'misc/cancel_pkg.html?method=adjourn', - 'Suspend later', - 'Adjourn', - '#CC6600', - @_ - ); - } - -sub pkg_unsuspend_link { pkg_link('misc/unsusp_pkg', 'Unsuspend', @_ ); } -sub pkg_expire_link { pkg_link('misc/expire_pkg', 'Cancel later', @_ ); } -sub pkg_dates_link { pkg_link('edit/REAL_cust_pkg', 'Edit dates', @_ ); } - -sub pkg_cancel_link { pkg_popup_link( 'misc/cancel_pkg.html?method=cancel', - 'Cancel now', - 'Cancel', - '#ff0000', - @_ - ); - } - -sub pkg_expire_link { pkg_popup_link( 'misc/cancel_pkg.html?method=expire', - 'Cancel later', - 'Expire', #"Cancel package $num later" - '#CC0000', - @_ - ); - } - -sub svc_recharge_link { svc_popup_link( 'misc/recharge_svc.html', - 'Recharge', - 'Recharge', - '#333399', - @_ - ); - } - -sub order_pkg_link { cust_popup_link( 'misc/order_pkg.html', - 'Order new package', - 'Order new package', - '#333399', - @_ - ); - } - -sub pkg_event_link { - my($cust_pkg) = @_; - qq!<a href="${p}search/cust_event.html?pkgnum=!. $cust_pkg->pkgnum. qq!">!. - 'View package events'. - '</a>'; -} - -sub pkg_link { - my($action, $label, $cust_pkg) = @_; - return '' unless $cust_pkg; - qq!<a href="$p$action.cgi?!. $cust_pkg->pkgnum. qq!">$label</a>!; -} - -sub pkg_popup_link { - my($action, $label, $actionlabel, $color, $cust_pkg) = @_; - $action .= '&pkgnum='. $cust_pkg->pkgnum; - $actionlabel .= ' package '. $cust_pkg->pkgnum; - popup_link($action, $label, $actionlabel, $color, 768); -} - -sub svc_popup_link { - my($action, $label, $actionlabel, $color, $cust_svc) = @_; - $action .= '?svcnum='. $cust_svc->svcnum; - $actionlabel .= ' service '. $cust_svc->svcnum; - popup_link($action, $label, $actionlabel, $color); -} - -sub cust_popup_link { - my($action, $label, $actionlabel, $color, $cust_main) = @_; - $action .= '?'. $cust_main->custnum; - popup_link($action, $label, $actionlabel, $color); -} - -sub popup_link { - my($action, $label, $actionlabel, $color, $width) = @_; - $color ||= '#333399'; - $width ||= 540; - qq!<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('$p$action', $width, 336, 'pkg_or_svc_action_popup' ), CAPTION, '$actionlabel', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, BGCOLOR, '$color', CGCOLOR, '$color' ); return false;">$label</A>!; -} - -sub pkg_customize_link { - my $cust_pkg = shift or return ''; - my $custnum = $cust_pkg->custnum; - qq!<A HREF="${p}edit/part_pkg.cgi?!. - "keywords=$custnum;". - "clone=". $cust_pkg->part_pkg->pkgpart. ';'. - "pkgnum=". $cust_pkg->pkgnum. - qq!">Customize</A>!; -} - -</%once> diff --git a/httemplate/view/cust_main/payment_history.html b/httemplate/view/cust_main/payment_history.html deleted file mode 100644 index 44a888533..000000000 --- a/httemplate/view/cust_main/payment_history.html +++ /dev/null @@ -1,630 +0,0 @@ -<BR><BR><A NAME="history"><FONT SIZE="+2">Payment History</FONT></A><BR> - -% my $s = 0; -% if ( $payby{'BILL'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - <A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('<% $p %>edit/cust_pay.cgi?popup=1;payby=BILL;custnum=<% $custnum %>', 392, 336, 'cust_pay_popup' ), CAPTION, 'Enter check payment', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">Enter check payment</A> -% } - -% if ( $payby{'CASH'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - <A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('<% $p %>edit/cust_pay.cgi?popup=1;payby=CASH;custnum=<% $custnum %>', 392, 336, 'cust_pay_popup' ), CAPTION, 'Enter cash payment', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">Enter cash payment</A> -% } - -% if ( $payby{'WEST'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>edit/cust_pay.cgi?payby=WEST;custnum=<% $custnum %>">Enter Western Union payment</A> -% } - -% if ( ( $payby{'CARD'} || $payby{'DCRD'} ) -% && $curuser->access_right('Process payment') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>misc/payment.cgi?payby=CARD;custnum=<% $custnum %>">Process credit card payment</A> -% } - -% if ( ( $payby{'CHEK'} || $payby{'DCHK'} ) -% && $curuser->access_right('Process payment') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>misc/payment.cgi?payby=CHEK;custnum=<% $custnum %>">Process electronic check (ACH) payment</A> -% } - -% if ( $payby{'MCRD'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>edit/cust_pay.cgi?payby=MCRD;custnum=<% $custnum %>">Post manual (offline) credit card payment</A> -% } - -<BR> - -% if ( $curuser->access_right('Post credit') ) { - <A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('<% $p %>edit/cust_credit.cgi?<% $custnum %>', 392, 336, 'cust_credit_popup' ), CAPTION, 'Enter credit', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">Enter credit</A> - <BR> -% } - -% if ( $curuser->access_right('View customer tax exemptions') ) { - <A HREF="<% $p %>search/cust_tax_exempt_pkg.cgi?custnum=<% $custnum %>">View tax exemptions</A> - <BR> -% } - -% if ( $conf->exists('batch-enable') -% && $curuser->access_right('View customer batched payments') -% ) { - View batched payments: -% foreach my $status (qw( Queued In-transit Complete All )) { - <A HREF="<% $p %>search/cust_pay_batch.cgi?status=<% $status{$status} %>;custnum=<% $custnum %>"><% $status %></A> - <% $status ne 'All' ? '|' : '' %> -% } - <BR> -% } - -%#get payment history -%my @history = (); -% -%#invoices -%foreach my $cust_bill ($cust_main->cust_bill) { -% my $pre = ( $cust_bill->owed > 0 ) -% ? '<B><FONT SIZE="+1" COLOR="#FF0000">Open ' -% : ''; -% my $post = ( $cust_bill->owed > 0 ) ? '</FONT></B>' : ''; -% my $invnum = $cust_bill->invnum; -% my $link = $curuser->access_right('View invoices') -% ? qq!<A HREF="${p}view/cust_bill.cgi?$invnum">! -% : ''; -% my $events = ''; -% if ( $cust_bill->num_cust_event -% && ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) -% ) { -% $events = -% qq!<BR><FONT SIZE="-1"><A HREF="${p}search/cust_event.html?invnum=!. -% $cust_bill->invnum. '">( View invoice events )</A></FONT>'; -% } -% push @history, { -% 'date' => $cust_bill->_date, -% 'desc' => $link. $pre. -% "Invoice #$invnum (Balance \$". $cust_bill->owed. ')'. -% $post. ( $link ? '</A>' : '' ). $events, -% 'charge' => $cust_bill->charged, -% }; -%} -% -%#payments (some false laziness w/credits) -%foreach my $cust_pay ($cust_main->cust_pay) { -% -% my $payby = $cust_pay->payby; -% -% my $payinfo; -% if ( $payby eq 'CARD' ) { -% $payinfo = $cust_pay->paymask; -% } elsif ( $payby eq 'CHEK' && $cust_pay->payinfo =~ /^(\d+)\@(\d+)$/ ) { -% $payinfo = "ABA $2, Acct# $1"; -% } else { -% $payinfo = $cust_pay->payinfo; -% } -% my @cust_bill_pay = $cust_pay->cust_bill_pay; -% my @cust_pay_refund = $cust_pay->cust_pay_refund; -% -% my $target = "$payby$payinfo"; -% $payby =~ s/^BILL$/Check #/ if $payinfo; -% $payby =~ s/^CHEK$/Electronic check /; -% $payby =~ s/^PREP$/Prepaid card /; -% $payby =~ s/^CARD$/Credit card #/; -% $payby =~ s/^COMP$/Complimentary by /; -% $payby =~ s/^CASH$/Cash/; -% $payby =~ s/^WEST$/Western Union/; -% $payby =~ s/^MCRD$/Manual credit card/; -% $payby =~ s/^BILL$//; -% my $info = $payby ? "($payby$payinfo)" : ''; -% -% my( $pre, $post, $desc, $apply, $ext ) = ( '', '', '', '', '' ); -% if ( scalar(@cust_bill_pay) == 0 -% && scalar(@cust_pay_refund) == 0 ) { -% #completely unapplied -% $pre = '<B><FONT COLOR="#FF0000">Unapplied '; -% $post = '</FONT></B>'; -% if ( $curuser->access_right('Apply payment') ) { -% $apply = qq! (<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('${p}edit/cust_bill_pay.cgi?!. -% $cust_pay->paynum. -% qq!', 392, 336, 'cust_bill_pay_popup' ), CAPTION, 'Apply payment', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">apply</A>)!; -% } -% } elsif ( scalar(@cust_bill_pay) == 1 -% && scalar(@cust_pay_refund) == 0 -% && $cust_pay->unapplied == 0 ) { -% #applied to one invoice, the usual situation -% $desc = ' applied to Invoice #'. $cust_bill_pay[0]->invnum; -% } elsif ( scalar(@cust_bill_pay) == 0 -% && scalar(@cust_pay_refund) == 1 -% && $cust_pay->unapplied == 0 ) { -% #applied to one refund -% $desc = ' refunded on '. time2str("%D", $cust_pay_refund[0]->_date); -% } else { -% #complicated -% $desc = '<BR>'; -% foreach my $app ( sort { $a->_date <=> $b->_date } -% ( @cust_bill_pay, @cust_pay_refund ) ) { -% if ( $app->isa('FS::cust_bill_pay') ) { -% $desc .= ' '. -% '$'. $app->amount. -% ' applied to Invoice #'. $app->invnum. -% '<BR>'; -% #' on '. time2str("%D", $cust_bill_pay->_date). -% } elsif ( $app->isa('FS::cust_pay_refund') ) { -% $desc .= ' '. -% '$'. $app->amount. -% ' refunded on '. time2str("%D", $app->_date). -% '<BR>'; -% } else { -% die "$app is not a FS::cust_bill_pay or FS::cust_pay_refund"; -% } -% } -% if ( $cust_pay->unapplied > 0 ) { -% $desc .= ' '. -% '<B><FONT COLOR="#FF0000">$'. -% $cust_pay->unapplied. ' unapplied</FONT></B>'; -% if ( $curuser->access_right('Apply payment') ) { -% $desc .= qq! (<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('${p}edit/cust_bill_pay.cgi?!. -% $cust_pay->paynum. -% qq!', 392, 336, 'cust_bill_pay_popup' ), CAPTION, 'Apply payment', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">apply</A>)!; -% } -% $desc .= '<BR>'; -% } -% } -% -% my $view = qq! (<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('${p}view/cust_pay.html?link=popup;paynum=!. -% $cust_pay->paynum. -% qq!', 540, 336, 'view_cust_pay_popup' ), CAPTION, 'Payment Receipt', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">view receipt</A>)!; -% -% my $refund = ''; -% my $refund_days = $conf->config('card_refund-days') || 120; -% if ( $cust_pay->closed !~ /^Y/i -% && $cust_pay->payby =~ /^(CARD|CHEK)$/ -% && time-$cust_pay->_date < $refund_days*86400 -% && $cust_pay->unrefunded > 0 -% && $curuser->access_right('Refund payment') -% ) { -% $refund = qq! (<A HREF="${p}edit/cust_refund.cgi?payby=$1;!. -% qq!paynum=!. $cust_pay->paynum. '"'. -% qq! TITLE="Send a refund for this payment to the payment gateway"!. -% qq!>refund</A>)!; -% } -% -% my $void = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && ( ( $cust_pay->payby eq 'CARD' -% && $curuser->access_right('Credit card void') -% ) -% || ( $cust_pay->payby eq 'CHEK' -% && $curuser->access_right('Echeck void') -% ) -% || ( $cust_pay->payby !~ /^(CARD|CHEK)$/ -% && $curuser->access_right('Regular void') -% ) -% ) -% ) -% { -% $void = qq! (<A HREF="javascript:areyousure('!. -% qq!${p}misc/void-cust_pay.cgi?!. $cust_pay->paynum. -% qq!', 'Are you sure you want to void this payment?')"!. -% qq! TITLE="Void this payment from the database!. -% ( $cust_pay->payby =~ /^(CARD|CHEK)$/ -% ? ' (do not send anything to the payment gateway)' -% : '' -% ). '"'. -% qq!>void</A>)!; -% } -% -% my $delete = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && $conf->exists('deletepayments') -% && $curuser->access_right('Delete payment') -% ) -% { -% $delete = qq! (<A HREF="javascript:areyousure('!. -% qq!${p}misc/delete-cust_pay.cgi?!. $cust_pay->paynum. -% qq!', 'Are you sure you want to delete this payment?')"!. -% qq! TITLE="Delete this payment from the database completely - not recommended"!. -% qq!>delete</A>)!; -% } -% -% my $unapply = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && scalar(@cust_bill_pay) -% && $curuser->access_right('Unapply payment') -% ) -% { -% $unapply = qq! (<A HREF="javascript:areyousure('!. -% qq!${p}misc/unapply-cust_pay.cgi?!. $cust_pay->paynum. -% qq!', 'Are you sure you want to unapply this payment?')"!. -% qq! TITLE="Keep this payment, but dissociate it from the invoices it is currently applied against"!. -% qq!>unapply</A>)!; -% } -% -% my $otaker = $cust_pay->otaker; -% $otaker = '<i>auto billing</i>' if $otaker eq 'fs_daily'; -% $otaker = '<i>customer self-service</i>' if $otaker eq 'fs_selfservice'; -% -% push @history, { -% 'date' => $cust_pay->_date, -% 'desc' => $pre. "Payment$post by $otaker $info$desc". -% "$view$apply$refund$void$delete$unapply", -% 'payment' => $cust_pay->paid, -% 'target' => $target, -% }; -%} -% -%#voided payments -%foreach my $cust_pay_void ($cust_main->cust_pay_void) { -% -% my $payby = $cust_pay_void->payby; -% my $payinfo = $payby eq 'CARD' -% ? $cust_pay_void->paymask -% : $cust_pay_void->payinfo; -% -% $payby =~ s/^BILL$/Check #/ if $payinfo; -% $payby =~ s/^CHEK$/Electronic check /; -% $payby =~ s/^BILL$//; -% $payby =~ s/^(CARD|COMP)$/$1 /; -% my $info = $payby ? " ($payby$payinfo)" : ''; -% -% my $unvoid = ''; -% if ( $cust_pay_void->closed !~ /^Y/i -% && $curuser->access_right('Unvoid') -% ) -% { -% $unvoid = qq! (<A HREF="javascript:areyousure('!. -% qq!${p}misc/unvoid-cust_pay_void.cgi?!. $cust_pay_void->paynum. -% qq!', 'Are you sure you want to unvoid this payment?')"!. -% qq! TITLE="Unvoid this payment from the database!. -% ( $cust_pay_void->payby =~ /^(CARD|CHEK)$/ -% ? ' (do not send anything to the payment gateway)' -% : '' -% ). '"'. -% qq!>unvoid</A>)!; -% } -% -% push @history, { -% 'date' => $cust_pay_void->_date, -% 'desc' => "<DEL>Payment $info</DEL> <I>voided ". -% time2str("%D", $cust_pay_void->void_date). -% " by ". $cust_pay_void->otaker. '</i>'. $unvoid, -% 'void_payment' => $cust_pay_void->paid, -% }; -% -%} -% -%#credits (some false laziness w/payments) -%foreach my $cust_credit ($cust_main->cust_credit) { -% -% my @cust_credit_bill = $cust_credit->cust_credit_bill; -% my @cust_credit_refund = $cust_credit->cust_credit_refund; -% -% my( $pre, $post, $desc, $apply, $ext ) = ( '', '', '', '', '' ); -% if ( scalar(@cust_credit_bill) == 0 -% && scalar(@cust_credit_refund) == 0 ) { -% #completely unapplied -% $pre = '<B><FONT COLOR="#FF0000">Unapplied '; -% $post = '</FONT></B>'; -% if ( $curuser->access_right('Apply credit') ) { -% $apply = qq! (<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('${p}edit/cust_credit_bill.cgi?!. -% $cust_credit->crednum. -% qq!', 392, 336, 'cust_credit_bill_popup' ), CAPTION, 'Apply credit', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">apply</A>)!; -% } -% } elsif ( scalar(@cust_credit_bill) == 1 -% && scalar(@cust_credit_refund) == 0 -% && $cust_credit->credited == 0 ) { -% #applied to one invoice, the usual situation -% $desc = ' applied to Invoice #'. $cust_credit_bill[0]->invnum; -% } elsif ( scalar(@cust_credit_bill) == 0 -% && scalar(@cust_credit_refund) == 1 -% && $cust_credit->credited == 0 ) { -% #applied to one refund -% $desc = ' refunded on '. time2str("%D", $cust_credit_refund[0]->_date); -% } else { -% #complicated -% $desc = '<BR>'; -% foreach my $app ( sort { $a->_date <=> $b->_date } -% ( @cust_credit_bill, @cust_credit_refund ) ) { -% if ( $app->isa('FS::cust_credit_bill') ) { -% $desc .= ' '. -% '$'. $app->amount. -% ' applied to Invoice #'. $app->invnum. -% '<BR>'; -% #' on '. time2str("%D", $app->_date). -% } elsif ( $app->isa('FS::cust_credit_refund') ) { -% $desc .= ' '. -% '$'. $app->amount. -% ' refunded on '. time2str("%D", $app->_date). -% '<BR>'; -% } else { -% die "$app is not a FS::cust_credit_bill or a FS::cust_credit_refund"; -% } -% } -% if ( $cust_credit->credited > 0 ) { -% $desc .= ' <B><FONT COLOR="#FF0000">$'. -% $cust_credit->credited. ' unapplied</FONT></B>'; -% if ( $curuser->access_right('Apply credit') ) { -% $desc .= qq! (<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('${p}edit/cust_credit_bill.cgi?!. -% $cust_credit->crednum. -% qq!', 392, 336, 'cust_credit_bill_popup' ), CAPTION, 'Apply credit', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;">apply</A>)!; -% } -% $desc .= '<BR>'; -% } -% } -%# -% my $delete = ''; -% if ( $cust_credit->closed !~ /^Y/i -% -% #s'pose deleting a credit isn't bad like deleting a payment -% # and this needs to be generally available until we have credit voiding.. -% #&& $conf->exists('deletecredits') -% -% && $curuser->access_right('Delete credit') -% ) -% { -% $delete = qq! (<A HREF="javascript:areyousure('!. -% qq!${p}misc/delete-cust_credit.cgi?!. $cust_credit->crednum. -% qq!', 'Are you sure you want to delete this credit?')">!. -% qq!delete</A>)!; -% } -% -% my $unapply = ''; -% if ( $cust_credit->closed !~ /^Y/i -% && scalar(@cust_credit_bill) -% && $curuser->access_right('Unapply credit') -% ) -% { -% $unapply = qq! (<A HREF="javascript:areyousure('!. -% qq!${p}misc/unapply-cust_credit.cgi?!. $cust_credit->crednum. -% qq!', 'Are you sure you want to unapply this credit?')">!. -% qq!unapply</A>)!; -% } -% -% push @history, { -% 'date' => $cust_credit->_date, -% 'desc' => $pre. "Credit$post by ". $cust_credit->otaker. -% ( $cust_credit->reason -% ? ' ('. $cust_credit->reason. ')' -% : '' -% ). -% "$desc$apply$delete$unapply", -% 'credit' => $cust_credit->amount, -% }; -% -%} -% -%#refunds -%foreach my $cust_refund ($cust_main->cust_refund) { -% -% my $payby = $cust_refund->payby; -% my $payinfo = $payby eq 'CARD' -% ? $cust_refund->paymask -% : $cust_refund->payinfo; -% -% $payby =~ s/^BILL$/Check #/ if $payinfo; -% $payby =~ s/^CHEK$/Electronic check /; -% $payby =~ s/^(CARD|COMP)$/$1 /; -% -% my $delete = ''; -% if ( $cust_refund->closed !~ /^Y/i -% && $conf->exists('deleterefunds') -% && $curuser->access_right('Delete refund') -% ) -% { -% $delete = qq! (<A HREF="javascript:areyousure('!. -% qq!${p}misc/delete-cust_refund.cgi?!. $cust_refund->refundnum. -% qq!', 'Are you sure you want to delete this refund?')"!. -% qq! TITLE="Delete this refund from the database completely - not recommended"!. -% qq!>delete</A>)!; -% } -% -% push @history, { -% 'date' => $cust_refund->_date, -% 'desc' => "Refund ($payby$payinfo) by ". $cust_refund->otaker. "<BR>". -% $delete, -% 'refund' => $cust_refund->refund, -% }; -% -%} -% -% - - -<% include("/elements/table-grid.html") %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; -% - - -<TR> - <TH CLASS="grid" BGCOLOR="#cccccc">Date</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Description</TH> - <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Charge</FONT></TH> - <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Payment</FONT></TH> - <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>In-house<BR>Credit</FONT></TH> - <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Refund</FONT></TH> - <TH CLASS="grid" BGCOLOR="#cccccc"><FONT SIZE=-1>Balance</FONT></TH> -</TR> -% -%#display payment history -% -%sub balance_forward_row { -% my( $b, $date ) = @_; -% my $conf = new FS::Conf; -% my $money_char = $conf->config('money_char') || '$'; -% ( my $balance_forward = $money_char. $b ) =~ s/^\$\-/- \$/; - - <TR ID="balance_forward_row"> - <TD CLASS="grid" BGCOLOR="#dddddd"> - <% time2str("%D",$date) %> - </TD> - - <TD CLASS="grid" BGCOLOR="#dddddd"> - <I>Starting balance on <% time2str("%D",$date) %></I> - (<A HREF="javascript:void(0);" onClick="show_history();">show prior history</A>) - </TD> - - <TD CLASS="grid" BGCOLOR="#dddddd"></TD> - <TD CLASS="grid" BGCOLOR="#dddddd"></TD> - <TD CLASS="grid" BGCOLOR="#dddddd"></TD> - <TD CLASS="grid" BGCOLOR="#dddddd"></TD> - <TD CLASS="grid" BGCOLOR="#dddddd"><I><% $balance_forward %></I></TD> - - </TR> -%} -% -%my $balance = 0; -%my %target = (); -%my $money_char = $conf->config('money_char') || '$'; -% -%my $years = $conf->config('payment_history-years') || 2; -%my $older_than = time - $years * 31556736; #60*60*24*365.24 -%my $hidden = 0; -%my $seen = 0; -%my $old_history = 0; -%my $lastdate = 0; -% -%foreach my $item ( sort { $a->{'date'} <=> $b->{'date'} } @history ) { -% -% $lastdate = $item->{'date'}; -% -% my $display; -% if ( $item->{'date'} < $older_than ) { -% $display = ' STYLE="display:none" '; -% $hidden = 1; -% } else { -% -% $display = ''; -% -% if ( $hidden && ! $seen++ ) { -% balance_forward_row($balance, $item->{'date'}); -% } -% -% } -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } -% -% my $charge = exists($item->{'charge'}) -% ? sprintf("$money_char\%.2f", $item->{'charge'}) -% : ''; -% -% my $payment = exists($item->{'payment'}) -% ? sprintf("- $money_char\%.2f", $item->{'payment'}) -% : ''; -% -% $payment ||= sprintf( "<DEL>- $money_char\%.2f</DEL>", -% $item->{'void_payment'} -% ) -% if exists($item->{'void_payment'}); -% -% my $credit = exists($item->{'credit'}) -% ? sprintf("- $money_char\%.2f", $item->{'credit'}) -% : ''; -% -% my $refund = exists($item->{'refund'}) -% ? sprintf("$money_char\%.2f", $item->{'refund'}) -% : ''; -% -% my $target = exists($item->{'target'}) ? $item->{'target'} : ''; -% -% $balance += $item->{'charge'} if exists $item->{'charge'}; -% $balance -= $item->{'payment'} if exists $item->{'payment'}; -% $balance -= $item->{'credit'} if exists $item->{'credit'}; -% $balance += $item->{'refund'} if exists $item->{'refund'}; -% $balance = sprintf("%.2f", $balance); -% $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp -% ( my $showbalance = $money_char. $balance ) =~ s/^\$\-/- \$/; -% -% - - - <TR <% $display ? $display.' ID="old_history'.$old_history++.'"' : ''%>> - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> -% unless ( !$target || $target{$target}++ ) { - - <A NAME="<% $target %>"> -% } - - <% time2str("%D",$item->{'date'}) %> -% if ( $target && $target{$target} == 1 ) { - - </A> -% } - - </FONT> - </TD> - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $item->{'desc'} %> - </TD> - <TD ALIGN="right" CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $charge %> - </TD> - <TD ALIGN="right" CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $payment %> - </TD> - <TD ALIGN="right" CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $credit %> - </TD> - <TD ALIGN="right" CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $refund %> - </TD> - <TD ALIGN="right" CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $showbalance %> - </TD> - </TR> -% } - -%if ( scalar(@history) && $hidden && ! $seen++ ) { -% balance_forward_row($balance, $lastdate); -%} - -</TABLE> - -<SCRIPT TYPE="text/javascript"> - -function show_history () { - //alert('showing history!'); - - var balance_forward_row = document.getElementById('balance_forward_row'); - - balance_forward_row.style.display = 'none'; - for ( var i = 0; i < <% $old_history %>; i++ ) { - var oldRow = document.getElementById('old_history'+i); - oldRow.style.display = ''; - } - -} - -</SCRIPT> - -<%init> - -my( $cust_main ) = @_; -my $custnum = $cust_main->custnum; - -my $conf = new FS::Conf; - -my $curuser = $FS::CurrentUser::CurrentUser; - -my @payby = grep /\w/, $conf->config('payby'); -#@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP )) -@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP )) - unless @payby; -my %payby = map { $_=>1 } @payby; - -my %status = ( - 'Queued' => 'O', #Open - 'In-transit' => 'I', - 'Complete' => 'R', #Resolved - 'All' => '', -); - -</%init> diff --git a/httemplate/view/cust_main/tickets.html b/httemplate/view/cust_main/tickets.html deleted file mode 100644 index b5d581d50..000000000 --- a/httemplate/view/cust_main/tickets.html +++ /dev/null @@ -1,84 +0,0 @@ -<A NAME="tickets"><FONT SIZE="+2">Tickets</FONT></A> -<BR> - -(<A HREF="<% $open_link %>">View <% $openlabel %> tickets for this customer</A>) -(<A HREF="<% $res_link %>">View resolved tickets for this customer</A>) -<BR> -(<A HREF="<% $new_link %>">Create new ticket for this customer</A>) - -<% include("/elements/table-grid.html") %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; - -<TR> - <TH CLASS="grid" BGCOLOR="#cccccc">#</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Subject</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Status</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Queue</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Owner</TH> - <TH CLASS="grid" BGCOLOR="#cccccc">Priority</TH> -</TR> - -% foreach my $ticket ( @tickets ) { -% my $href = FS::TicketSystem->href_ticket($ticket->{id}); -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - <TR> - - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <A HREF=<%$href%>><% $ticket->{id} %></A> - </TD> - - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <A HREF=<%$href%>><% $ticket->{subject} %></A> - </TD> - - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $ticket->{status} %> - </TD> - - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $ticket->{queue} %> - </TD> - - <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $ticket->{owner} %> - </TD> - - <TD ALIGN="right" CLASS="grid" BGCOLOR="<% $bgcolor %>"> - <% $ticket->{content} - ? $ticket->{content}.' ('.$ticket->{priority}.')' - : $ticket->{priority} - %> - </TD> - - </TR> - -% } - -</TABLE> - -<%init> - -my( $cust_main ) = @_; -my( @tickets ) = $cust_main->tickets; - -my $open_link = FS::TicketSystem->href_customer_tickets($cust_main->custnum); -my $openlabel = join('/', FS::TicketSystem->statuses ); - -my $res_link = FS::TicketSystem->href_customer_tickets( - $cust_main->custnum, - { 'statuses' => [ 'resolved' ] } - ); - -my $new_link = FS::TicketSystem->href_new_ticket( - $cust_main, - join(', ', $cust_main->invoicing_list_emailonly ) - ); - -</%init> |