diff options
Diffstat (limited to 'httemplate/view')
23 files changed, 0 insertions, 3627 deletions
diff --git a/httemplate/view/cust_bill-logo.cgi b/httemplate/view/cust_bill-logo.cgi deleted file mode 100755 index 9c1c1d7..0000000 --- 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' ); - -</%init> diff --git a/httemplate/view/cust_bill-pdf.cgi b/httemplate/view/cust_bill-pdf.cgi deleted file mode 100755 index f09e1b7..0000000 --- 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' ); - -</%init> diff --git a/httemplate/view/cust_bill-ps.cgi b/httemplate/view/cust_bill-ps.cgi deleted file mode 100755 index 5313dbf..0000000 --- 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' ); - -</%init> diff --git a/httemplate/view/cust_bill.cgi b/httemplate/view/cust_bill.cgi deleted file mode 100755 index 9517255..0000000 --- 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++ ? ' | ' : '' %> - <A HREF="<% $p %>edit/cust_pay.cgi?payby=BILL;invnum=<% $invnum %>">check</A> -% } -% if ( $payby{'CASH'} ) { - - - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>edit/cust_pay.cgi?payby=CASH;invnum=<% $invnum %>">cash</A> -% } -% if ( $payby{'WEST'} ) { - - - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>edit/cust_pay.cgi?payby=WEST;invnum=<% $invnum %>">Western Union</A> -% } -% if ( $payby{'MCRD'} ) { - - - <% $s++ ? ' | ' : '' %> - <A HREF="<% $p %>edit/cust_pay.cgi?payby=MCRD;invnum=<% $invnum %>">manual credit card</A> -% } - - - payment against this invoice<BR> -% } - - -<A HREF="<% $p %>misc/print-invoice.cgi?<% $link %>">Re-print this invoice</A> -% if ( grep { $_ ne 'POST' } $cust_bill->cust_main->invoicing_list ) { - - | <A HREF="<% $p %>misc/email-invoice.cgi?<% $link %>">Re-email - this invoice</A> -% } -% if ( $conf->exists('hylafax') && length($cust_bill->cust_main->fax) ) { - - | <A HREF="<% $p %>misc/fax-invoice.cgi?<% $link %>">Re-fax - this invoice</A> -% } - - -<BR><BR> -% if ( $conf->exists('invoice_latex') ) { - - <A HREF="<% $p %>view/cust_bill-pdf.cgi?<% $link %>.pdf">View typeset invoice</A> - <BR><BR> -% } - -% my $br = 0; -% if ( $cust_bill->num_cust_event ) { $br++; -<A HREF="<%$p%>search/cust_event.html?invnum=<% $cust_bill->invnum %>">( View invoice events )</A> -% } - -% if ( $cust_bill->num_cust_bill_event ) { $br++; -<A HREF="<%$p%>search/cust_bill_event.cgi?invnum=<% $cust_bill->invnum %>">( View deprecated, old-style invoice events )</A> -% } - -<% $br ? '<BR><BR>' : '' %> - -% if ( $conf->exists('invoice_html') ) { - - <% join('', $cust_bill->print_html('', $templatename) ) %> -% } else { - - <PRE><% join('', $cust_bill->print_text('', $templatename) ) %></PRE> -% } - -<% 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; - -</%init> - - diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi deleted file mode 100755 index 4ca777d..0000000 --- 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') ) { - <A HREF="<% $p %>edit/cust_main.cgi?<% $custnum %>">Edit this customer</A> | -% } - -<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_draggable.js"></SCRIPT> -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/iframecontentmws.js"></SCRIPT> - -<SCRIPT TYPE="text/javascript"> -function areyousure(href, message) { - if (confirm(message) == true) - window.location.href = href; -} -</SCRIPT> - -% if ( $curuser->access_right('Cancel customer') -% && $cust_main->ncancelled_pkgs -% ) { - - <% cust_cancel_link($cust_main) %> | - -% } - -% if ( $conf->exists('deletecustomers') -% && $curuser->access_right('Delete customer') -% ) { - <A HREF="<% $p %>misc/delete-customer.cgi?<% $custnum%>">Delete this customer</A> | -% } - -% unless ( $conf->exists('disable_customer_referrals') ) { - <A HREF="<% $p %>edit/cust_main.cgi?referral_custnum=<% $custnum %>">Refer a new customer</A> | - <A HREF="<% $p %>search/cust_main.cgi?referral_custnum=<% $custnum %>">View this customer's referrals</A> -% } - -<BR><BR> - -% if ( $curuser->access_right('Billing event reports') -% || $curuser->access_right('View customer billing events') -% ) { - - <A HREF="<% $p %>search/cust_event.html?custnum=<% $custnum %>">View billing events for this customer</A> - <BR><BR> - -% } - -%my $signupurl = $conf->config('signupurl'); -%if ( $signupurl ) { - This customer's signup URL: <A HREF="<% $signupurl %>?ref=<% $custnum %>"><% $signupurl %>?ref=<% $custnum %></A><BR><BR> -% } - - -<A NAME="cust_main"></A> -<TABLE BORDER=0> -<TR> - <TD VALIGN="top"> - <% include('cust_main/contacts.html', $cust_main ) %> - </TD> - <TD VALIGN="top" STYLE="padding-left: 54px"> - <% include('cust_main/misc.html', $cust_main ) %> -% if ( $conf->config('payby-default') ne 'HIDE' ) { - - <BR> - <% include('cust_main/billing.html', $cust_main ) %> -% } - - </TD> -</TR> -</TABLE> -% -%if ( $cust_main->comments =~ /[^\s\n\r]/ ) { -% - -<BR> -Comments -<% ntable("#cccccc") %><TR><TD><% ntable("#cccccc",2) %> -<TR> - <TD BGCOLOR="#ffffff"> - <PRE><% encode_entities($cust_main->comments) %></PRE> - </TD> -</TR> -</TABLE></TABLE> -% } -<BR><BR> -% my $notecount = scalar($cust_main->notes()); -% if ( ! $conf->exists('cust_main-disable_notes') || $notecount) { - -<A NAME="cust_main_note"><FONT SIZE="+2">Notes</FONT></A><BR> -% if ( $curuser->access_right('Add customer note') && -% ! $conf->exists('cust_main-disable_notes') -% ) { - - <A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('<% $p %>edit/cust_main_note.cgi?custnum=<% $cust_main->custnum %>', 616, 386, 'cust_main_note_popup' ), CAPTION, 'Enter customer note', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK); return false;">Add customer note</A> - -% } - -<BR> - -% if ($notecount) { - -<iframe src="<% $p %>view/cust_main/notes.html?custnum=<% $cust_main->custnum %>" height="186" width="616" name="cust_main_notes" frameborder="0" marginborder="0" marginheight="0" scrolling="auto"> - <div><br>[iframe not supported]<br><br></div> -</iframe> - -% }else{ # make firefox happy wrt POSTDATA - -<iframe src="<% $p %>view/cust_main/notes.html?custnum=<% $cust_main->custnum %>" height="24" width="616" name="cust_main_notes" frameborder="0" marginborder="0" marginheight="0" scrolling="auto"> - <div><br>[iframe not supported]<br><br></div> -</iframe> - -% } - -% } - - -% if ( $conf->config('ticket_system') ) { - - <BR><BR> - <% include('cust_main/tickets.html', $cust_main ) %> -% } - - -<BR><BR> - -% #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; - -</%init> -<%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!<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('$p$action', 540, 336, 'pkg_or_svc_action_popup' ), CAPTION, '$actionlabel', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, BGCOLOR, '$color', CGCOLOR, '$color', CLOSETEXT, '' ); return false;">$label</A>!; - -# CLOSETEXT, '', -#WIDTH, 576, HEIGHT, 128, TEXTSIZE, 3, -#BGCOLOR, '#ff0000', CGCOLOR, '#ff0000' -} - -</%once> diff --git a/httemplate/view/cust_main/billing.html b/httemplate/view/cust_main/billing.html deleted file mode 100644 index fa3863b..0000000 --- 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 e88c02e..0000000 --- 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 9528db2..0000000 --- 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 f2d1169..0000000 --- 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 891fa30..0000000 --- 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 44a8885..0000000 --- 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 b5d581d..0000000 --- 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> diff --git a/httemplate/view/cust_pay.html b/httemplate/view/cust_pay.html deleted file mode 100644 index 4037d35..0000000 --- a/httemplate/view/cust_pay.html +++ /dev/null @@ -1,133 +0,0 @@ -% if ( $link eq 'popup' ) { - - <% include('/elements/header-popup.html', "Payment Receipt" ) %> - - <CENTER><A HREF="javascript:self.parent.location = '<% $pr_link %>'">Print</A></CENTER><BR> - -% } 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", - ) - %> - <BR><BR> - -% } 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 - ) - %> - <BR><BR> -% } - -<% ntable("#cccccc", 2) %> - -<TR> - <TD ALIGN="right">Payment#</TD> - <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->paynum %></B></TD> -</TR> - -<TR> - <TD ALIGN="right">Date</TD> - <TD BGCOLOR="#FFFFFF"><B><% time2str"%a %b %o, %Y %r", $cust_pay->_date %></B></TD> -</TR> - -<TR> - <TD ALIGN="right">Amount</TD> - <TD BGCOLOR="#FFFFFF"><B><% $money_char. $cust_pay->paid %></B></TD> -</TR> - -<TR> - <TD ALIGN="right">Payment method</TD> - <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->payby_name %> #<% $cust_pay->paymask %></B></TD> -</TR> - -% if ( $cust_pay->payby =~ /^(CARD|CHEK|LECB)$/ && $cust_pay->paybatch ) { - - <TR> - <TD ALIGN="right">Processor</TD> - <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->processor %></B></TD> - </TR> - - <TR> - <TD ALIGN="right">Authorization#</TD> - <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->authorization %></B></TD> - </TR> - -% if ( $cust_pay->order_number ) { - <TR> - <TD ALIGN="right">Order#</TD> - <TD BGCOLOR="#FFFFFF"><B><% $cust_pay->order_number %></B></TD> - </TR> -% } - -% } - -</TABLE> - -% if ( $link eq 'print' ) { - - <SCRIPT TYPE="text/javascript"> - window.print(); - </SCRIPT> - -% } - -% if ( $link =~ /^(popup|print)$/ ) { - </BODY> - </HTML> -% } 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; - -</%init> diff --git a/httemplate/view/elements/svc_Common.html b/httemplate/view/elements/svc_Common.html deleted file mode 100644 index 0500248..0000000 --- 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") %> - <BR> -% } else { - - - <SCRIPT> - function areyousure(href) { - if (confirm("Permanently delete this <% $label %>?") == true) - window.location.href = href; - } - </SCRIPT> - - <% include("/elements/header.html","View $label: $value", menubar( - "Cancel this (unaudited) $label" => - "javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')" - )) %> -% } - - -Service #<B><% $svcnum %></B> -% my $url = $opt{'edit_url'} || $p. 'edit/'. $opt{'table'}. '.cgi?'; -| <A HREF="<%$url%><%$svcnum%>">Edit this <% $label %></A> -<BR> - -<% ntable("#cccccc") %><TR><TD><% 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'; -% } -% - - - <TR> - <TD ALIGN="right"> - <% ( $opt{labels} && exists $opt{labels}->{$field} ) - ? $opt{labels}->{$field} - : $field - %> - </TD> -% -% #eventually more options for <SELECT>, etc. fields -% - - - <TD BGCOLOR="#ffffff"><% $svc_x->$field %><TD> - - </TR> -% } -% foreach (sort { $a cmp $b } $svc_x->virtual_fields) { - - <% $svc_x->pvf($_)->widget('HTML', 'view', $svc_x->getfield($_)) %> -% } - - -</TABLE></TD></TR></TABLE> - -<BR> -<% joblisting({'svcnum'=>$svcnum}, 1) %> - -<% include('/elements/footer.html') %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); - -my(%opt) = @_; - -my $table = $opt{'table'}; - -my $fields = $opt{'fields'} - #|| [ grep { $_ ne 'svcnum' } dbdef->table($table)->columns ]; - || [ grep { $_ ne 'svcnum' } fields($table) ]; - -my $svcnum; -if ( $cgi->param('svcnum') ) { - $cgi->param('svcnum') =~ /^(\d+)$/ or die "unparsable svcnum"; - $svcnum = $1; -} else { - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/ or die "no svcnum"; - $svcnum = $1; -} -my $svc_x = qsearchs({ - 'select' => $opt{'table'}.'.*', - 'table' => $opt{'table'}, - '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 "Unknown svcnum $svcnum in ". $opt{'table'}. " table\n"; - -my $cust_svc = $svc_x->cust_svc; -my($label, $value, $svcdb) = $cust_svc->label; - -my $pkgnum = $cust_svc->pkgnum; - -my($cust_pkg, $custnum); -if ($pkgnum) { - $cust_pkg = $cust_svc->cust_pkg; - $custnum = $cust_pkg->custnum; -} else { - $cust_pkg = ''; - $custnum = ''; -} - -</%init> diff --git a/httemplate/view/logo.cgi b/httemplate/view/logo.cgi deleted file mode 100644 index aeca0f3..0000000 --- a/httemplate/view/logo.cgi +++ /dev/null @@ -1,47 +0,0 @@ -<% $data %> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $conf = new FS::Conf; - -my $type; -if ( $cgi->param('type') eq 'png' ) { - $type = 'png'; -} elsif ( $cgi->param('type') eq 'eps' ) { - $type = 'eps'; -} else { - die "unknown logo type ". $cgi->param('type'); -} - -my $data; -if ( $cgi->param('preview_session') =~ /^(\w+)$/ ) { - - my $session = $1; - my $curuser = $FS::CurrentUser::CurrentUser; - $data = decode_base64( $curuser->option("logo_preview$session") ); - -} elsif ( $cgi->param('name') =~ /^([^\.\/]*)$/ ) { - - my $templatename = $1; - if ( $templatename && $conf->exists("logo_$templatename.$type") ) { - $templatename = "_$templatename"; - } else { - $templatename = ''; - } - - if ( $type eq 'png' ) { - $data = $conf->config_binary("logo$templatename.png"); - } elsif ( $type eq 'eps' ) { - #convert EPS to a png... punting on that for now - } - -} else { - die "neither a valid name nor a valid preview_session specified"; -} - -http_header('Content-Type' => 'image/png' ); - -</%init> - diff --git a/httemplate/view/svc_Common.html b/httemplate/view/svc_Common.html deleted file mode 100644 index bb3a6dd..0000000 --- a/httemplate/view/svc_Common.html +++ /dev/null @@ -1,29 +0,0 @@ -<%init> - -# false laziness w/edit/svc_Common.html - -$cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb"; -my $table = $1; -require "FS/$table.pm"; - -my %opt; -if ( UNIVERSAL::can("FS::$table", 'table_info') ) { - $opt{'name'} = "FS::$table"->table_info->{'name'}; - - my $fields = "FS::$table"->table_info->{'fields'}; - my %labels = map { $_ => ( ref($fields->{$_}) - ? $fields->{$_}{'label'} - : $fields->{$_} - ); - } - keys %$fields; - $opt{'labels'} = \%labels; -} - -</%init> -<% include('elements/svc_Common.html', - 'table' => $table, - 'edit_url' => $p."edit/svc_Common.html?svcdb=$table;svcnum=", - %opt, - ) -%> diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi deleted file mode 100755 index e6d2b69..0000000 --- a/httemplate/view/svc_acct.cgi +++ /dev/null @@ -1,396 +0,0 @@ -% if ( $custnum ) { - - <% include("/elements/header.html","View $svc account") %> - <% include( '/elements/small_custview.html', $custnum, '', 1, - "${p}view/cust_main.cgi") %> - <BR> - -% } else { - - <SCRIPT> - function areyousure(href) { - if (confirm("Permanently delete this account?") == true) - window.location.href = href; - } - </SCRIPT> - - <% include("/elements/header.html",'Account View', menubar( - "Cancel this (unaudited) account" => - "javascript:areyousure(\'${p}misc/cancel-unaudited.cgi?$svcnum\')", - )) %> - -% } - -% if ( $part_svc->part_export_usage ) { -% -% my $last_bill; -% my %plandata; -% if ( $cust_pkg ) { -% #false laziness w/httemplate/edit/part_pkg... this stuff doesn't really -% #belong in plan data -% %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); } -% split("\n", $cust_pkg->part_pkg->plandata ); -% -% $last_bill = $cust_pkg->last_bill; -% } else { -% $last_bill = 0; -% %plandata = (); -% } -% -% my $seconds = $svc_acct->seconds_since_sqlradacct( $last_bill, time ); -% my $hour = int($seconds/3600); -% my $min = int( ($seconds%3600) / 60 ); -% my $sec = $seconds%60; -% -% my $input = $svc_acct->attribute_since_sqlradacct( -% $last_bill, time, 'AcctInputOctets' -% ) / 1048576; -% my $output = $svc_acct->attribute_since_sqlradacct( -% $last_bill, time, 'AcctOutputOctets' -% ) / 1048576; -% -% - - - RADIUS session information<BR> - <% ntable('#cccccc',2) %> - <TR><TD BGCOLOR="#ffffff"> -% if ( $seconds ) { - - Online <B><% $hour %></B>h <B><% $min %></B>m <B><% $sec %></B>s -% } else { - - Has not logged on -% } -% if ( $cust_pkg ) { - - since last bill (<% time2str('%a %b %o %Y', $last_bill) %>) -% if ( length($plandata{recur_included_hours}) ) { - - - <% $plandata{recur_included_hours} %> total hours in plan -% } - - <BR> -% } else { - - (no billing cycle available for unaudited account)<BR> -% } - - - Upload: <B><% sprintf("%.3f", $input) %></B> megabytes<BR> - Download: <B><% sprintf("%.3f", $output) %></B> megabytes<BR> - Last Login: <B><% $svc_acct->last_login_text %></B><BR> -% my $href = qq!<A HREF="${p}search/sqlradius.cgi?svcnum=$svcnum!; - - View session detail: - <% $href %>;begin=<% $last_bill %>">this billing cycle</A> - | <% $href %>;begin=<% time-15552000 %>">past six months</A> - | <% $href %>">all sessions</A> - - </TD></TR></TABLE><BR> -% } - -% my @part_svc = (); -% if ($FS::CurrentUser::CurrentUser->access_right('Change customer service')) { - - <SCRIPT TYPE="text/javascript"> - function enable_change () { - if ( document.OneTrueForm.svcpart.selectedIndex > 1 ) { - document.OneTrueForm.submit.disabled = false; - } else { - document.OneTrueForm.submit.disabled = true; - } - } - </SCRIPT> - - <FORM NAME="OneTrueForm" ACTION="<%$p%>edit/process/cust_svc.cgi"> - <INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum %>"> - <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>"> - -% #print qq!<BR><A HREF="../misc/sendconfig.cgi?$svcnum">Send account information</A>!; -% -% 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 #<B><% $svcnum %></B> -| <A HREF="<%$p%>edit/svc_acct.cgi?<%$svcnum%>">Edit this service</A> - -% if ( @part_svc ) { - -| <SELECT NAME="svcpart" onChange="enable_change()"> - <OPTION VALUE="">Change service</OPTION> - <OPTION VALUE="">--------------</OPTION> -% foreach my $opt_part_svc ( @part_svc ) { - - <OPTION VALUE="<% $opt_part_svc->svcpart %>"><% $opt_part_svc->svc %></OPTION> -% } - - </SELECT> - <INPUT NAME="submit" TYPE="submit" VALUE="Change" disabled> - -% } - - -<% &ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %> - -<TR> - <TD ALIGN="right">Service</TD> - <TD BGCOLOR="#ffffff"><% $part_svc->svc %></TD> -</TR> -<TR> - <TD ALIGN="right">Username</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->username %></TD> -</TR> -<TR> - <TD ALIGN="right">Domain</TD> - <TD BGCOLOR="#ffffff"><% $domain %></TD> -</TR> - -<TR> - <TD ALIGN="right">Password</TD> - <TD BGCOLOR="#ffffff"> -% my $password = $svc_acct->_password; -% if ( $password =~ /^\*\w+\* (.*)$/ ) { -% $password = $1; -% - - <I>(login disabled)</I> -% } -% if ( $conf->exists('showpasswords') ) { - - <PRE><% encode_entities($password) %></PRE> -% } else { - - <I>(hidden)</I> -% } - - - </TD> -</TR> -% $password = ''; -% if ( $conf->exists('security_phrase') ) { -% my $sec_phrase = $svc_acct->sec_phrase; -% - - <TR> - <TD ALIGN="right">Security phrase</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->sec_phrase %></TD> - </TR> -% } -% if ( $svc_acct->popnum ) { -% my $svc_acct_pop = qsearchs('svc_acct_pop',{'popnum'=>$svc_acct->popnum}); -% - - <TR> - <TD ALIGN="right">Access number</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct_pop->text %></TD> - </TR> -% } -% if ($svc_acct->uid ne '') { - - <TR> - <TD ALIGN="right">UID</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->uid %></TD> - </TR> -% } -% if ($svc_acct->gid ne '') { - - <TR> - <TD ALIGN="right">GID</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->gid %></TD> - </TR> -% } -% if ($svc_acct->finger ne '') { - - <TR> - <TD ALIGN="right">GECOS</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->finger %></TD> - </TR> -% } -% if ($svc_acct->dir ne '') { - - <TR> - <TD ALIGN="right">Home directory</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->dir %></TD> - </TR> -% } -% if ($svc_acct->shell ne '') { - - <TR> - <TD ALIGN="right">Shell</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->shell %></TD> - </TR> -% } -% if ($svc_acct->quota ne '') { - - <TR> - <TD ALIGN="right">Quota</TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->quota %></TD> - </TR> -% } -% if ($svc_acct->slipip) { - - <TR> - <TD ALIGN="right">IP address</TD> - <TD BGCOLOR="#ffffff"> - <% ( $svc_acct->slipip eq "0.0.0.0" || $svc_acct->slipip eq '0e0' ) - ? "<I>(Dynamic)</I>" - : $svc_acct->slipip - %> - </TD> - </TR> -% } -% 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); - <TR> - <TD ALIGN="right"><% $ulabel{$uf} %> remaining</TD> - <TD BGCOLOR="#ffffff"><% $v %></TD> - </TR> - -% } -% } -% foreach my $attribute ( grep /^radius_/, $svc_acct->fields ) { -% $attribute =~ /^radius_(.*)$/; -% my $pattribute = $FS::raddb::attrib{$1}; -% - - <TR> - <TD ALIGN="right">Radius (reply) <% $pattribute %></TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->getfield($attribute) %></TD> - </TR> -% } -% foreach my $attribute ( grep /^rc_/, $svc_acct->fields ) { -% $attribute =~ /^rc_(.*)$/; -% my $pattribute = $FS::raddb::attrib{$1}; -% - - <TR> - <TD ALIGN="right">Radius (check) <% $pattribute %></TD> - <TD BGCOLOR="#ffffff"><% $svc_acct->getfield($attribute) %></TD> - </TR> -% } - - -<TR> - <TD ALIGN="right">RADIUS groups</TD> - <TD BGCOLOR="#ffffff"><% join('<BR>', $svc_acct->radius_groups) %></TD> -</TR> -% -%# 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($_)) %> -% } - - -</TABLE></TD></TR></TABLE> -</FORM> -<BR><BR> - -% if ( @svc_www ) { - Hosting - <% &ntable("#cccccc") %><TR><TD><% &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; - <TR> - <TD BGCOLOR="#ffffff"> - <A HREF="<% $link %>"><% "$label: $value" %></A> - </TD> - </TR> -% } - </TABLE></TD></TR></TABLE> - <BR><BR> -% } - -<% join("<BR>", $conf->config('svc_acct-notes') ) %> -<BR><BR> - -<% 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' - ), -}); - -</%init> diff --git a/httemplate/view/svc_broadband.cgi b/httemplate/view/svc_broadband.cgi deleted file mode 100644 index e614fe4..0000000 --- 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" ) - ) -)) -%> - -<A HREF="<%${p}%>edit/svc_broadband.cgi?<%$svcnum%>">Edit this information</A> -<BR> -<%ntable("#cccccc")%> - <TR> - <TD> - <%ntable("#cccccc",2)%> - <TR> - <TD ALIGN="right">Service number</TD> - <TD BGCOLOR="#ffffff"><%$svcnum%></TD> - </TR> - <TR> - <TD ALIGN="right">Description</TD> - <TD BGCOLOR="#ffffff"><%$description%></TD> - </TR> - <TR> - <TD ALIGN="right">Router</TD> - <TD BGCOLOR="#ffffff"><%$routernum%>: <%$routername%></TD> - </TR> - <TR> - <TD ALIGN="right">Download Speed</TD> - <TD BGCOLOR="#ffffff"><%$speed_down%></TD> - </TR> - <TR> - <TD ALIGN="right">Upload Speed</TD> - <TD BGCOLOR="#ffffff"><%$speed_up%></TD> - </TR> - <TR> - <TD ALIGN="right">IP Address</TD> - <TD BGCOLOR="#ffffff"><%$ip_addr%></TD> - </TR> - <TR> - <TD ALIGN="right">IP Netmask</TD> - <TD BGCOLOR="#ffffff"><%$ip_netmask%></TD> - </TR> - <TR> - <TD ALIGN="right">IP Gateway</TD> - <TD BGCOLOR="#ffffff"><%$ip_gateway%></TD> - </TR> - <TR> - <TD ALIGN="right">MAC Address</TD> - <TD BGCOLOR="#ffffff"><%$mac_addr%></TD> - </TR> - <TR> - <TD ALIGN="right">Latitude</TD> - <TD BGCOLOR="#ffffff"><%$latitude%></TD> - </TR> - <TR> - <TD ALIGN="right">Longitude</TD> - <TD BGCOLOR="#ffffff"><%$longitude%></TD> - </TR> - <TR> - <TD ALIGN="right">Altitude</TD> - <TD BGCOLOR="#ffffff"><%$altitude%></TD> - </TR> - <TR> - <TD ALIGN="right">VLAN Profile</TD> - <TD BGCOLOR="#ffffff"><%$vlan_profile%></TD> - </TR> - <TR> - <TD ALIGN="right">Authentication Key</TD> - <TD BGCOLOR="#ffffff"><%$auth_key%></TD> - </TR> - <TR COLSPAN="2"><TD></TD></TR> -% -%foreach (sort { $a cmp $b } $svc_broadband->virtual_fields) { -% print $svc_broadband->pvf($_)->widget('HTML', 'view', -% $svc_broadband->getfield($_)), "\n"; -%} -% -% - - </TABLE> - </TD> - </TR> -</TABLE> - -<BR> -<%ntable("#cccccc", 2)%> -% -% my $sb_router = qsearchs('router', { svcnum => $svcnum }); -% if ($sb_router) { -% - - <B>Router associated: <%$sb_router->routername%> </B> - <A HREF="<%popurl(2)%>edit/router.cgi?<%$sb_router->routernum%>"> - (details) - </A> - <BR> -% my @sb_addr_block; -% if (@sb_addr_block = $sb_router->addr_block) { -% - - <B>Address space </B> - <A HREF="<%popurl(2)%>browse/addr_block.cgi"> - (edit) - </A> - <BR> -% print ntable("#cccccc", 1); -% foreach (@sb_addr_block) { - - <TR> - <TD><%$_->ip_gateway%>/<%$_->ip_netmask%></TD> - </TR> -% } - - </TABLE> -% } else { - - <B>No address space allocated.</B> -% } - - <BR> -% -% } else { -% - - -<FORM METHOD="GET" ACTION="<%popurl(2)%>edit/router.cgi"> - <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>"> -Add router named - <INPUT TYPE="text" NAME="routername" SIZE="32" VALUE="Broadband router (<%$svcnum%>)"> - <INPUT TYPE="submit" VALUE="Add router"> -</FORM> -% -%} -% - - -<BR> -<%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, - ); - -</%init> diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi deleted file mode 100755 index d6565db..0000000 --- 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 %> -<BR>Service: <B><% $part_svc->svc %></B> -<BR>Domain name: <B><% $domain %></B> -% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) { - <BR>Catch all email <A HREF="<% ${p} %>misc/catchall.cgi?<% $svcnum %>">(change)</A>: -% } else { - <BR>Catch all email: -% } - -<% $email ? "<B>$email</B>" : "<I>(none)<I>" %> -<BR><BR><A HREF="<% ${p} %>misc/whois.cgi?custnum=<%$custnum%>;svcnum=<%$svcnum%>;domain=<%$domain%>">View whois information.</A> -<BR><BR> -<SCRIPT> - function areyousure(href, message) { - if ( confirm(message) == true ) - window.location.href = href; - } - function slave_areyousure() { - return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?"); - } -</SCRIPT> - -% my @records; if ( @records = $svc_domain->domain_record ) { - - <% include('/elements/table-grid.html') %> - -% my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = $bgcolor2; - - <tr> - <th CLASS="grid" BGCOLOR="#cccccc">Zone</th> - <th CLASS="grid" BGCOLOR="#cccccc">Type</th> - <th CLASS="grid" BGCOLOR="#cccccc">Data</th> - </tr> - -% foreach my $domain_record ( @records ) { -% my $type = $domain_record->rectype eq '_mstr' -% ? "(slave)" -% : $domain_record->recaf. ' '. $domain_record->rectype; - - - <tr> - <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->reczone %></td> - <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $type %></td> - <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %> - -% unless ( $domain_record->rectype eq 'SOA' -% || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') -% ) { -% ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g; - (<A HREF="javascript:areyousure('<%$p%>misc/delete-domain_record.cgi?<%$domain_record->recnum%>', 'Delete \'<% $domain_record->reczone %> <% $type %> <% $recdata %>\' ?' )">delete</A>) -% } - </td> - </tr> - - -% if ( $bgcolor eq $bgcolor1 ) { -% $bgcolor = $bgcolor2; -% } else { -% $bgcolor = $bgcolor1; -% } - -% } - - </table> -% } - -% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) { - <BR> - <FORM METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi"> - <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>"> - <INPUT TYPE="text" NAME="reczone"> - <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN - <SELECT NAME="rectype"> -% foreach (qw( A NS CNAME MX PTR TXT) ) { - <OPTION VALUE="<%$_%>"><%$_%></OPTION> -% } - </SELECT> - <INPUT TYPE="text" NAME="recdata"> - <INPUT TYPE="submit" VALUE="Add record"> - </FORM> - - <BR><BR> - or - <BR><BR> - - <FORM NAME="SlaveForm" METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi"> - <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>"> -% if ( @records ) { - Delete all records and -% } - Slave from nameserver IP - <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>"> - <INPUT TYPE="hidden" NAME="reczone" VALUE="@"> - <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> - <INPUT TYPE="hidden" NAME="rectype" VALUE="_mstr"> - <INPUT TYPE="text" NAME="recdata"> - <INPUT TYPE="submit" VALUE="Slave domain" onClick="return slave_areyousure()"> - </FORM> - -% } - -<BR><BR> - -<% 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; - -</%init> diff --git a/httemplate/view/svc_external.cgi b/httemplate/view/svc_external.cgi deleted file mode 100644 index 553d236..0000000 --- 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" ) - ), -)) %> - -<A HREF="<%$p%>edit/svc_external.cgi?<%$svcnum%>">Edit this information</A><BR> -<% ntable("#cccccc") %><TR><TD><% ntable("#cccccc",2) %> - -<TR><TD ALIGN="right">Service number</TD> - <TD BGCOLOR="#ffffff"><% $svcnum %></TD></TR> -<TR><TD ALIGN="right"><% FS::Msgcat::_gettext('svc_external-id') || 'External ID' %></TD> - <TD BGCOLOR="#ffffff"><% $conf->config('svc_external-display_type') eq 'artera_turbo' ? sprintf('%010d', $svc_external->id) : $svc_external->id %></TD></TR> -<TR><TD ALIGN="right"><% FS::Msgcat::_gettext('svc_external-title') || 'Title' %></TD> - <TD BGCOLOR="#ffffff"><% $svc_external->title %></TD></TR> -% foreach (sort { $a cmp $b } $svc_external->virtual_fields) { - - <% $svc_external->pvf($_)->widget('HTML', 'view', $svc_external->getfield($_)) %> -% } - - -</TABLE></TD></TR></TABLE> -<BR><% 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 - -</%init> diff --git a/httemplate/view/svc_forward.cgi b/httemplate/view/svc_forward.cgi deleted file mode 100755 index 7451477..0000000 --- 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!<A HREF="${p}edit/svc_forward.cgi?$svcnum">Edit this information</A>!. -% ntable("#cccccc",2). -% '<TR><TD ALIGN="right">Service number</TD>'. -% qq!<TD BGCOLOR="#ffffff">$svcnum</TD></TR>!. -% '<TR><TD ALIGN="right">Service</TD>'. -% qq!<TD BGCOLOR="#ffffff">$svc</TD></TR>!. -% qq!<TR><TD ALIGN="right">Email to</TD>!. -% qq!<TD BGCOLOR="#ffffff">$source</TD></TR>!. -% qq!<TR><TD ALIGN="right">Forwards to </TD>!. -% qq!<TD BGCOLOR="#ffffff">$destination</TD></TR>!; -% -%foreach (sort { $a cmp $b } $svc_forward->virtual_fields) { -% print $svc_forward->pvf($_)->widget('HTML', 'view', $svc_forward->getfield($_)), -% "\n"; -%} -% -%print qq! </TABLE>!. -% '<BR>'. joblisting({'svcnum'=>$svcnum}, 1). -% '</BODY></HTML>' -%; -% -% - diff --git a/httemplate/view/svc_phone.cgi b/httemplate/view/svc_phone.cgi deleted file mode 100644 index 732f3cd..0000000 --- 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 d6d458c..0000000 --- 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!<A HREF="${p}edit/svc_www.cgi?$svcnum">Edit this information</A><BR>!. -% ntable("#cccccc"). '<TR><TD>'. ntable("#cccccc",2). -% qq!<TR><TD ALIGN="right">Service number</TD>!. -% qq!<TD BGCOLOR="#ffffff">$svcnum</TD></TR>!. -% qq!<TR><TD ALIGN="right">Website name</TD>!. -% qq!<TD BGCOLOR="#ffffff"><A HREF="http://$www">$www<A></TD></TR>!; -%if ( $part_svc->part_svc_column('usersvc')->columnflag ne 'F' -% || $part_svc->part_svc_column('usersvc')->columnvalue !~ /^\s*$/) { -% print qq!<TR><TD ALIGN="right">Account</TD>!. -% qq!<TD BGCOLOR="#ffffff">!; -% -% if ( $usersvc ) { -% print qq!<A HREF="${p}view/svc_acct.cgi?$usersvc">$email</A>!; -% } else { -% print '</i>(none)</i>'; -% } -% -% print '</TD></TR>'; -%} - <% qq!<TR><TD ALIGN="right">Config lines</TD>! %> - <% qq!<TD BGCOLOR="#ffffff"><pre>!.$cgi->escapeHTML(join("\n",$svc_www->config))."</pre></TD></TR>" %> -% -%foreach (sort { $a cmp $b } $svc_www->virtual_fields) { -% print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), -% "\n"; -%} -% -% -%print '</TABLE></TD></TR></TABLE>'. -% '<BR>'. joblisting({'svcnum'=>$svcnum}, 1); - -<% include('/elements/footer.html') %> |