[Bio] / FigWebServices / proteinfamilies.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/proteinfamilies.cgi

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

revision 1.39, Thu Dec 15 22:03:26 2005 UTC revision 1.40, Wed Dec 21 19:14:13 2005 UTC
# Line 311  Line 311 
311                          $fig->ext_sz_family($fam),                          $fig->ext_sz_family($fam),
312                          $fig->sz_family($fam),                          $fig->sz_family($fam),
313                      ];                      ];
314          $allfams->{$fam}="$fam :" . $fig->family_function($fam);          #$allfams->{$fam}="$fam :" . $fig->family_function($fam);
315            $allfams->{$fam}=substr("$fam : " . $fig->family_function($fam), 0, 100);
316     }     }
317    
318    
# Line 335  Line 336 
336    $cgi->p("Show proteins:<br /><ul>\n",    $cgi->p("Show proteins:<br /><ul>\n",
337    $cgi->radio_group(-name=>"diff", -values=>[keys %$radbut], -labels=>$radbut, -rows=>4),    $cgi->radio_group(-name=>"diff", -values=>[keys %$radbut], -labels=>$radbut, -rows=>4),
338    "</ul>\n"),    "</ul>\n"),
339    $cgi->p($cgi->checkbox(-name=>"show", -value=>"all", -label=>""), " &nbsp; Show all proteins in the two families (otherwise, just highlight missing proteins from one family)."),    $cgi->p($cgi->checkbox(-name=>"show", -value=>"all", -label=>""), " &nbsp; Show all proteins in the two families (otherwise, just show candidate family members that have different function)."),
340    $cgi->hidden(-name=>'prot', -value=>$peg),    $cgi->hidden(-name=>'prot', -value=>$peg),
341    $cgi->submit(-name=>"differentiate", -value=>"Compare these families"), $cgi->reset, $cgi->end_form(), "</div>";    $cgi->submit(-name=>"differentiate", -value=>"Compare these families"), $cgi->reset, $cgi->end_form(), "</div>";
342  }  }
# Line 468  Line 469 
469    
470    # add the score    # add the score
471    splice(@$row, 0, 0, "$for/$against");    splice(@$row, 0, 0, "$for/$against");
472      if ($for == 0 && $against == 0) {push @$html, $cgi->p({class=>"diagnostic"}, "Cant map $cid\n")}
473    
474    
475    # if we want to show everything do so, otherwise only show the rows where there is a missing protein    # if we want to show everything do so, otherwise only show the rows where there is a missing protein
476    if (($cgi->param("diff") eq "1and2") || ($cgi->param("diff") eq "1or2") || ($cgi->param('show') eq "all"))    if (($cgi->param("diff") eq "1and2") || ($cgi->param("diff") eq "1or2") || ($cgi->param('show') eq "all"))
# Line 646  Line 649 
649          " also in the second family.",          " also in the second family.",
650          " The <b>For</b> score is the total number of proteins that agree both families are similar. The <b>Against</b> score is the total number of proteins ",          " The <b>For</b> score is the total number of proteins that agree both families are similar. The <b>Against</b> score is the total number of proteins ",
651          " that disagree that the two proteins are similar. These numbers are the sum of the for and against scores shown under the side-by-side comparison ",          " that disagree that the two proteins are similar. These numbers are the sum of the for and against scores shown under the side-by-side comparison ",
652          " when you click the link in column 1.")),          " when you click the link in column 1."),
653          HTML::make_table(["Family 1", "Family 2", "Frequency", "For", "Against"], $tab, "Scores", (class=>'white')),          HTML::make_table(["Family 1", "Family 2", "Frequency", "For", "Against"], $tab, "Scores", (class=>'white')),
654   );   ));
655  }  }
656    
657  sub score_two_families {  sub score_two_families {

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3