chWork

	(my $state = $reactant_str[$i]) =~ s/.*?state\(\'(.*?)\'\).*/$1/s;
	if ($state =~ /other/){
	    ($state = $reactant_str[$i]) =~ s/.*state_text\(\'(.*?)\'\).*/$1/s;
	}
	else{
	    
	    $state = $states{$state};
	}
	
	
	(my $cpmt = $reactant_str[$i]) =~ s/.*?compartment\(\'(.*?)\'\),comp.*/$1/s;
	(my $access = $reactant_str[$i]) =~ s/.*?accession\(\'(.*?)\'\),rlted_db.*/$1/s;
	(my $db = $reactant_str[$i]) =~ s/.*?rlted_db\((.*?)\).*/$1/s;
	if ($cpmt =~ /other/){
	    ($cpmt = $reactant_str[$i]) =~ s/.*?compartment_text\(\'(.*?)\'\),accession.*/$1/s;
	}
	else{
	    $cpmt = $comparts{$cpmt};
	}
	
	$novelty = $radios{$novelty};
	$react_macromol = $radios{$react_macromol};
	
	my @value = ($name,$state,
		     $cpmt, $access, $db,
		     $novelty,$react_macromol);
	my @tex_value = @value;
	    #fixed an error - Bearfoot 06.14.05
	foreach my $s(@value){
	    $s = " " if ($s eq "");
	}