sub filter_good_orgs { 
print "Content-type: text/html\n\n";
       
    $SQL7 = "SELECT * FROM badwords";
    &Do_SQL7;
    $pointer7 = $sth7->fetchrow_hashref;
    $goodorg = $pointer7->{'goodorgs'};
    $lc_org = lc($organization);

    
    @orgs = split /\n/,$goodorg;
    foreach $goodorg (@orgs) {
    
	print "Word: $goodorg, Org: $lc_org Found: $found<br>";
            if ($lc_org =~ /$goodorg/i)  {
               $found = 1;
        	} 
        }
        
        print "<br>Found: $found<br>";
        if (!$found) {
        &error_suspect_org;
        }
   
    return;
    
    
} # end filter_good_orgs subroutine