diff options
Diffstat (limited to 'httemplate/elements/mcp_lint.html')
-rw-r--r-- | httemplate/elements/mcp_lint.html | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/httemplate/elements/mcp_lint.html b/httemplate/elements/mcp_lint.html new file mode 100644 index 0000000..161415e --- /dev/null +++ b/httemplate/elements/mcp_lint.html @@ -0,0 +1,40 @@ +% 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> |