Show mod_ATput.pl syntax highlighted
%DSO_MODS = (
#'MOD_LINK' => sub {
# my($DSObj,$argHR,$recordHR) = @_;
# return "http://www.plantgdb.org/search/display/data.php?Seq_ID=" . $recordHR->{gi};
#}
'MOD_EXTERNAL_LINKS' => sub {
my($DSObj,$argHR,$recordHR) = @_;
my $elHR ={ "PlantGDB" => a({href=>"http://www.plantgdb.org/search/display/data.php?Seq_ID=" . $recordHR->{gi},
onmousemove=>"window.status='Show GenBank Record';",
onmouseout=>"window.status='';"},
"\@ PlantGDB")
};
return $elHR;
},
#'MOD_RECORD_TOOLS' => sub {
# my($DSObj,$argHR,$recordHR) = @_;
# my $toolHR = $DSObj->_STANDARD_TOOL_URLS($argHR,$recordHR);
# my $plantGDBlink = a({href=>"http://www.plantgdb.org/search/display/data.php?Seq_ID=" . $recordHR->{gi},
# onmousemove=>"window.status='Show GenBank Record';",
# onmouseout=>"window.status='';"},
# "\@ PlantGDB");
# return [ $plantGDBlink, @$toolHR{'xgdb-FASTA','xgdb-GSQ','xgdb-BLAST','xgdb-REGION'}];
#},
'MOD_RECORD_INFO' => sub {
my $self= shift;
my ($argHR,$recordHR) = @_;
my $toolHR = $self->_STANDARD_TOOL_URLS(@_);
$self->{description} =~ s/^\s+//;
my $formated_seq = $self->{seq};
$formated_seq =~ s/(.{70})/$1\n/g;
my $exLinkHR = $self->getExternalURLS(@_);
my $exLinkTable = "<TR>\n";
my ($exLinkID,$x) = ('',0);
foreach $exLinkID ( sort {return $a cmp $b;} keys %{$exLinkHR}){
$x++;
$exLinkTable .= "</TR><TR>\n" if(($x % 10)==0);
$exLinkTable .= "<TD class='exURL'>$exLinkHR->{$exLinkID}</TD>\n";
}
$exLinkTable .= "</TR>";
my $border_color = (exists($self->{primaryColor}))?$self->{primaryColor}:"blue";
my $genomic_source = (exists($argHR->{chrUID}))?"Chromosome $argHR->{chr} <SPAN STYLE='font-size:9px; color:red;'>[ " . $DBver[$self->{db_id}]->{DBtag} . " ]</SPAN>":
(exists($argHR->{gsegUID}))?"${LATINORGN} BAC gi\| $argHR->{gseg_gi} \|":
"<SPAN STYLE='color:red;'>!! Undefined Genomic Source !!</SPAN>";
return <<END_OF_INFO;
<TABLE STYLE="margin:1px; width:700px; border:2px solid $border_color;">
<TR>
<TD STYLE="text-align:right; font-size:12px;"><STRONG>PlantGDB ID:</STRONG></TD><TD>$self->{gi}</TD>
<TD STYLE="text-align:right; font-size:12px;"></TD><TD></TD></TR>
<TR STYLE="vertical-align:top;">
<TD STYLE="text-align:right; font-size:12px;"><STRONG>Description:</STRONG></TD>
<TD COLSPAN=3><TEXTAREA READONLY ROWS=2 STYLE="width:600px;">$self->{description}</TEXTAREA></TD></TR>
<TR STYLE="vertical-align:top;">
<TD STYLE="text-align:right; font-size:12px;"><STRONG>Nucleotide <BR>Sequence:<BR><SPAN STYLE="font-size:9px; font-weight:normal;">$toolHR->{'xgdb-FASTA'}</SPAN></STRONG></TD>
<TD COLSPAN=3 STYLE="width:600px;"><TEXTAREA READONLY ROWS=2 STYLE="width:600px;">$formated_seq</TEXTAREA><BR>
<TABLE ALIGN="right"><TR><TD STYLE="font-size:9px;">$toolHR->{'xgdb-BLAST'}</TD></TR></TABLE>
</TD>
</TR>
<TR STYLE="vertical-align:top;">
<TD STYLE="text-align:right; font-size:12px;"><STRONG>Alignment:<BR><SPAN STYLE="font-size:9px; font-weight:normal;">$toolHR->{'xgdb-REGION'}</SPAN></STRONG></TD>
<TD COLSPAN=3>$genomic_source
<INPUT TYPE="text" READONLY STYLE="width:600px;" value="( $recordHR->{pgs} )"><BR>
<TABLE ALIGN="right"><TR><TD STYLE="font-size:9px;">$toolHR->{'xgdb-GSQ'}</TD></TR></TABLE>
</TD></TR>
<STYLE>
TD.exURL { padding-right:15px; }
TD.exURL a{ font-size:0.75em; }
</STYLE>
<TR>
<TD COLSPAN=4 style='padding-left:10px;'>
<TABLE style='text-align:left;'>
<CAPTION style='white-space:nowrap; text-align:left; font:1em bold sans-serif;'><U>Additional resource links:</U></CAPTION>
$exLinkTable
</TABLE>
</TD>
</TR>
</TABLE>
END_OF_INFO
}
);
See more files for this project here