open(FILE,"$location/$file");
		flock(FILE,2);
		@data = <FILE>;
		close(FILE);
		open(FILE,"$location/$file");
		while (<FILE>){
			($name,$dir,$des,$dl,$style) = split(/\|/);
			if($name eq "$cat_name_del"){
				print FILE "\n";
			}
			else {
				print FILE "$name|$dir|$dl|$style|\n";
			}
		}