diff --git a/misc-scripts/xref_mapping/XrefParser/AnoXcelParser.pm b/misc-scripts/xref_mapping/XrefParser/AnoXcelParser.pm index 4460181c7fbc9ec8f9dcbbd9067d62384808ff2f..8fbae67a9809be6ba57e3420933c3176b6300300 100644 --- a/misc-scripts/xref_mapping/XrefParser/AnoXcelParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/AnoXcelParser.pm @@ -32,13 +32,6 @@ sub run { print "source_id = $source_id, species= $species_id, file = $file\n" if($verbose); - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - my $added = 0; my $count = 0; diff --git a/misc-scripts/xref_mapping/XrefParser/ImmunoDBParser.pm b/misc-scripts/xref_mapping/XrefParser/ImmunoDBParser.pm index 1afbf1e2d9068d3615501513cb11c661b98a827a..395e4bfafc655033ee9bd6e619646ab3cc16f8a3 100644 --- a/misc-scripts/xref_mapping/XrefParser/ImmunoDBParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/ImmunoDBParser.pm @@ -23,13 +23,6 @@ sub run { print "source_id = $source_id, species = $species_id, file = $file\n" if($verbose); - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - my $added = 0; my $count = 0; diff --git a/misc-scripts/xref_mapping/XrefParser/InterproParser.pm b/misc-scripts/xref_mapping/XrefParser/InterproParser.pm index 36d3370852d97fd297377764141bcfe9521f49da..b1b3019d4367494089f69cc5652bc8d49438c625 100644 --- a/misc-scripts/xref_mapping/XrefParser/InterproParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/InterproParser.pm @@ -22,13 +22,6 @@ sub run { my $file = @{$files}[0]; - if(!defined($source_id)){ - $source_id = $self->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = $self->get_species_id_for_filename($file); - } - my $add_interpro_sth = $self->dbi() ->prepare("INSERT INTO interpro (interpro, pfam, dbtype ) VALUES(?,?,?)"); diff --git a/misc-scripts/xref_mapping/XrefParser/MGDParser.pm b/misc-scripts/xref_mapping/XrefParser/MGDParser.pm index a674bec325994ff7bb3fe606a46cc426bf4bc117..58e2a57b654ce1fe6ab7f53d31d103a0e1dcbd02 100644 --- a/misc-scripts/xref_mapping/XrefParser/MGDParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/MGDParser.pm @@ -7,9 +7,6 @@ use File::Basename; use base qw( XrefParser::BaseParser ); -my $xref_sth ; -my $dep_sth; - sub run { my $self = shift; my $source_id = shift; @@ -22,81 +19,5 @@ sub run { die "No longer used. MGI is taken form the uniprot file\n"; } -1; - -__END__ - - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - - my (%swiss) = %{XrefParser::BaseParser->get_valid_codes("uniprot",$species_id)}; - my (%refseq) = %{XrefParser::BaseParser->get_valid_codes("refseq",$species_id)}; - - - my $count = 0; - my $mismatch = 0; - my %mgi_good; - - my $file_io = $self->get_filehandle($file); - - if ( !defined $file_io ) { - print "ERROR: Could not open file $file"; - return 1; # 1 is an error - } - - while ( my $line = $file_io->getline() ) { - chomp $line; - my ($key,$label,$desc,$sps) = (split("\t",$line))[0,1,3,6]; - my @sp = split(/\s/,$sps); - foreach my $value (@sp){ - if(defined($value) and $value and defined($swiss{$value})){ - XrefParser::BaseParser->add_to_xrefs($swiss{$value},$key,'',$label,$desc,"",$source_id,$species_id); - $mgi_good{$key} = 1; - $count++; - } - elsif(defined($value) and $value and defined($refseq{$value})){ - $mismatch++; - } - } - - } - $file_io->close(); - - my $dir = dirname($file); - my $syn_file = $dir."/MRK_Synonym.sql.rpt"; - - $file_io = $self->get_filehandle($syn_file); - - if ( !defined $file_io ) { - print "ERROR: Could not open file $syn_file"; - return 1; - } - - my $synonyms=0; - - while ( $_ = $file_io->getline() ) { - if(/MGI:/){ - chomp ; - my ($key,$syn) = (split)[0,4]; - if(defined($mgi_good{$key})){ - $self->add_to_syn($key, $source_id, $syn, $species_id); - $synonyms++; - } - } - } - - $file_io->close(); - - print "\t$count xrefs succesfully loaded\n"; - print "\t$synonyms synonyms successfully loaded\n"; - print "\t$mismatch xrefs failed to load\n"; - - return 0; -} 1; - diff --git a/misc-scripts/xref_mapping/XrefParser/MGI_Desc_Parser.pm b/misc-scripts/xref_mapping/XrefParser/MGI_Desc_Parser.pm index 1133fb27a1e8e6354597ca0f9ab4d3a101a52cd8..d6cc51473aa6c31732c110407277e56f20b5d74c 100644 --- a/misc-scripts/xref_mapping/XrefParser/MGI_Desc_Parser.pm +++ b/misc-scripts/xref_mapping/XrefParser/MGI_Desc_Parser.pm @@ -26,15 +26,6 @@ sub run { my $file = @{$files}[0]; my $syn_file = @{$files}[1]; - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - - - my $mgi_io = $self->get_filehandle($file); if ( !defined $mgi_io ) { diff --git a/misc-scripts/xref_mapping/XrefParser/MIMParser.pm b/misc-scripts/xref_mapping/XrefParser/MIMParser.pm index bd7a2ecb8a92dca949fea025b6f6990c81f64617..a1cffa2b5cc553cfeb098de621d375fc2ae27cc0 100644 --- a/misc-scripts/xref_mapping/XrefParser/MIMParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/MIMParser.pm @@ -28,14 +28,8 @@ sub run { my %removed; my $source_id; my @sources; - if(!defined($general_source_id)){ - $general_source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } + push @sources, $general_source_id; - my $gene_source_id = XrefParser::BaseParser->get_source_id_for_source_name("MIM_GENE"); push @sources, $gene_source_id; @@ -43,7 +37,7 @@ sub run { push @sources, $morbid_source_id; print "sources are:- ".join(", ",@sources)."\n" if($verbose); - + local $/ = "*RECORD*"; my $mim_io = $self->get_filehandle($file); diff --git a/misc-scripts/xref_mapping/XrefParser/PomBaseParser.pm b/misc-scripts/xref_mapping/XrefParser/PomBaseParser.pm index af054b42e4a9d5deb29edc6dee5afc17a3ff407c..815acdec51211bfa49dfec33c1c975a7acc62e25 100644 --- a/misc-scripts/xref_mapping/XrefParser/PomBaseParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/PomBaseParser.pm @@ -26,13 +26,6 @@ sub run { my $file = @{$files}[0]; - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - my $gene_source_id = XrefParser::BaseParser->get_source_id_for_source_name("PomBase_GENE"); my $transcript_source_id = XrefParser::BaseParser->get_source_id_for_source_name("PomBase_TRANSCRIPT"); diff --git a/misc-scripts/xref_mapping/XrefParser/RGDParser.pm b/misc-scripts/xref_mapping/XrefParser/RGDParser.pm index 1f1ab1e93a1832241ea7896dc63cf7c644b97053..27e0e4a7f4c8035d79bb1773dad4e7af7145d0c7 100644 --- a/misc-scripts/xref_mapping/XrefParser/RGDParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/RGDParser.pm @@ -24,13 +24,6 @@ sub run { my $file = @{$files}[0]; - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - my $dbi = $self->dbi(); my (%refseq) = %{XrefParser::BaseParser->get_valid_codes("refseq",$species_id)}; diff --git a/misc-scripts/xref_mapping/XrefParser/RefSeqGPFFParser.pm b/misc-scripts/xref_mapping/XrefParser/RefSeqGPFFParser.pm index 0be5d24ca90f7b4252a77f67e7e969c0f565d2bb..d6a08adfd7e92e657450044c787c6c8dc66b90dc 100644 --- a/misc-scripts/xref_mapping/XrefParser/RefSeqGPFFParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/RefSeqGPFFParser.pm @@ -44,14 +44,6 @@ sub run { my @xrefs; foreach my $file (@files) { - if ( $source_id < 1 ) { - $source_id = - $self->get_source_id_for_filename( basename($file) ); - } - if ( !defined($species_id) ) { - $species_id = $self->get_species_id_for_filename($file); - } - my $xrefs = $self->create_xrefs( $peptide_source_id, $dna_source_id, diff --git a/misc-scripts/xref_mapping/XrefParser/VBCommunitySymbolParser.pm b/misc-scripts/xref_mapping/XrefParser/VBCommunitySymbolParser.pm index f6f7cc00f59194b36d8a6a6cb364c944e191616d..bef422f699789260cfab162654398aba07087cee 100644 --- a/misc-scripts/xref_mapping/XrefParser/VBCommunitySymbolParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/VBCommunitySymbolParser.pm @@ -26,14 +26,6 @@ sub run { print "source_id = $source_id, species= $species_id, file = $file\n" if($verbose); - - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - my $added = 0; my $count = 0; diff --git a/misc-scripts/xref_mapping/XrefParser/ZFINDescParser.pm b/misc-scripts/xref_mapping/XrefParser/ZFINDescParser.pm index 9956ab390b35cdac856eb80066290a4506c8b883..8f57043f686ae71ad0b606edb72daa10a18fb851 100644 --- a/misc-scripts/xref_mapping/XrefParser/ZFINDescParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/ZFINDescParser.pm @@ -25,13 +25,6 @@ sub run { my $file = @{$files}[0]; - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - #e.g. #ZDB-GENE-050102-6 WITHDRAWN:zgc:92147 WITHDRAWN:zgc:92147 0 #ZDB-GENE-060824-3 apobec1 complementation factor a1cf 0 diff --git a/misc-scripts/xref_mapping/XrefParser/ncRNAParser.pm b/misc-scripts/xref_mapping/XrefParser/ncRNAParser.pm index dc7769365281e20e54aefe491fa67425ece76c03..21b1a7f94b04b495eaf1bbb4eb659bf8b3d9523e 100644 --- a/misc-scripts/xref_mapping/XrefParser/ncRNAParser.pm +++ b/misc-scripts/xref_mapping/XrefParser/ncRNAParser.pm @@ -26,14 +26,6 @@ sub run { print "source_id = $source_id, species= $species_id, file = $file\n"; - - if(!defined($source_id)){ - $source_id = XrefParser::BaseParser->get_source_id_for_filename($file); - } - if(!defined($species_id)){ - $species_id = XrefParser::BaseParser->get_species_id_for_filename($file); - } - my %name_2_source_id=(); my $added=0;