diff options
Diffstat (limited to 'httemplate/elements/mcp_lint.html')
-rw-r--r-- | httemplate/elements/mcp_lint.html | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/httemplate/elements/mcp_lint.html b/httemplate/elements/mcp_lint.html deleted file mode 100644 index 161415eff..000000000 --- a/httemplate/elements/mcp_lint.html +++ /dev/null @@ -1,40 +0,0 @@ -% foreach my $lint (@lint) { -% my $color = ( $lint =~ /unchecked$/ ? '#FF9900' : '#FF0000' ); - <FONT COLOR="<% $color %>"><% $lint %></FONT><BR> -% } - -<%init> - -my(%opt) = @_; - -my $conf = new FS::Conf; - -my @svc = (); -if ( $opt{svc} ) { - @svc = ref($opt{svc}) ? @{ $opt{svc} } : ( $opt{svc} ); -} elsif ( $opt{cust_main} ) { - my $custnum = $opt{cust_main}->custnum; - @svc = qsearchs({ - 'table' => 'cust_svc', - 'addl_from' => ' LEFT JOIN cust_pkg USING ( pkgnum ) '. - ' LEFT JOIN cust_main USING ( custnum )', - 'hashref' => { 'svcpart' => $conf->config('mcp_svcpart') }, - 'extra_sql' => " AND custnum = $custnum ", - }); -} else { - die 'neither svc nor cust_main options passed to mcp_lint'; -} - - -my @lint = (); -push @lint, 'unchecked' unless @svc; -foreach my $svc ( @svc ) { - my @svc_lint = tron_lint($svc); - if ( scalar(@svc) > 1 ) { - push @lint, map $svc->title.": $_", @svc_lint; - } else { - push @lint, @svc_lint; - } -} - -</%init> |