sub picstat{

	
			
#find out if the user currently has this catagories board pictures hidden or displayed.

	
   $curcat = $INFO{'cat'};
   if (-e "$memberdir/$username.img" ) { require "$memberdir/$username.img"; }
   if ($removepic{$curcat} eq "1"){

#we now need to delete the entry from the users .img file to turn pics for this category off.
			
	fopen(FILE, "$memberdir/$username.img");
	@userimg = <FILE>;
	fclose(FILE);
	chomp @userimg;
	my @newuserimg = ();
	foreach $userimgdat(@userimg) {
	   chomp $userimgdat;
	   $compare="removepic{'$curcat'}";
	   unless ( index($userimgdat, $compare) != -1 ){push (@newuserimg, $userimgdat);}
	}
	chomp @newuserimg;
	fopen(FILE, ">$memberdir/$username.img");
	foreach $newuserimgdat(@newuserimg) {
	   chomp $newuserimgdat;
	   print FILE "$newuserimgdat\n";
	}
	fclose(FILE);

	  $yySetLocation = qq~$cgi~;
	  &redirectexit;
		
   }else{

#we now need to add the entry to the users .img file to turn the pics for this category on.

	fopen(FILE, "$memberdir/$username.img");
	@userimg = <FILE>;
	fclose(FILE);
	chomp @userimg;

#check to make sure the user has a .img file.  If not, create array template ready to add strings.

	  if ($userimg[0] eq ""){
	   push (@userimg, "#users board image dat.  If listed, the categories board images will not be displayed\n");
	   push (@userimg, "1;\n");		 
	}

# # # # # #

	foreach $userimgdat(@userimg) {
	   chomp $userimgdat;
	   unless ( index($userimgdat, '#users') != -1 ){push (@newuserimg, $userimgdat);}
	}
	$newentry=qq~\$removepic{'$curcat'}="1";~;
	unshift (@newuserimg, $newentry);	
	fopen(FILE, ">$memberdir/$username.img");
	print FILE "#users board image dat.  If listed, the categories board images will not be displayed\n";
	foreach $newuserimgdat(@newuserimg) {
	   chomp $newuserimgdat;
	   print FILE "$newuserimgdat\n";
	}
	fclose(FILE);

	  $yySetLocation = qq~$cgi~;
	  &redirectexit;
   }

}

1;