1 % foreach my $lint (@lint) {
2 <FONT COLOR="#FF0000"><% $lint %></FONT><BR>
9 my $conf = new FS::Conf;
13 @svc = ref($opt{svc}) ? @{ $opt{svc} } : ( $opt{svc} );
14 } elsif ( $opt{cust_main} ) {
15 my $custnum = $opt{cust_main}->custnum;
17 'table' => 'cust_svc',
18 'addl_from' => ' LEFT JOIN cust_pkg USING ( pkgnum ) '.
19 ' LEFT JOIN cust_main USING ( custnum )',
20 'hashref' => { 'svcpart' => $conf->config('mcp_svcpart') },
21 'extra_sql' => " AND custnum = $custnum ",
24 die 'neither svc nor cust_main options passed to mcp_lint';
28 foreach my $svc ( @svc ) {
29 my @svc_lint = tron_lint($svc);
30 if ( scalar(@svc) > 1 ) {
31 push @lint, map $svc->title.": $_", @svc_lint;
33 push @lint, @svc_lint;