% if ( $custnum ) { <% include("/elements/header.html","View mail forward") %> <% include( '/elements/small_custview.html', $custnum, '', 1, "${p}view/cust_main.cgi") %>
% } else { <% include("/elements/header.html",'View mail forward', menubar( "Cancel this (unaudited) mail forward" => "javascript:areyousure('${p}misc/cancel-unaudited.cgi?$svcnum')", )) %> % } Edit this information <% ntable("#cccccc",2) %> Service number <% $svcnum %> Service <% $svc %> Email to <% $source %> Forwards to <% $destination %> % foreach (sort { $a cmp $b } $svc_forward->virtual_fields) { <% $svc_forward->pvf($_)->widget('HTML', 'view', $svc_forward->getfield($_)) %> % }
<% include('elements/svc_export_settings.html', $svc_forward) %> <& /elements/table-tickets.html, object => $cust_svc &> <% 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($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( 'null_right' => 'View/link unlinked services' ), }); die "Unknown svcnum" unless $svc_forward; my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); my $pkgnum = $cust_svc->getfield('pkgnum'); my($cust_pkg, $custnum, $display_custnum); if ($pkgnum) { $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); $custnum=$cust_pkg->getfield('custnum'); $display_custnum = $cust_pkg->cust_main->display_custnum; } else { $cust_pkg = ''; $custnum = ''; } my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ) or die "Unknown svcpart"; 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; }