diff options
Diffstat (limited to 'httemplate/search/svc_forward.cgi')
| -rwxr-xr-x | httemplate/search/svc_forward.cgi | 201 |
1 files changed, 101 insertions, 100 deletions
diff --git a/httemplate/search/svc_forward.cgi b/httemplate/search/svc_forward.cgi index d391a1834..dc002d96a 100755 --- a/httemplate/search/svc_forward.cgi +++ b/httemplate/search/svc_forward.cgi @@ -1,103 +1,104 @@ -<% - -my $conf = new FS::Conf; - -my($query)=$cgi->keywords; -$query ||= ''; #to avoid use of unitialized value errors - -my $orderby; - -my @extra_sql = (); -if ( $query =~ /^UN_(.*)$/ ) { #UN searches need to be acl'ed (and need to - #fix $agentnums_sql - $query = $1; - push @extra_sql, 'pkgnum IS NULL'; -} - -if ( $query eq 'svcnum' ) { - $orderby = 'ORDER BY svcnum'; -} else { - eidiot('unimplemented'); -} - -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', +% +% +%my $conf = new FS::Conf; +% +%my($query)=$cgi->keywords; +%$query ||= ''; #to avoid use of unitialized value errors +% +%my $orderby; +% +%my @extra_sql = (); +%if ( $query =~ /^UN_(.*)$/ ) { #UN searches need to be acl'ed (and need to +% #fix $agentnums_sql +% $query = $1; +% push @extra_sql, 'pkgnum IS NULL'; +%} +% +%if ( $query eq 'svcnum' ) { +% $orderby = 'ORDER BY svcnum'; +%} else { +% eidiot('unimplemented'); +%} +% +%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', 'query' => $sql_query, |