From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Sun, 16 Mar 2008 19:58:34 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'. --- httemplate/view/cust_bill-logo.cgi | 21 - httemplate/view/cust_bill-pdf.cgi | 28 -- httemplate/view/cust_bill-ps.cgi | 24 - httemplate/view/cust_bill.cgi | 119 ----- httemplate/view/cust_main.cgi | 187 -------- httemplate/view/cust_main/billing.html | 214 --------- httemplate/view/cust_main/contacts.html | 122 ----- httemplate/view/cust_main/misc.html | 112 ----- httemplate/view/cust_main/notes.html | 93 ---- httemplate/view/cust_main/packages.html | 629 ------------------------ httemplate/view/cust_main/payment_history.html | 630 ------------------------- httemplate/view/cust_main/tickets.html | 84 ---- httemplate/view/cust_pay.html | 133 ------ httemplate/view/elements/svc_Common.html | 136 ------ httemplate/view/logo.cgi | 47 -- httemplate/view/svc_Common.html | 29 -- httemplate/view/svc_acct.cgi | 396 ---------------- httemplate/view/svc_broadband.cgi | 211 --------- httemplate/view/svc_domain.cgi | 160 ------- httemplate/view/svc_external.cgi | 62 --- httemplate/view/svc_forward.cgi | 92 ---- httemplate/view/svc_phone.cgi | 10 - httemplate/view/svc_www.cgi | 88 ---- 23 files changed, 3627 deletions(-) delete mode 100755 httemplate/view/cust_bill-logo.cgi delete mode 100755 httemplate/view/cust_bill-pdf.cgi delete mode 100755 httemplate/view/cust_bill-ps.cgi delete mode 100755 httemplate/view/cust_bill.cgi delete mode 100755 httemplate/view/cust_main.cgi delete mode 100644 httemplate/view/cust_main/billing.html delete mode 100644 httemplate/view/cust_main/contacts.html delete mode 100644 httemplate/view/cust_main/misc.html delete mode 100755 httemplate/view/cust_main/notes.html delete mode 100755 httemplate/view/cust_main/packages.html delete mode 100644 httemplate/view/cust_main/payment_history.html delete mode 100644 httemplate/view/cust_main/tickets.html delete mode 100644 httemplate/view/cust_pay.html delete mode 100644 httemplate/view/elements/svc_Common.html delete mode 100644 httemplate/view/logo.cgi delete mode 100644 httemplate/view/svc_Common.html delete mode 100755 httemplate/view/svc_acct.cgi delete mode 100644 httemplate/view/svc_broadband.cgi delete mode 100755 httemplate/view/svc_domain.cgi delete mode 100644 httemplate/view/svc_external.cgi delete mode 100755 httemplate/view/svc_forward.cgi delete mode 100644 httemplate/view/svc_phone.cgi delete mode 100644 httemplate/view/svc_www.cgi (limited to 'httemplate/view') diff --git a/httemplate/view/cust_bill-logo.cgi b/httemplate/view/cust_bill-logo.cgi deleted file mode 100755 index 9c1c1d71d..000000000 --- a/httemplate/view/cust_bill-logo.cgi +++ /dev/null @@ -1,21 +0,0 @@ -<% $conf->config_binary("logo$templatename.png") %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices') - or $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $conf = new FS::Conf; - -my($query) = $cgi->keywords; -$query =~ /^([^\.\/]*)$/; -my $templatename = $1; -if ( $templatename && $conf->exists("logo_$templatename.png") ) { - $templatename = "_$templatename"; -} else { - $templatename = ''; -} - -http_header('Content-Type' => 'image/png' ); - - diff --git a/httemplate/view/cust_bill-pdf.cgi b/httemplate/view/cust_bill-pdf.cgi deleted file mode 100755 index f09e1b74d..000000000 --- a/httemplate/view/cust_bill-pdf.cgi +++ /dev/null @@ -1,28 +0,0 @@ -<% $pdf %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^((.+)-)?(\d+)(.pdf)?$/; -my $templatename = $2; -my $invnum = $3; - -my $cust_bill = qsearchs({ - 'select' => 'cust_bill.*', - 'table' => 'cust_bill', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'invnum' => $invnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Invoice #$invnum not found!" unless $cust_bill; - -my $pdf = $cust_bill->print_pdf( '', $templatename); - -http_header('Content-Type' => 'application/pdf' ); -http_header('Content-Length' => length($pdf) ); -http_header('Cache-control' => 'max-age=60' ); - - diff --git a/httemplate/view/cust_bill-ps.cgi b/httemplate/view/cust_bill-ps.cgi deleted file mode 100755 index 5313dbf02..000000000 --- a/httemplate/view/cust_bill-ps.cgi +++ /dev/null @@ -1,24 +0,0 @@ -<% $cust_bill->print_ps( '', $templatename) %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^((.+)-)?(\d+)$/; -my $templatename = $2; -my $invnum = $3; - -my $cust_bill = qsearchs({ - 'select' => 'cust_bill.*', - 'table' => 'cust_bill', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'invnum' => $invnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Invoice #$invnum not found!" unless $cust_bill; - -http_header('Content-Type' => 'application/postscript' ); - - diff --git a/httemplate/view/cust_bill.cgi b/httemplate/view/cust_bill.cgi deleted file mode 100755 index 951725531..000000000 --- a/httemplate/view/cust_bill.cgi +++ /dev/null @@ -1,119 +0,0 @@ -<% include("/elements/header.html",'Invoice View', menubar( - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -)) %> - - -% if ( $cust_bill->owed > 0 -% && ( $payby{'BILL'} || $payby{'CASH'} || $payby{'WEST'} || $payby{'MCRD'} ) -% ) -% { -% my $s = 0; - - Post -% if ( $payby{'BILL'} ) { - - - <% $s++ ? ' | ' : '' %> - check -% } -% if ( $payby{'CASH'} ) { - - - <% $s++ ? ' | ' : '' %> - cash -% } -% if ( $payby{'WEST'} ) { - - - <% $s++ ? ' | ' : '' %> - Western Union -% } -% if ( $payby{'MCRD'} ) { - - - <% $s++ ? ' | ' : '' %> - manual credit card -% } - - - payment against this invoice
-% } - - -Re-print this invoice -% if ( grep { $_ ne 'POST' } $cust_bill->cust_main->invoicing_list ) { - - | Re-email - this invoice -% } -% if ( $conf->exists('hylafax') && length($cust_bill->cust_main->fax) ) { - - | Re-fax - this invoice -% } - - -

-% if ( $conf->exists('invoice_latex') ) { - - View typeset invoice -

-% } - -% my $br = 0; -% if ( $cust_bill->num_cust_event ) { $br++; -( View invoice events ) -% } - -% if ( $cust_bill->num_cust_bill_event ) { $br++; -( View deprecated, old-style invoice events ) -% } - -<% $br ? '

' : '' %> - -% if ( $conf->exists('invoice_html') ) { - - <% join('', $cust_bill->print_html('', $templatename) ) %> -% } else { - - 
<% join('', $cust_bill->print_text('', $templatename) ) %>
-% } - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); - -#untaint invnum -my($query) = $cgi->keywords; -$query =~ /^((.+)-)?(\d+)$/; -my $templatename = $2; -my $invnum = $3; - -my $conf = new FS::Conf; - -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 $cust_bill = qsearchs({ - 'select' => 'cust_bill.*', - 'table' => 'cust_bill', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'invnum' => $invnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Invoice #$invnum not found!" unless $cust_bill; - -my $custnum = $cust_bill->custnum; - -#my $printed = $cust_bill->printed; - -my $link = $templatename ? "$templatename-$invnum" : $invnum; - - - - diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi deleted file mode 100755 index 4ca777d6a..000000000 --- a/httemplate/view/cust_main.cgi +++ /dev/null @@ -1,187 +0,0 @@ -<% include("/elements/header.html","Customer View: ". $cust_main->name ) %> - -% if ( $curuser->access_right('Edit customer') ) { - Edit this customer | -% } - - - - - - - - -% if ( $curuser->access_right('Cancel customer') -% && $cust_main->ncancelled_pkgs -% ) { - - <% cust_cancel_link($cust_main) %> | - -% } - -% if ( $conf->exists('deletecustomers') -% && $curuser->access_right('Delete customer') -% ) { - Delete this customer | -% } - -% unless ( $conf->exists('disable_customer_referrals') ) { - Refer a new customer | - View this customer's referrals -% } - -

