Show mod_ATgbk.pl syntax highlighted
%DSO_MODS = (
'VALIDATE_ID' => sub {
my ($DSObj,$id) = @_;
if( $id =~ m/^\s*at(\d)g(\d{5}).*/i ){
## clean up the At#g##### locus id
return "At${1}g$2";
}elsif($id =~ m/^\s*([[:alpha:]]{2}\d{6}).*/){
## Clean up all XX###### accession numbers
return "$1";
}elsif($id =~ m/^\s*([[:alpha:]]{1}\d{5}).*/){
## Clean up all X##### accession numbers
return "$1";
}else{
$id =~ s/^\s+//;
return $id;
}
},
'MOD_EXTERNAL_LINKS' => sub {
my ($DSObj,$argHR,$recordHR) = @_;
my $stdHR = $DSObj->_STANDARD_EXTERNAL_URLS($argHR,$recordHR);
my $elHR = {'link01' => $stdHR->{NCBI},
'link02' => a({href=>"http://www.arabidopsis.org/servlets/TairObject?type=locus&name=" . $recordHR->{geneid},
onmousemove=>"window.status='Show TAIR Record';",
onmouseout =>"window.status='';"},
"\@ TAIR"),
'link03' => a({href=>"http://mips.gsf.de/cgi-bin/proj/thal/search_gene?code=" . $recordHR->{geneid},
onmousemove=>"window.status='Show MIPS Record';",
onmouseout =>"window.status='';"},
"\@ MIPS"),
'link04' => a({href=>"http://mpss.udel.edu/at/GeneAnalysis.php?featureName=" . $recordHR->{geneid},
onmousemove=>"window.status='Show MPSS Record';",
onmouseout =>"window.status='';"},
"\@ MPSS"),
'link05' => a({href=>"http://www.tigr.org/tigr-scripts/euk_manatee/shared/ORF_infopage.cgi?db=ath1&orf=" . $recordHR->{geneid},
onmousemove=>"window.status='Show TIGR Record';",
onmouseout =>"window.status='';"},
"\@ TIGR"),
};
return $elHR;
}
);
See more files for this project here