Y12398983981293\n
Y23981098310983\n
N98230498209480\n
Y23487289374987\n


##</code><code>##

open (IMAGE_LIST, "$image_list");
	while(<IMAGE_LIST>) {
		if ($_ =~ /^Y/) {
			$approve = "$approve$_";
		}
		if ($_ =~ /^N/) {
			$condem = "$condem$_";
		}
	}
	close (IMAGE_LIST);
	
open (IMAGE_LIST, ">>$image_list");
	

my $full_image;
for ($a = 0; $a < $thumb_count; $a++) {
	if ($approve =~ /Y$thumb_id_list[$a]/) { 
		print "already had $thumb_id_list[$a] on record!!!<BR>";
		push (@display_thumbs,$thumb_id_list[$a]); 
	}
		
		
	if (($approve !~ /Y$thumb_id_list[$a]/) && ($condem !~ /N$thumb_id_list[$a]/)) {
		#This connects to the partner website to chack.
		my $confirmed_thumb = &check_image($session,$thumb_id_list[$a]);   
		if ($confirmed_thumb) { 
			print IMAGE_LIST "Y$confirmed_thumb\n";
			push (@display_thumbs,$thumb_id_list[$a]); 
		}
		if (!$confirmed_thumb) { 
			print IMAGE_LIST "N$thumb_id_list[$a]\n"; 
		}
	}	
}
close (IMAGE_LIST);