if ($photo1 ne "")
	{
	{system("rm $photodir/$category_id_number/$photo1");}
	my @resize1 = split(/\./, $photo1);
	my $photo1t = $resize1[0] . "-T." . $resize1[1];
	{system("rm $photodir/$category_id_number/$photo1t");}
	}