- -% if ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) { - - View billing events for this customer -

- -% } - -%my $signupurl = $conf->config('signupurl'); -%if ( $signupurl ) { - This customer's signup URL: <% $signupurl %>?ref=<% $custnum %>

-% } - - - - - - - - -
- <% include('cust_main/contacts.html', $cust_main ) %> - - <% include('cust_main/misc.html', $cust_main ) %> -% if ( $conf->config('payby-default') ne 'HIDE' ) { - -
- <% include('cust_main/billing.html', $cust_main ) %> -% } - -
-% -%if ( $cust_main->comments =~ /[^\s\n\r]/ ) { -% - -
-Comments -<% ntable("#cccccc") %><% ntable("#cccccc",2) %> - - - 
<% encode_entities($cust_main->comments) %>
- - - -% } -

-% my $notecount = scalar($cust_main->notes()); -% if ( ! $conf->exists('cust_main-disable_notes') || $notecount) { - -Notes
-% if ( $curuser->access_right('Add customer note') && -% ! $conf->exists('cust_main-disable_notes') -% ) { - - Add customer note - -% } - -
- -% if ($notecount) { - - - -% }else{ # make firefox happy wrt POSTDATA - - - -% } - -% } - - -% if ( $conf->config('ticket_system') ) { - -

- <% include('cust_main/tickets.html', $cust_main ) %> -% } - - -

- -% #XXX enable me# if ( $curuser->access_right('View customer packages') { -<% include('cust_main/packages.html', $cust_main ) %> -% #} - -% if ( $conf->config('payby-default') ne 'HIDE' ) { - <% include('cust_main/payment_history.html', $cust_main ) %> -% } - - -<% include('/elements/footer.html') %> -<%init> - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" - unless $curuser->access_right('View customer'); - -my $conf = new FS::Conf; - -die "No customer specified (bad URL)!" unless $cgi->keywords; -my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array -$query =~ /^(\d+)$/; -my $custnum = $1; -my $cust_main = qsearchs( { - 'table' => 'cust_main', - 'hashref' => { 'custnum' => $custnum }, - 'extra_sql' => ' AND '. $curuser->agentnums_sql, -}); -die "Customer not found!" unless $cust_main; - - -<%once> - - -sub cust_cancel_link { cust_popup_link( 'misc/cancel_cust.html', - 'Cancel this customer', - 'Confirm Cancellation', - '#ff0000', - @_, - ); -} - -#false laziness w/view/cust_main/packages.html - -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) = @_; - $color ||= '#333399'; - qq!$label!; - -# CLOSETEXT, '', -#WIDTH, 576, HEIGHT, 128, TEXTSIZE, 3, -#BGCOLOR, '#ff0000', CGCOLOR, '#ff0000' -} - - 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) -% ) { - (Bill now) -% } - -<% ntable("#cccccc") %><% ntable("#cccccc",2) %> - -%( my $balance = $cust_main->balance ) -% =~ s/^(\-?)(.*)$/$1<\/FONT>$money_char$2/; - - - Balance due - <% $balance %> - - - - Billing type - -% if ( $cust_main->payby eq 'CARD' || $cust_main->payby eq 'DCRD' ) { - - - Credit card <% $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' %> - - - - Card number - <% $cust_main->paymask %> - -% -%#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 ) = ( '', '' ); -%} -% - - - Expiration - <% "$mon/$year" %> - -% if ( $cust_main->paystart_month ) { - - - Start date - <% $cust_main->paystart_month. '/'. $cust_main->paystart_year %> - -% } elsif ( $cust_main->payissue ) { - - - Issue # - <% $cust_main->payissue %> - -% } - - - - Name on card - <% $cust_main->payname %> - -% } 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)' %> - - - - ABA/Routing code - <% $aba %> - - - Account number - <% 'x'x(length($account)-2). substr($account,(length($account)-2)) %> - - - Account type - <% $cust_main->paytype %> - - - Bank name - <% $cust_main->payname %> - -% if ( $conf->exists('show_bankstate') ) { - - <% $paystate_label %> - <% $cust_main->paystate || '   ' %> - -% } -% } elsif ( $cust_main->payby eq 'LECB' ) { -% $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/; -% my $payinfo = "$1-$2-$3"; -% - - - Phone bill billing - - - - Phone number - <% $payinfo %> - -% } elsif ( $cust_main->payby eq 'BILL' ) { - - - Billing - - -% if ( $cust_main->payinfo ) { - - - P.O. - <% $cust_main->payinfo %> - -% } - - - - Attention - <% $cust_main->payname %> - -% } elsif ( $cust_main->payby eq 'COMP' ) { - - - Complimentary - - - - Authorized by - <% $cust_main->payinfo %> - -% -%#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 ) = ( '', '' ); -%} -% - - - Expiration - <% "$mon/$year" %> - -% } - - - - Tax exempt - <% $cust_main->tax ? 'yes' : 'no' %> - - - Postal invoices - - <% ( grep { $_ eq 'POST' } @invoicing_list ) ? 'yes' : 'no' %> - - - - FAX invoices - - <% ( grep { $_ eq 'FAX' } @invoicing_list ) ? 'yes' : 'no' %> - - - - Email invoices - - <% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || 'no' %> - - - - Invoice terms - - <% $cust_main->invoice_terms || 'Default ('. ( $conf->config('invoice_default_terms') || 'Payable upon receipt' ). ')' %> - - - -% if ( $conf->exists('voip-cust_cdr_spools') ) { - - Spool CDRs - <% $cust_main->spool_cdr ? 'yes' : 'no' %> - -% } - - -<%once> - -my $paystate_label = FS::Msgcat::_gettext('paystate'); -$paystate_label = 'Bank state' if $paystate_label =~/^paystate$/; - - -<%init> - -my( $cust_main ) = @_; -my @invoicing_list = $cust_main->invoicing_list; -my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - - 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") %><% ntable("#cccccc",2) %> - - Contact name - - <% $cust_main->get("${pre}last"). ', '. $cust_main->get("${pre}first") %> - -% if ( $which eq '' && $conf->exists('show_ss') ) { - SS# - <% $cust_main->masked('ss') || ' ' %> -% } - - - Company - <% $cust_main->get("${pre}company") %> - - - Address - <% $cust_main->get("${pre}address1") %> - - -% if ( $cust_main->get("${pre}address2") ) { -% my $address2_label = -% ( $conf->exists('cust_main-require_address2') -% && ! ( $pre xor $cust_main->has_ship_address ) -% ) -% ? 'Unit #' -% : ' '; - - - <% $address2_label %> - <% $cust_main->get("${pre}address2") %> - - -% } - - - City - <% $cust_main->get("${pre}city") %> -% if ( $cust_main->get("${pre}county") ) { - County - <% $cust_main->get("${pre}county") %> -% } - State - <% state_label( $cust_main->get("${pre}state"), $cust_main->get("${pre}country") ) %> - Zip - <% $cust_main->get("${pre}zip") %> - - - Country - <% code2country( $cust_main->get("${pre}country") ) %> - - - <% $daytime_label %> - - <% include('/elements/phonenumber.html', - $cust_main->get("${pre}daytime"), - 'callable'=>1 - ) - %> - - - - <% $night_label %> - - <% include('/elements/phonenumber.html', - $cust_main->get("${pre}night"), - 'callable'=>1 - ) - %> - - - - Fax - - <% $cust_main->get("${pre}fax") || ' ' %> - - -% if ( $which eq '' && $conf->exists('show_stateid') ) { - - <% $stateid_label %> - <% $cust_main->masked('stateid') || ' ' %> - <% $stateid_state_label %> - <% $cust_main->stateid_state || ' ' %> - -% } - -% if ( $which ne 'ship_' ) { -
-% } -% } - -<%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'); - - -<%init> - -my( $cust_main ) = @_; -my $conf = new FS::Conf; - - - 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") %><% &ntable("#cccccc",2) %> - - - Customer number - <% $cust_main->custnum %> - - - - Status - <% ucfirst($cust_main->status) %> - -% -% my @agents = qsearch( 'agent', {} ); -% my $agent; -% unless ( scalar(@agents) == 1 ) { -% $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } ); -% - - - - Agent - <% $agent->agentnum %>: <% $agent->agent %> - -% -% } else { -% $agent = $agents[0]; -% } -% -% if ( $cust_main->agent_custid ) { -% - - - - Agent customer ref# - <% $cust_main->agent_custid %> - -% -% } -% -% unless ( FS::part_referral->num_part_referral == 1 ) { -% my $referral = qsearchs('part_referral', { -% 'refnum' => $cust_main->refnum -% } ); -% - - - - Advertising source - <% $referral->refnum %>: <% $referral->referral%> - -% } - - - - Referring Customer - -% -% my $referring_cust_main = ''; -% if ( $cust_main->referral_custnum -% && ( $referring_cust_main = -% qsearchs('cust_main', { custnum => $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 - ) -%> -% } - - - - - - - Order taker - <% $cust_main->otaker %> - - - - Signup Date - <% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %> - - -% if ( $conf->exists('cust_main-enable_birthdate') ) { -% my $dt = DateTime->from_epoch(epoch => $cust_main->birthdate, -% time_zone=>'floating', -% ); - - - Date of Birth - <% $cust_main->birthdate ne '' ? $dt->strftime($date_format) : '' %> - - -% } - - - 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; -% - - - -% my (@notes) = $cust_main->notes(); -% if ( scalar(@notes) ) { - - - - - - - - -% 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!!; -% $eel = qq!!; -% }else{ -% $el = $eel = ''; -% } - - - <% note_datestr($note,$conf,$bgcolor, $el, $eel) %> - - - - -% } #end display notes - -
- <% $el %>  <%$note->otaker%>  <% $eel %> - -  <%$note->comments%> -
- -% } -% -%#subroutines -% -%sub note_datestr { -% my($note, $conf, $bgcolor, $el, $eel) = @_ or return ''; -% my $format=qq{$el%b$eel}. -% qq{$el %o,$eel}. -% qq{$el %Y $eel}; -% $format .= qq{$el %l$eel}. -% qq{$el:$eel}. -% qq{$el%M$eel}. -% qq{$el %P $eel} -% 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 @@ -Packages
- -% 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++ ? ' | ' : '' %> - Bulk order and cancel packages (preserves services) -% } - - -

