summaryrefslogtreecommitdiff
path: root/httemplate/elements/mcp_lint.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/elements/mcp_lint.html')
-rw-r--r--httemplate/elements/mcp_lint.html40
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>