diff options
Diffstat (limited to 'httemplate/search/svc_forward.cgi')
| -rwxr-xr-x | httemplate/search/svc_forward.cgi | 215 |
1 files changed, 118 insertions, 97 deletions
diff --git a/httemplate/search/svc_forward.cgi b/httemplate/search/svc_forward.cgi index 4d44c9ca6..eeb4c1075 100755 --- a/httemplate/search/svc_forward.cgi +++ b/httemplate/search/svc_forward.cgi @@ -1,99 +1,3 @@ -%my $conf = new FS::Conf; -% -%my $orderby = 'ORDER BY svcnum'; -%my @extra_sql = (); -%if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { -% -% push @extra_sql, 'pkgnum IS NULL' -% if $cgi->param('magic') eq 'unlinked'; -% -% if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { -% my $sortby = $1; -% $orderby = "ORDER BY $sortby"; -% } -% -%} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { -% push @extra_sql, "svcpart = $1"; -%} -% -%my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. -% ' LEFT JOIN part_svc USING ( svcpart ) '. -% ' LEFT JOIN cust_pkg USING ( pkgnum ) '. -% ' LEFT JOIN cust_main USING ( custnum ) '; -% -%#here is the agent virtualization -%push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql; -% -%my $extra_sql = -% scalar(@extra_sql) -% ? ' WHERE '. join(' AND ', @extra_sql ) -% : ''; -% -%my $count_query = "SELECT COUNT(*) FROM svc_forward $addl_from $extra_sql"; -%my $sql_query = { -% 'table' => 'svc_forward', -% 'hashref' => {}, -% 'select' => join(', ', -% 'svc_forward.*', -% 'part_svc.svc', -% 'cust_main.custnum', -% FS::UI::Web::cust_sql_fields(), -% ), -% 'extra_sql' => "$extra_sql $orderby", -% 'addl_from' => $addl_from, -%}; -% -%# <TH>Service #<BR><FONT SIZE=-1>(click to view forward)</FONT></TH> -%# <TH>Mail to<BR><FONT SIZE=-1>(click to view account)</FONT></TH> -%# <TH>Forwards to<BR><FONT SIZE=-1>(click to view account)</FONT></TH> -% -%my $link = [ "${p}view/svc_forward.cgi?", 'svcnum' ]; -% -%my $format_src = sub { -% my $svc_forward = shift; -% if ( $svc_forward->srcsvc_acct ) { -% $svc_forward->srcsvc_acct->email; -% } else { -% my $src = $svc_forward->src; -% $src = "<I>(anything)</I>$src" if $src =~ /^@/; -% $src; -% } -%}; -% -%my $link_src = sub { -% my $svc_forward = shift; -% if ( $svc_forward->srcsvc_acct ) { -% [ "${p}view/svc_acct.cgi?", 'srcsvc' ]; -% } else { -% ''; -% } -%}; -% -%my $format_dst = sub { -% my $svc_forward = shift; -% if ( $svc_forward->dstsvc_acct ) { -% $svc_forward->dstsvc_acct->email; -% } else { -% $svc_forward->dst; -% } -%}; -% -%my $link_dst = sub { -% my $svc_forward = shift; -% if ( $svc_forward->dstsvc_acct ) { -% [ "${p}view/svc_acct.cgi?", 'dstsvc' ]; -% } else { -% ''; -% } -%}; -% -%#smaller false laziness w/svc_*.cgi here -%my $link_cust = sub { -% my $svc_x = shift; -% $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : ''; -%}; -% -% <% include( 'elements/search.html', 'title' => "Mail forward Search Results", 'name' => 'mail forwards', @@ -116,9 +20,126 @@ $link, $link_src, $link_dst, - ( map { $link_cust } + ( map { $_ ne 'Cust. Status' ? $link_cust : '' } FS::UI::Web::cust_header() ), ], + 'align' => 'rlll'. FS::UI::Web::cust_aligns(), + 'color' => [ + '', + '', + '', + '', + FS::UI::Web::cust_colors(), + ], + 'style' => [ + '', + '', + '', + '', + FS::UI::Web::cust_styles(), + ], ) %> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('List services'); + + +my $conf = new FS::Conf; + +my $orderby = 'ORDER BY svcnum'; +my @extra_sql = (); +if ( $cgi->param('magic') =~ /^(all|unlinked)$/ ) { + + push @extra_sql, 'pkgnum IS NULL' + if $cgi->param('magic') eq 'unlinked'; + + if ( $cgi->param('sortby') =~ /^(\w+)$/ ) { + my $sortby = $1; + $orderby = "ORDER BY $sortby"; + } + +} elsif ( $cgi->param('svcpart') =~ /^(\d+)$/ ) { + push @extra_sql, "svcpart = $1"; +} + +my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. + ' LEFT JOIN part_svc USING ( svcpart ) '. + ' LEFT JOIN cust_pkg USING ( pkgnum ) '. + ' LEFT JOIN cust_main USING ( custnum ) '; + +#here is the agent virtualization +push @extra_sql, $FS::CurrentUser::CurrentUser->agentnums_sql; + +my $extra_sql = + scalar(@extra_sql) + ? ' WHERE '. join(' AND ', @extra_sql ) + : ''; + +my $count_query = "SELECT COUNT(*) FROM svc_forward $addl_from $extra_sql"; +my $sql_query = { + 'table' => 'svc_forward', + 'hashref' => {}, + 'select' => join(', ', + 'svc_forward.*', + 'part_svc.svc', + 'cust_main.custnum', + FS::UI::Web::cust_sql_fields(), + ), + 'extra_sql' => "$extra_sql $orderby", + 'addl_from' => $addl_from, +}; + +# <TH>Service #<BR><FONT SIZE=-1>(click to view forward)</FONT></TH> +# <TH>Mail to<BR><FONT SIZE=-1>(click to view account)</FONT></TH> +# <TH>Forwards to<BR><FONT SIZE=-1>(click to view account)</FONT></TH> + +my $link = [ "${p}view/svc_forward.cgi?", 'svcnum' ]; + +my $format_src = sub { + my $svc_forward = shift; + if ( $svc_forward->srcsvc_acct ) { + $svc_forward->srcsvc_acct->email; + } else { + my $src = $svc_forward->src; + $src = "<I>(anything)</I>$src" if $src =~ /^@/; + $src; + } +}; + +my $link_src = sub { + my $svc_forward = shift; + if ( $svc_forward->srcsvc_acct ) { + [ "${p}view/svc_acct.cgi?", 'srcsvc' ]; + } else { + ''; + } +}; + +my $format_dst = sub { + my $svc_forward = shift; + if ( $svc_forward->dstsvc_acct ) { + $svc_forward->dstsvc_acct->email; + } else { + $svc_forward->dst; + } +}; + +my $link_dst = sub { + my $svc_forward = shift; + if ( $svc_forward->dstsvc_acct ) { + [ "${p}view/svc_acct.cgi?", 'dstsvc' ]; + } else { + ''; + } +}; + +#smaller false laziness w/svc_*.cgi here +my $link_cust = sub { + my $svc_x = shift; + $svc_x->custnum ? [ "${p}view/cust_main.cgi?", 'custnum' ] : ''; +}; + +</%init> |