-% 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); -% - - ( show -% } else { -% $cgi->param('showcancelledpackages', 0); -% - - ( hide -% } - - cancelled packages ) -% } -% if ( @$packages ) { - - -<% include('/elements/table-grid.html') %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; - - - Package - Status - Services - - -%foreach my $cust_pkg (@$packages) { -% -% my $part_pkg = $cust_pkg->part_pkg; -% -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - - - - - - - <% $cust_pkg->pkgnum %>: - <% $part_pkg->pkg %> - <% $part_pkg->comment %> -
- - -% 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 ? '
' : '' %> -% } - -% if ( $cust_pkg->num_cust_event -% && ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) -% ) { - ( <%pkg_event_link($cust_pkg)%> ) -% } - - - - - - - -% -% 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' ) %> - - - - - -% } else { #status: active -% -% unless ( $cust_pkg->get('setup') ) { #not setup -% -% unless ( $part_pkg->freq ) { - - <% pkg_status_row_colspan('Not yet billed (one-time charge)') %> - - - - - -% } 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 ) { - - - - -% } -% -% } -% } - -
> - -% 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) %> ) -% } - -
> - -% if ( $curuser->access_right('Cancel customer package immediately') ) { - ( <% pkg_cancel_link($cust_pkg) %> ) -% } - -
> - -% 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) %> ) -% } - - -
- - - - - -% #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 } ) { - - - - - - - - - - - - - - - - -% } - -% if ( ! $cust_pkg->get('cancel') -% && $curuser->access_right('Provision customer service') -% && $part_svc->num_avail -% ) { - - - - - -% } - -% } - -
<% FS::UI::Web::svc_link($m, $part_svc, $cust_svc) %><% FS::UI::Web::svc_label_link($m, $part_svc, $cust_svc) %><% FS::UI::Web::svc_export_links($m, $part_svc, $cust_svc) %>
- - <% $cust_svc->overlimit ? "Overlimit: ". time2str('%b %o %Y' . ($conf->exists('cust_pkg-display_times') ? ' %l:%M %P' : ''), $cust_svc->overlimit) : '' %> -
- -% 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)%> ) -% } - - -% if ( $curuser->access_right('Unprovision customer service') ) { - ( <%svc_unprovision_link($cust_svc)%> ) -% } -
- <% svc_provision_link($cust_pkg, $part_svc, $conf, $curuser) %> -
- -% } #end display packages -% - - - -% } else { - -
-% } -% if ( $cgi->param('fragment') =~ /^cust_pkg(\d+)$/ ) { - -% } -<%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(); - $html .= qq() if length($color); - $html .= qq($title ); - $html .= qq() if length($color); - $html .= qq(); - $html .= pkg_datestr($cust_pkg, $field, $conf).''; - - $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(); - $html .= qq() if length($color) || $size; - $html .= qq() if $color && !$size; - $html .= $title; - $html .= qq() if $color && !$size; - $html .= qq() if length($color) || $size; - $html .= ", $addl" if length($addl); - $html .= qq(); - - $html; - -} - - -<%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!!. - "Provision $svc_nbsp ($num_avail)"; - if ( $conf->exists('legacy_link') - && $curuser->access_right('View/link unlinked services') - ) - { - $link .= '
'. - qq!!. - "Link to legacy $svc_nbsp ($num_avail)"; - } - $link; -} - -sub svc_unprovision_link { - my $cust_svc = shift or return ''; - qq!Unprovision!; -} - -sub pkg_datestr { - my($cust_pkg, $field, $conf) = @_ or return ''; - return ' ' unless $cust_pkg->get($field); - my $format = '%b'. - ' %o,'. - ' %Y'; - #$format .= ' %l:%M:%S%P %z' - $format .= ' %l'. - ':'. - '%M'. - ' %P' - 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!!. - 'View package events'. - ''; -} - -sub pkg_link { - my($action, $label, $cust_pkg) = @_; - return '' unless $cust_pkg; - qq!$label!; -} - -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!$label!; -} - -sub pkg_customize_link { - my $cust_pkg = shift or return ''; - my $custnum = $cust_pkg->custnum; - qq!Customize!; -} - - 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 @@ -

Payment History
- -% my $s = 0; -% if ( $payby{'BILL'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Enter check payment -% } - -% if ( $payby{'CASH'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Enter cash payment -% } - -% if ( $payby{'WEST'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Enter Western Union payment -% } - -% if ( ( $payby{'CARD'} || $payby{'DCRD'} ) -% && $curuser->access_right('Process payment') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - <% $s++ ? ' | ' : '' %> - Process credit card payment -% } - -% if ( ( $payby{'CHEK'} || $payby{'DCHK'} ) -% && $curuser->access_right('Process payment') -% && ! $cust_main->is_encrypted($cust_main->payinfo) -% ) { - <% $s++ ? ' | ' : '' %> - Process electronic check (ACH) payment -% } - -% if ( $payby{'MCRD'} && $curuser->access_right('Post payment') ) { - <% $s++ ? ' | ' : '' %> - Post manual (offline) credit card payment -% } - -
- -% if ( $curuser->access_right('Post credit') ) { - Enter credit -
-% } - -% if ( $curuser->access_right('View customer tax exemptions') ) { - View tax exemptions -
-% } - -% if ( $conf->exists('batch-enable') -% && $curuser->access_right('View customer batched payments') -% ) { - View batched payments: -% foreach my $status (qw( Queued In-transit Complete All )) { - <% $status %> - <% $status ne 'All' ? '|' : '' %> -% } -
-% } - -%#get payment history -%my @history = (); -% -%#invoices -%foreach my $cust_bill ($cust_main->cust_bill) { -% my $pre = ( $cust_bill->owed > 0 ) -% ? 'Open ' -% : ''; -% my $post = ( $cust_bill->owed > 0 ) ? '' : ''; -% my $invnum = $cust_bill->invnum; -% my $link = $curuser->access_right('View invoices') -% ? qq!! -% : ''; -% my $events = ''; -% if ( $cust_bill->num_cust_event -% && ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) -% ) { -% $events = -% qq!
( View invoice events )'; -% } -% push @history, { -% 'date' => $cust_bill->_date, -% 'desc' => $link. $pre. -% "Invoice #$invnum (Balance \$". $cust_bill->owed. ')'. -% $post. ( $link ? '' : '' ). $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 = 'Unapplied '; -% $post = ''; -% if ( $curuser->access_right('Apply payment') ) { -% $apply = qq! (apply)!; -% } -% } 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 = '
'; -% 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. -% '
'; -% #' on '. time2str("%D", $cust_bill_pay->_date). -% } elsif ( $app->isa('FS::cust_pay_refund') ) { -% $desc .= '  '. -% '$'. $app->amount. -% ' refunded on '. time2str("%D", $app->_date). -% '
'; -% } else { -% die "$app is not a FS::cust_bill_pay or FS::cust_pay_refund"; -% } -% } -% if ( $cust_pay->unapplied > 0 ) { -% $desc .= '  '. -% '$'. -% $cust_pay->unapplied. ' unapplied'; -% if ( $curuser->access_right('Apply payment') ) { -% $desc .= qq! (apply)!; -% } -% $desc .= '
'; -% } -% } -% -% my $view = qq! (view receipt)!; -% -% 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! (refund)!; -% } -% -% 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! (void)!; -% } -% -% my $delete = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && $conf->exists('deletepayments') -% && $curuser->access_right('Delete payment') -% ) -% { -% $delete = qq! (delete)!; -% } -% -% my $unapply = ''; -% if ( $cust_pay->closed !~ /^Y/i -% && scalar(@cust_bill_pay) -% && $curuser->access_right('Unapply payment') -% ) -% { -% $unapply = qq! (unapply)!; -% } -% -% my $otaker = $cust_pay->otaker; -% $otaker = 'auto billing' if $otaker eq 'fs_daily'; -% $otaker = 'customer self-service' 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! (unvoid)!; -% } -% -% push @history, { -% 'date' => $cust_pay_void->_date, -% 'desc' => "Payment $info voided ". -% time2str("%D", $cust_pay_void->void_date). -% " by ". $cust_pay_void->otaker. ''. $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 = 'Unapplied '; -% $post = ''; -% if ( $curuser->access_right('Apply credit') ) { -% $apply = qq! (apply)!; -% } -% } 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 = '
'; -% 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. -% '
'; -% #' on '. time2str("%D", $app->_date). -% } elsif ( $app->isa('FS::cust_credit_refund') ) { -% $desc .= '  '. -% '$'. $app->amount. -% ' refunded on '. time2str("%D", $app->_date). -% '
'; -% } else { -% die "$app is not a FS::cust_credit_bill or a FS::cust_credit_refund"; -% } -% } -% if ( $cust_credit->credited > 0 ) { -% $desc .= '  $'. -% $cust_credit->credited. ' unapplied'; -% if ( $curuser->access_right('Apply credit') ) { -% $desc .= qq! (apply)!; -% } -% $desc .= '
'; -% } -% } -%# -% 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! (!. -% qq!delete)!; -% } -% -% my $unapply = ''; -% if ( $cust_credit->closed !~ /^Y/i -% && scalar(@cust_credit_bill) -% && $curuser->access_right('Unapply credit') -% ) -% { -% $unapply = qq! (!. -% qq!unapply)!; -% } -% -% 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! (delete)!; -% } -% -% push @history, { -% 'date' => $cust_refund->_date, -% 'desc' => "Refund ($payby$payinfo) by ". $cust_refund->otaker. "
". -% $delete, -% 'refund' => $cust_refund->refund, -% }; -% -%} -% -% - - -<% include("/elements/table-grid.html") %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; -% - - - - Date - Description - Charge - Payment - In-house
Credit - Refund - Balance - -% -%#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/^\$\-/- \$/; - - - - <% time2str("%D",$date) %> - - - - Starting balance on <% time2str("%D",$date) %> - (show prior history) - - - - - - - <% $balance_forward %> - - -%} -% -%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( "- $money_char\%.2f", -% $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/^\$\-/- \$/; -% -% - - - > - -% unless ( !$target || $target{$target}++ ) { - - -% } - - <% time2str("%D",$item->{'date'}) %> -% if ( $target && $target{$target} == 1 ) { - - -% } - - - - - <% $item->{'desc'} %> - - - <% $charge %> - - - <% $payment %> - - - <% $credit %> - - - <% $refund %> - - - <% $showbalance %> - - -% } - -%if ( scalar(@history) && $hidden && ! $seen++ ) { -% balance_forward_row($balance, $lastdate); -%} - - - - - -<%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' => '', -); - - 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 @@ -Tickets -
- -(View <% $openlabel %> tickets for this customer) -(View resolved tickets for this customer) -
-(Create new ticket for this customer) - -<% include("/elements/table-grid.html") %> -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = ''; - - - # - Subject - Status - Queue - Owner - Priority - - -% foreach my $ticket ( @tickets ) { -% my $href = FS::TicketSystem->href_ticket($ticket->{id}); -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - - - - - ><% $ticket->{id} %> - - - - ><% $ticket->{subject} %> - - - - <% $ticket->{status} %> - - - - <% $ticket->{queue} %> - - - - <% $ticket->{owner} %> - - - - <% $ticket->{content} - ? $ticket->{content}.' ('.$ticket->{priority}.')' - : $ticket->{priority} - %> - - - - -% } - - - -<%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 ) - ); - - diff --git a/httemplate/view/cust_pay.html b/httemplate/view/cust_pay.html deleted file mode 100644 index 4037d3525..000000000 --- a/httemplate/view/cust_pay.html +++ /dev/null @@ -1,133 +0,0 @@ -% if ( $link eq 'popup' ) { - - <% include('/elements/header-popup.html', "Payment Receipt" ) %> - -
Print

- -% } elsif ( $link eq 'print' ) { - - <% include('/elements/header-popup.html', "Payment Receipt" ) %> - -% #it would be nice if the menubar could be hidden for print, but better to -% # have it available than not, otherwise the user winds up at a dead end - <% menubar( - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - %> -

- -% } else { - - <% include('/elements/header.html', "Payment Receipt", menubar( - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - 'Print receipt' => $pr_link, - )) - %> - -% } - -% unless ($link eq 'popup' ) { - <% include('/elements/small_custview.html', - $custnum, - scalar($conf->config('countrydefault')), - 1, #no balance - ) - %> -

-% } - -<% ntable("#cccccc", 2) %> - - - Payment# - <% $cust_pay->paynum %> - - - - Date - <% time2str"%a %b %o, %Y %r", $cust_pay->_date %> - - - - Amount - <% $money_char. $cust_pay->paid %> - - - - Payment method - <% $cust_pay->payby_name %> #<% $cust_pay->paymask %> - - -% if ( $cust_pay->payby =~ /^(CARD|CHEK|LECB)$/ && $cust_pay->paybatch ) { - - - Processor - <% $cust_pay->processor %> - - - - Authorization# - <% $cust_pay->authorization %> - - -% if ( $cust_pay->order_number ) { - - Order# - <% $cust_pay->order_number %> - -% } - -% } - - - -% if ( $link eq 'print' ) { - - - -% } - -% if ( $link =~ /^(popup|print)$/ ) { - - -% } else { - <% include('/elements/footer.html') %> -% } - -<%init> - -my $curuser = $FS::CurrentUser::CurrentUser; - -die "access denied" - unless $curuser->access_right('View customer payments'); - -$cgi->param('paynum') =~ /^(\d+)$/ or die "no paynum"; -my $paynum = $1; - -my $link = ''; -if ( $cgi->param('link') =~ /^(\w+)$/ ) { - $link = $1; -} - -my $cust_pay = qsearchs({ - 'select' => 'cust_pay.*', - 'table' => 'cust_pay', - 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'paynum' => $paynum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Payment #$paynum not found!" unless $cust_pay; - -my $pr_link = "${p}view/cust_pay.html?link=print;paynum=$paynum"; - -my $custnum = $cust_pay->custnum; - -my $conf = new FS::Conf; - -my $money_char = $conf->config('money_char') || '$'; - -tie my %payby, 'Tie::IxHash', FS::payby->payby2longname; - - diff --git a/httemplate/view/elements/svc_Common.html b/httemplate/view/elements/svc_Common.html deleted file mode 100644 index 0500248b1..000000000 --- a/httemplate/view/elements/svc_Common.html +++ /dev/null @@ -1,136 +0,0 @@ -% # options example... -% # -% # 'table' => 'svc_something' -% # -% # 'labels' => { -% # 'column' => 'Label', -% # }, -% # -% # listref - each item is a literal column name (or method) or (notyet) coderef -% # if not specified all columns (except for the primary key) will be viewable -% # 'fields' => [ -% # ] -% # -% # # defaults to "edit/$table.cgi?", will have svcnum appended -% # 'edit_url' => -% -% -% if ( $custnum ) { - - - <% include("/elements/header.html","View $label: $value") %> - - <% include( '/elements/small_custview.html', $custnum, '', 1, - "${p}view/cust_main.cgi") %> -
-% } else { - - - - - <% include("/elements/header.html","View $label: $value", menubar( - "Cancel this (unaudited) $label" => - "javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')" - )) %> -% } - - -Service #<% $svcnum %> -% my $url = $opt{'edit_url'} || $p. 'edit/'. $opt{'table'}. '.cgi?'; -| Edit this <% $label %> -
- -<% ntable("#cccccc") %><% ntable("#cccccc",2) %> -% foreach my $f ( @$fields ) { -% -% my( $field, $type); -% if ( ref($f) ) { -% $field = $f->{'field'}, -% $type = $f->{'type'} || 'text', -% } else { -% $field = $f; -% $type = 'text'; -% } -% - - - - - <% ( $opt{labels} && exists $opt{labels}->{$field} ) - ? $opt{labels}->{$field} - : $field - %> - -% -% #eventually more options for - - -% #print qq!
Send account information!; -% -% if ( $pkgnum ) { -% @part_svc = grep { $_->svcdb eq 'svc_acct' -% && $_->svcpart != $part_svc->svcpart } -% $cust_pkg->available_part_svc; -% } else { -% @part_svc = qsearch('part_svc', { -% svcdb => 'svc_acct', -% disabled => '', -% svcpart => { op=>'!=', value=>$part_svc->svcpart }, -% } ); -% } -% -% } - -Service #<% $svcnum %> -| Edit this service - -% if ( @part_svc ) { - -| - - -% } - - -<% &ntable("#cccccc") %><% &ntable("#cccccc",2) %> - - - Service - <% $part_svc->svc %> - - - Username - <% $svc_acct->username %> - - - Domain - <% $domain %> - - - - Password - -% my $password = $svc_acct->_password; -% if ( $password =~ /^\*\w+\* (.*)$/ ) { -% $password = $1; -% - - (login disabled) -% } -% if ( $conf->exists('showpasswords') ) { - - 
<% encode_entities($password) %>
-% } else { - - (hidden) -% } - - - - -% $password = ''; -% if ( $conf->exists('security_phrase') ) { -% my $sec_phrase = $svc_acct->sec_phrase; -% - - - Security phrase - <% $svc_acct->sec_phrase %> - -% } -% if ( $svc_acct->popnum ) { -% my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum}); -% - - - Access number - <% $svc_acct_pop->text %> - -% } -% if ($svc_acct->uid ne '') { - - - UID - <% $svc_acct->uid %> - -% } -% if ($svc_acct->gid ne '') { - - - GID - <% $svc_acct->gid %> - -% } -% if ($svc_acct->finger ne '') { - - - GECOS - <% $svc_acct->finger %> - -% } -% if ($svc_acct->dir ne '') { - - - Home directory - <% $svc_acct->dir %> - -% } -% if ($svc_acct->shell ne '') { - - - Shell - <% $svc_acct->shell %> - -% } -% if ($svc_acct->quota ne '') { - - - Quota - <% $svc_acct->quota %> - -% } -% if ($svc_acct->slipip) { - - - IP address - - <% ( $svc_acct->slipip eq "0.0.0.0" || $svc_acct->slipip eq '0e0' ) - ? "(Dynamic)" - : $svc_acct->slipip - %> - - -% } -% my %ulabel = ( seconds => 'Time', -% upbytes => 'Upload bytes', -% downbytes => 'Download bytes', -% totalbytes => 'Total bytes', -% ); -% foreach my $uf ( keys %ulabel ) { -% my $tf = $uf . "_threshold"; -% if ( $svc_acct->$uf ne '' ) { -% my $v = $uf eq 'seconds' -% ? (($svc_acct->$uf < 0 ? '-' : ''). duration_exact($svc_acct->$uf) ) -% : FS::UI::bytecount::display_bytecount($svc_acct->$uf); - - <% $ulabel{$uf} %> remaining - <% $v %> - - -% } -% } -% foreach my $attribute ( grep /^radius_/, $svc_acct->fields ) { -% $attribute =~ /^radius_(.*)$/; -% my $pattribute = $FS::raddb::attrib{$1}; -% - - - Radius (reply) <% $pattribute %> - <% $svc_acct->getfield($attribute) %> - -% } -% foreach my $attribute ( grep /^rc_/, $svc_acct->fields ) { -% $attribute =~ /^rc_(.*)$/; -% my $pattribute = $FS::raddb::attrib{$1}; -% - - - Radius (check) <% $pattribute %> - <% $svc_acct->getfield($attribute) %> - -% } - - - - RADIUS groups - <% join('
', $svc_acct->radius_groups) %> - -% -%# Can this be abstracted further? Maybe a library function like -%# widget('HTML', 'view', $svc_acct) ? It would definitely make UI -%# style management easier. -% -% foreach (sort { $a cmp $b } $svc_acct->virtual_fields) { - - <% $svc_acct->pvf($_)->widget('HTML', 'view', $svc_acct->getfield($_)) %> -% } - - - - -

- -% if ( @svc_www ) { - Hosting - <% &ntable("#cccccc") %><% &ntable("#cccccc",2) %> -% foreach my $svc_www (@svc_www) { -% my($label, $value) = $svc_www->cust_svc->label; -% my $link = $p. 'view/svc_www.cgi?'. $svc_www->svcnum; - - - <% "$label: $value" %> - - -% } - -

-% } - -<% join("
", $conf->config('svc_acct-notes') ) %> -

- -<% joblisting({'svcnum'=>$svcnum}, 1) %> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my $conf = new FS::Conf; - -my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) '; - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_acct = qsearchs({ - 'select' => 'svc_acct.*', - 'table' => 'svc_acct', - 'addl_from' => $addl_from, - 'hashref' => { 'svcnum' => $svcnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Unknown svcnum" unless $svc_acct; - -#false laziness w/all svc_*.cgi -my $cust_svc = qsearchs( 'cust_svc' , { 'svcnum' => $svcnum } ); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} -#eofalse - -my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); -die "Unknown svcpart" unless $part_svc; -my $svc = $part_svc->svc; - -die 'Empty domsvc for svc_acct.svcnum '. $svc_acct->svcnum - unless $svc_acct->domsvc; -my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc } ); -die 'Unknown domain (domsvc '. $svc_acct->domsvc. - ' for svc_acct.svcnum '. $svc_acct->svcnum. ')' - unless $svc_domain; -my $domain = $svc_domain->domain; - -my @svc_www = qsearch({ - 'select' => 'svc_www.*', - 'table' => 'svc_www', - 'addl_from' => $addl_from, - 'hashref' => { 'usersvc' => $svcnum }, - #XXX shit outta luck if you somehow got them linked across agents - # maybe we should show but not link to them? kinda makes sense... - # (maybe a specific ACL for this situation???) - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql( - 'null_right' => 'View/link unlinked services' - ), -}); - - diff --git a/httemplate/view/svc_broadband.cgi b/httemplate/view/svc_broadband.cgi deleted file mode 100644 index e614fe418..000000000 --- a/httemplate/view/svc_broadband.cgi +++ /dev/null @@ -1,211 +0,0 @@ -<%include("/elements/header.html",'Broadband Service View', menubar( - ( ( $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Cancel this (unaudited) website" => - "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ) -)) -%> - -Edit this information -
-<%ntable("#cccccc")%> - - - <%ntable("#cccccc",2)%> - - Service number - <%$svcnum%> - - - Description - <%$description%> - - - Router - <%$routernum%>: <%$routername%> - - - Download Speed - <%$speed_down%> - - - Upload Speed - <%$speed_up%> - - - IP Address - <%$ip_addr%> - - - IP Netmask - <%$ip_netmask%> - - - IP Gateway - <%$ip_gateway%> - - - MAC Address - <%$mac_addr%> - - - Latitude - <%$latitude%> - - - Longitude - <%$longitude%> - - - Altitude - <%$altitude%> - - - VLAN Profile - <%$vlan_profile%> - - - Authentication Key - <%$auth_key%> - - -% -%foreach (sort { $a cmp $b } $svc_broadband->virtual_fields) { -% print $svc_broadband->pvf($_)->widget('HTML', 'view', -% $svc_broadband->getfield($_)), "\n"; -%} -% -% - - - - - - -
-<%ntable("#cccccc", 2)%> -% -% my $sb_router = qsearchs('router', { svcnum => $svcnum }); -% if ($sb_router) { -% - - Router associated: <%$sb_router->routername%> - - (details) - -
-% my @sb_addr_block; -% if (@sb_addr_block = $sb_router->addr_block) { -% - - Address space - - (edit) - -
-% print ntable("#cccccc", 1); -% foreach (@sb_addr_block) { - - - <%$_->ip_gateway%>/<%$_->ip_netmask%> - -% } - - -% } else { - - No address space allocated. -% } - -
-% -% } else { -% - - -
- -Add router named - - -
-% -%} -% - - -
-<%joblisting({'svcnum'=>$svcnum}, 1)%> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_broadband = qsearchs({ - 'select' => 'svc_broadband.*', - 'table' => 'svc_broadband', - 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) ', - 'hashref' => { 'svcnum' => $svcnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}) or die "svc_broadband: Unknown svcnum $svcnum"; - -#false laziness w/all svc_*.cgi -my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} -#eofalse - -my $addr_block = $svc_broadband->addr_block; -my $router = $addr_block->router; - -if (not $router) { die "Could not lookup router for svc_broadband (svcnum $svcnum)" }; - -my ( - $routername, - $routernum, - $speed_down, - $speed_up, - $ip_addr, - $ip_gateway, - $ip_netmask, - $mac_addr, - $latitude, - $longitude, - $altitude, - $vlan_profile, - $auth_key, - $description, - ) = ( - $router->getfield('routername'), - $router->getfield('routernum'), - $svc_broadband->getfield('speed_down'), - $svc_broadband->getfield('speed_up'), - $svc_broadband->getfield('ip_addr'), - $addr_block->ip_gateway, - $addr_block->NetAddr->mask, - $svc_broadband->mac_addr, - $svc_broadband->latitude, - $svc_broadband->longitude, - $svc_broadband->altitude, - $svc_broadband->vlan_profile, - $svc_broadband->auth_key, - $svc_broadband->description, - ); - - diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi deleted file mode 100755 index d6565db34..000000000 --- a/httemplate/view/svc_domain.cgi +++ /dev/null @@ -1,160 +0,0 @@ -<% include("/elements/header.html",'Domain View', menubar( - ( ( $pkgnum || $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Delete this (unaudited) domain" => - "javascript:areyousure('${p}misc/cancel-unaudited.cgi?$svcnum', 'Delete $domain and all records?' )" ) - ) -)) %> - -Service #<% $svcnum %> -
Service: <% $part_svc->svc %> -
Domain name: <% $domain %> -% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) { -
Catch all email (change): -% } else { -
Catch all email: -% } - -<% $email ? "$email" : "(none)" %> -

View whois information. -

- - -% my @records; if ( @records = $svc_domain->domain_record ) { - - <% include('/elements/table-grid.html') %> - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = $bgcolor2; - - - Zone - Type - Data - - -% foreach my $domain_record ( @records ) { -% my $type = $domain_record->rectype eq '_mstr' -% ? "(slave)" -% : $domain_record->recaf. ' '. $domain_record->rectype; - - - - <% $domain_record->reczone %> - <% $type %> - <% $domain_record->recdata %> - -% unless ( $domain_record->rectype eq 'SOA' -% || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') -% ) { -% ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g; - (delete) -% } - - - - -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - -% } - - -% } - -% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) { -
-
- - - IN - - - -
- -

- or -

- -
- -% if ( @records ) { - Delete all records and -% } - Slave from nameserver IP - - - - - - -
- -% } - -

- -<% joblisting({'svcnum'=>$svcnum}, 1) %> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_domain = qsearchs({ - 'select' => 'svc_domain.*', - 'table' => 'svc_domain', - 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) ', - 'hashref' => {'svcnum'=>$svcnum}, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}); -die "Unknown svcnum" unless $svc_domain; - -my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); - $custnum=$cust_pkg->getfield('custnum'); -} else { - $cust_pkg = ''; - $custnum = ''; -} - -my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); -die "Unknown svcpart" unless $part_svc; - -my $email = ''; -if ($svc_domain->catchall) { - my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } ); - die "Unknown svcpart" unless $svc_acct; - $email = $svc_acct->email; -} - -my $domain = $svc_domain->domain; - - diff --git a/httemplate/view/svc_external.cgi b/httemplate/view/svc_external.cgi deleted file mode 100644 index 553d2362a..000000000 --- a/httemplate/view/svc_external.cgi +++ /dev/null @@ -1,62 +0,0 @@ -<% include("/elements/header.html",'External Service View', menubar( - ( ( $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Cancel this (unaudited) external service" => - "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ), -)) %> - -Edit this information
-<% ntable("#cccccc") %><% ntable("#cccccc",2) %> - -Service number - <% $svcnum %> -<% FS::Msgcat::_gettext('svc_external-id') || 'External ID' %> - <% $conf->config('svc_external-display_type') eq 'artera_turbo' ? sprintf('%010d', $svc_external->id) : $svc_external->id %> -<% FS::Msgcat::_gettext('svc_external-title') || 'Title' %> - <% $svc_external->title %> -% foreach (sort { $a cmp $b } $svc_external->virtual_fields) { - - <% $svc_external->pvf($_)->widget('HTML', 'view', $svc_external->getfield($_)) %> -% } - - - -
<% joblisting({'svcnum'=>$svcnum}, 1) %> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my($query) = $cgi->keywords; -$query =~ /^(\d+)$/; -my $svcnum = $1; -my $svc_external = qsearchs({ - 'select' => 'svc_external.*', - 'table' => 'svc_external', - 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. - ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum ) ', - 'hashref' => { 'svcnum' => $svcnum }, - 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -}) or die "svc_external: Unknown svcnum $svcnum"; - -my $conf = new FS::Conf; - -#false laziness w/all svc_*.cgi -my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -my $pkgnum = $cust_svc->getfield('pkgnum'); -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} -#eofalse - - diff --git a/httemplate/view/svc_forward.cgi b/httemplate/view/svc_forward.cgi deleted file mode 100755 index 745147761..000000000 --- a/httemplate/view/svc_forward.cgi +++ /dev/null @@ -1,92 +0,0 @@ -% die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); -% -%my $conf = new FS::Conf; -% -%my($query) = $cgi->keywords; -%$query =~ /^(\d+)$/; -%my $svcnum = $1; -%my $svc_forward = qsearchs({ -% 'select' => 'svc_forward.*', -% 'table' => 'svc_forward', -% 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. -% ' LEFT JOIN cust_pkg USING ( pkgnum ) '. -% ' LEFT JOIN cust_main USING ( custnum ) ', -% 'hashref' => {'svcnum'=>$svcnum}, -% 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -%}); -%die "Unknown svcnum" unless $svc_forward; -% -%my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); -%my $pkgnum = $cust_svc->getfield('pkgnum'); -%my($cust_pkg, $custnum); -%if ($pkgnum) { -% $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -% $custnum=$cust_pkg->getfield('custnum'); -%} else { -% $cust_pkg = ''; -% $custnum = ''; -%} -% -%my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ) -% or die "Unkonwn svcpart"; -% -%print header('Mail Forward View', menubar( -% ( ( $pkgnum || $custnum ) -% ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -% ) -% : ( "Cancel this (unaudited) mail forward" => -% "${p}misc/cancel-unaudited.cgi?$svcnum" ) -% ) -%)); -% -%my($srcsvc,$dstsvc,$dst) = ( -% $svc_forward->srcsvc, -% $svc_forward->dstsvc, -% $svc_forward->dst, -%); -%my $src = $svc_forward->dbdef_table->column('src') ? $svc_forward->src : ''; -% -%my $svc = $part_svc->svc; -% -%my $source; -%if ($srcsvc) { -% my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$srcsvc}) -% or die "Corrupted database: no svc_acct.svcnum matching srcsvc $srcsvc"; -% $source = $svc_acct->email; -%} else { -% $source = $src; -%} -% -%my $destination; -%if ($dstsvc) { -% my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$dstsvc}) -% or die "Corrupted database: no svc_acct.svcnum matching dstsvc $dstsvc"; -% $destination = $svc_acct->email; -%} else { -% $destination = $dst; -%} -% -%print qq!Edit this information!. -% ntable("#cccccc",2). -% 'Service number'. -% qq!$svcnum!. -% 'Service'. -% qq!$svc!. -% qq!Email to!. -% qq!$source!. -% qq!Forwards to !. -% qq!$destination!; -% -%foreach (sort { $a cmp $b } $svc_forward->virtual_fields) { -% print $svc_forward->pvf($_)->widget('HTML', 'view', $svc_forward->getfield($_)), -% "\n"; -%} -% -%print qq! !. -% '
'. joblisting({'svcnum'=>$svcnum}, 1). -% '' -%; -% -% - diff --git a/httemplate/view/svc_phone.cgi b/httemplate/view/svc_phone.cgi deleted file mode 100644 index 732f3cd79..000000000 --- a/httemplate/view/svc_phone.cgi +++ /dev/null @@ -1,10 +0,0 @@ -<% include('elements/svc_Common.html', - 'table' => 'svc_phone', - 'fields' => [qw( countrycode phonenum )], #pin - 'labels' => { - 'countrycode' => 'Country code', - 'phonenum' => 'Phone number', - 'pin' => 'PIN', - }, - ) -%> diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi deleted file mode 100644 index d6d458ca5..000000000 --- a/httemplate/view/svc_www.cgi +++ /dev/null @@ -1,88 +0,0 @@ -% die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); -% -%my($query) = $cgi->keywords; -%$query =~ /^(\d+)$/; -%my $svcnum = $1; -%my $svc_www = qsearchs({ -% 'select' => 'svc_www.*', -% 'table' => 'svc_www', -% 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. -% ' LEFT JOIN cust_pkg USING ( pkgnum ) '. -% ' LEFT JOIN cust_main USING ( custnum ) ', -% 'hashref' => { 'svcnum' => $svcnum }, -% 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -%}) or die "svc_www: Unknown svcnum $svcnum"; -% -%#false laziness w/all svc_*.cgi -%my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); -%my $pkgnum = $cust_svc->getfield('pkgnum'); -%my($cust_pkg, $custnum); -%if ($pkgnum) { -% $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); -% $custnum = $cust_pkg->custnum; -%} else { -% $cust_pkg = ''; -% $custnum = ''; -%} -%#eofalse -% -%my $part_svc=qsearchs('part_svc',{'svcpart'=>$cust_svc->svcpart}) -% or die "svc_www: Unknown svcpart" . $cust_svc->svcpart; - -%my $usersvc = $svc_www->usersvc; -%my $svc_acct = ''; -%my $email = ''; -%if ( $usersvc ) { -% $svc_acct = qsearchs('svc_acct', { 'svcnum' => $usersvc } ) -% or die "svc_www: Unknown usersvc $usersvc"; -% $email = $svc_acct->email; -%} -% -%my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) -% or die "svc_www: Unknown recnum ". $svc_www->recnum; -% -%my $www = $domain_record->zone; - -<% include("/elements/header.html", "Website View", menubar( - ( ( $custnum ) - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", - ) - : ( "Cancel this (unaudited) website" => - "${p}misc/cancel-unaudited.cgi?$svcnum" ) - ), - )) -%> - -%print qq!Edit this information
!. -% ntable("#cccccc"). ''. ntable("#cccccc",2). -% qq!Service number!. -% qq!$svcnum!. -% qq!Website name!. -% qq!$www!; -%if ( $part_svc->part_svc_column('usersvc')->columnflag ne 'F' -% || $part_svc->part_svc_column('usersvc')->columnvalue !~ /^\s*$/) { -% print qq!Account!. -% qq!!; -% -% if ( $usersvc ) { -% print qq!$email!; -% } else { -% print '(none)'; -% } -% -% print ''; -%} - <% qq!Config lines! %> - <% qq!
!.$cgi->escapeHTML(join("\n",$svc_www->config))."
" %> -% -%foreach (sort { $a cmp $b } $svc_www->virtual_fields) { -% print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), -% "\n"; -%} -% -% -%print ''. -% '
'. joblisting({'svcnum'=>$svcnum}, 1); - -<% include('/elements/footer.html') %> -- cgit v1.2.1