Changeset 538
- Timestamp:
- 07/04/11 02:03:20 (11 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
trunk/dbbuilder/src/org/bridgedb/extract/Ensembl_ETL_Device_v18_local.pl
r537 r538 433 433 my $dbname = $dbas[0]->dbc->dbname(); # e.g., core_mus_musculus_42_36c 434 434 my @split_dbname = split(/_/, $dbname); 435 if ($split_dbname[2] =="collection"){ # shift array elements for "collections"435 if ($split_dbname[2] eq "collection"){ # shift array elements for "collections" 436 436 splice(@split_dbname,1,1); 437 437 } … … 1763 1763 $ADMIN_Xrefs{$dbe_dbname}[10] = "\'Y\'"; # collected 1764 1764 if (!${$seen{GeneOntology}{$dbe_primary_id}}++){ 1765 # Get GO term annotations using $go_adaptor1766 1765 my $name = mysql_quotes(""); 1767 1766 my $namespace = mysql_quotes(""); 1767 # Get GO term annotations using $go_adaptor 1768 1768 if ($go_adaptor){ 1769 my $acc = $dbe_primary_id; 1770 $acc =~ s/\'//g; # strip single quotes to use as variable 1771 my $term = $go_adaptor->fetch_by_accession($acc); 1772 my $name = mysql_quotes($term->name()); #e.g., plasma membrane 1773 my $namespace = mysql_quotes($term->namespace()); # e.g., cellular component 1774 } 1775 $$GeneTables{GeneOntology}{$count.$dot.$subcount{GeneOntology}} = [$dbe_primary_id, $name, $namespace]; 1769 my $acc = $dbe_primary_id; 1770 $acc =~ s/\'//g; # strip single quotes to use as variable 1771 my $term = $go_adaptor->fetch_by_accession($acc); 1772 my $name = mysql_quotes($term->name()); #e.g., plasma membrane 1773 my $namespace = mysql_quotes($term->namespace()); # e.g., cellular_component 1774 $dbe_description = $name unless ($name eq "" || !$name); 1775 } 1776 $$GeneTables{GeneOntology}{$count.$dot.$subcount{GeneOntology}} = [$dbe_primary_id, $dbe_description, $namespace]; 1776 1777 $$Ensembl_GeneTables{GeneOntology}{$count.$dot.$subcount{GeneOntology}} = [$gene_stable_id, $dbe_primary_id]; 1777 $$Attributes{GeneOntology}{$count.$dot.$subcount{GeneOntology}.$dot.'1'} = [$dbe_primary_id, mysql_quotes( $$GeneTables{GeneOntology}{'NAME'}[1]), mysql_quotes('Description'), $ name];1778 $$Attributes{GeneOntology}{$count.$dot.$subcount{GeneOntology}.$dot.'1'} = [$dbe_primary_id, mysql_quotes( $$GeneTables{GeneOntology}{'NAME'}[1]), mysql_quotes('Description'), $dbe_description]; 1778 1779 ++$subcount{GeneOntology}; 1779 1780 } … … 1789 1790 my $namespace = mysql_quotes($term->namespace()); # e.g., cellular_component 1790 1791 if ($namespace =~ /\'biological_process\'/){ 1792 if (!${$seen{GOslimBP}{$dbe_primary_id}}++){ 1791 1793 $$GeneTables{GOslimBP}{$count.$dot.$subcount{GOslimBP}} = [$dbe_primary_id, $name]; 1792 1794 $$Ensembl_GeneTables{GOslimBP}{$count.$dot.$subcount{GOslimBP}} = [$gene_stable_id, $dbe_primary_id]; 1793 1795 $$Attributes{GOslimBP}{$count.$dot.$subcount{GOslimBP}.$dot.'1'} = [$dbe_primary_id, mysql_quotes( $$GeneTables{GOslimBP}{'NAME'}[1]), mysql_quotes('Description'), $name]; 1794 1796 ++$subcount{GOslimBP}; 1797 } 1795 1798 } elsif ($namespace =~ /\'cellular_component\'/){ 1799 if (!${$seen{GOslimCC}{$dbe_primary_id}}++){ 1796 1800 $$GeneTables{GOslimCC}{$count.$dot.$subcount{GOslimCC}} = [$dbe_primary_id, $name]; 1797 1801 $$Ensembl_GeneTables{GOslimCC}{$count.$dot.$subcount{GOslimCC}} = [$gene_stable_id, $dbe_primary_id]; 1798 1802 $$Attributes{GOslimCC}{$count.$dot.$subcount{GOslimCC}.$dot.'1'} = [$dbe_primary_id, mysql_quotes( $$GeneTables{GOslimCC}{'NAME'}[1]), mysql_quotes('Description'), $name]; 1799 1803 ++$subcount{GOslimCC}; 1804 } 1800 1805 } elsif ($namespace =~ /\'molecular_function\'/){ 1806 if (!${$seen{GOslimMF}{$dbe_primary_id}}++){ 1801 1807 $$GeneTables{GOslimMF}{$count.$dot.$subcount{GOslimMF}} = [$dbe_primary_id, $name]; 1802 1808 $$Ensembl_GeneTables{GOslimMF}{$count.$dot.$subcount{GOslimMF}} = [$gene_stable_id, $dbe_primary_id]; 1803 1809 $$Attributes{GOslimMF}{$count.$dot.$subcount{GOslimMF}.$dot.'1'} = [$dbe_primary_id, mysql_quotes( $$GeneTables{GOslimMF}{'NAME'}[1]), mysql_quotes('Description'), $name]; 1804 1810 ++$subcount{GOslimMF}; 1811 } 1805 1812 } else { 1806 1813 #garbage? … … 2180 2187 my %arrayTable = getArrayTable(); 2181 2188 2189 if (!defined $arrayTable{$genus_species} ){ 2190 return; 2191 } 2192 2182 2193 foreach my $key ( keys %$GeneTables) { 2183 2194 $subcount{$key} = 1;
