X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_forward.cgi;h=15b5ae56fb704d03d61b5db3e4d228ec8a936748;hb=8585b98f48712b459ac15619b452c682cfcceac1;hp=74514776183690ad180dd672ae2e5e2740d550b6;hpb=5e05724a635a22776f1b973f5d7e77989da4e048;p=freeside.git diff --git a/httemplate/view/svc_forward.cgi b/httemplate/view/svc_forward.cgi index 745147761..15b5ae56f 100755 --- a/httemplate/view/svc_forward.cgi +++ b/httemplate/view/svc_forward.cgi @@ -1,92 +1,124 @@ -% die "access denied" -% unless $FS::CurrentUser::CurrentUser->access_right('View customer services'); -% -%my $conf = new FS::Conf; -% -%my($query) = $cgi->keywords; -%$query =~ /^(\d+)$/; -%my $svcnum = $1; -%my $svc_forward = qsearchs({ -% 'select' => 'svc_forward.*', -% 'table' => 'svc_forward', -% 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '. -% ' LEFT JOIN cust_pkg USING ( pkgnum ) '. -% ' LEFT JOIN cust_main USING ( custnum ) ', -% 'hashref' => {'svcnum'=>$svcnum}, -% 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, -%}); -%die "Unknown svcnum" unless $svc_forward; -% -%my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); -%my $pkgnum = $cust_svc->getfield('pkgnum'); -%my($cust_pkg, $custnum); -%if ($pkgnum) { -% $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); -% $custnum=$cust_pkg->getfield('custnum'); -%} else { -% $cust_pkg = ''; -% $custnum = ''; -%} -% -%my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ) -% or die "Unkonwn svcpart"; -% -%print header('Mail Forward View', menubar( -% ( ( $pkgnum || $custnum ) -% ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", -% ) -% : ( "Cancel this (unaudited) mail forward" => -% "${p}misc/cancel-unaudited.cgi?$svcnum" ) -% ) -%)); -% -%my($srcsvc,$dstsvc,$dst) = ( -% $svc_forward->srcsvc, -% $svc_forward->dstsvc, -% $svc_forward->dst, -%); -%my $src = $svc_forward->dbdef_table->column('src') ? $svc_forward->src : ''; -% -%my $svc = $part_svc->svc; -% -%my $source; -%if ($srcsvc) { -% my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$srcsvc}) -% or die "Corrupted database: no svc_acct.svcnum matching srcsvc $srcsvc"; -% $source = $svc_acct->email; -%} else { -% $source = $src; -%} -% -%my $destination; -%if ($dstsvc) { -% my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$dstsvc}) -% or die "Corrupted database: no svc_acct.svcnum matching dstsvc $dstsvc"; -% $destination = $svc_acct->email; -%} else { -% $destination = $dst; -%} -% -%print qq!Edit this information!. -% ntable("#cccccc",2). -% '