[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.107, Sun Nov 5 03:50:10 2006 UTC revision 1.108, Sun Nov 19 15:11:40 2006 UTC
# Line 905  Line 905 
905      return $family;      return $family;
906  }  }
907    
908    =head2 evidence_codes_explain
909    
910    Given an evidence code, returns a string that explains this eveidence code.
911    
912    =cut
913    
914    sub evidence_codes_explain {
915     my($ec)=@_;
916     return unless ($ec);
917    
918     $ec=uc($ec);
919     return "IDA: Inferred from Direct Assay" if ($ec =~ /IDA/);
920     return "IGI: Inferred from Genetic Interaction" if ($ec =~ /IGI/);
921     return "TAS: Traceable Author Statement" if ($ec =~ /TAS/);
922     return "ISU: in subsystem unique" if ($ec =~ /ISU/);
923     return "$ec: in subsystem duplicates" if ($ec =~ /IDU/);
924     return "$ec: in cluster with" if ($ec =~ /ICW/);
925     return "$ec: unknown!";
926     return "FF: in FIGfam" if ($ec =~ /FF/);
927     return "CWN: clustered with nonhypothetical" if ($ec =~ /CWN/);
928     return "CWH: clustered, but only with hypotheticals" if ($ec =~ /CWH/);
929     return "DLIT: literature references to this gene exist" if ($ec =~ /DLIT/);
930     return "ILIT: no references to this gene exist, but they do to other genes with the same functional role" if ($ec =~ /ILIT/);
931    }
932    
933  sub get_html {  sub get_html {
934      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3