<% my $conf = new FS::Conf; my($query) = $cgi->keywords; $query =~ /^(\d+)$/; my $svcnum = $1; my $svc_forward = qsearchs('svc_forward',{'svcnum'=>$svcnum}); 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 package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum", "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", ) : ( "Cancel this (unaudited) mail forward" => "${p}misc/cancel-unaudited.cgi?$svcnum" ) ), "Main menu" => $p, )); my($srcsvc,$dstsvc,$dst) = ( $svc_forward->srcsvc, $svc_forward->dstsvc, $svc_forward->dst, ); my $src = $svc_forward->dbdef_table->column('src') ? $svc_forward->src : ''; my $svc = $part_svc->svc; my $source; if ($srcsvc) { my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$srcsvc}) or die "Corrupted database: no svc_acct.svcnum matching srcsvc $srcsvc"; $source = $svc_acct->email; } else { $source = $src; } my $destination; if ($dstsvc) { my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$dstsvc}) or die "Corrupted database: no svc_acct.svcnum matching dstsvc $dstsvc"; $destination = $svc_acct->email; } else { $destination = $dst; } print qq!Edit this information!. ntable("#cccccc",2). 'Service number'. qq!$svcnum!. 'Service'. qq!$svc!. qq!Email to!. qq!$source!. qq!Forwards to !. qq!$destination!; foreach (sort { $a cmp $b } $svc_forward->virtual_fields) { print $svc_forward->pvf($_)->widget('HTML', 'view', $svc_forward->getfield($_)), "\n"; } print qq! !. '
'. joblisting({'svcnum'=>$svcnum}, 1). '' ; %>