diff options
author | ivan <ivan> | 2008-08-22 03:01:06 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-08-22 03:01:06 +0000 |
commit | 106d0163556c31a3b2cf9c065ec6d9d6ded0ce64 (patch) | |
tree | eb945ad809a8bf524d8b20a9204f18aa24ecd6a7 /httemplate/elements/mcp_lint.html | |
parent | c1297541457bdfce910e7013cd6dc24254347852 (diff) |
the master control program has chosen YOU to serve your system on the game grid
Diffstat (limited to 'httemplate/elements/mcp_lint.html')
-rw-r--r-- | httemplate/elements/mcp_lint.html | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/httemplate/elements/mcp_lint.html b/httemplate/elements/mcp_lint.html new file mode 100644 index 000000000..826549c65 --- /dev/null +++ b/httemplate/elements/mcp_lint.html @@ -0,0 +1,37 @@ +% foreach my $lint (@lint) { + <FONT COLOR="#FF0000"><% $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 = (); +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> |