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

Diff of /FigWebServices/subsys.cgi

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

revision 1.39, Thu Feb 10 17:48:01 2005 UTC revision 1.40, Fri Feb 11 20:33:51 2005 UTC
# Line 2016  Line 2016 
2016  #           next if (($_ = $cgi->param('just_role')) && ($_ != ($subsystem->get_role_index($role) + 1)));  #           next if (($_ = $cgi->param('just_role')) && ($_ != ($subsystem->get_role_index($role) + 1)));
2017              next if ($just_role && ($just_role ne $role));              next if ($just_role && ($just_role ne $role));
2018    
2019                my $flag = 0;
2020                my $rdbH = $fig->db_handle;
2021                my $q = "SELECT subsystem, role FROM subsystem_index WHERE role = '$role'";
2022                if (my $relational_db_response = $rdbH->SQL($q))
2023                {
2024                    my $pair;
2025                    foreach $pair (@$relational_db_response)
2026                    {
2027                         my ($ss, $role) = @$pair;
2028                         if ($ss !~/Unique/)
2029                         {
2030                            $flag = 1;
2031                         }
2032                    }
2033                }
2034    
2035                if ($flag)
2036                {
2037              my @hits = $fig->find_role_in_org($role, $org, $user, $cgi->param("sims_cutoff"));              my @hits = $fig->find_role_in_org($role, $org, $user, $cgi->param("sims_cutoff"));
2038              push(@$missing,@hits);              push(@$missing,@hits);
2039          }          }
2040            }
2041    
2042          if (@$missing > 0)          if (@$missing > 0)
2043          {          {
2044              my $genus_species = &ext_genus_species($fig,$org);              my $genus_species = &ext_genus_species($fig,$org);
2045              push(@$html,$cgi->h2("$org: $genus_species"));              push(@$html,$cgi->h2("$org: $genus_species"));
2046    
2047              my $colhdr = ["Assign", "P-Sc", "PEG", "Len", "Current fn", "Matched peg", "Len", "Function"];              my $colhdr = ["Assign","Sub(s)", "P-Sc", "PEG", "Len", "Current fn", "Matched peg", "Len", "Function"];
2048              my $tbl = [];              my $tbl = [];
2049    
2050              for my $hit (@$missing)              for my $hit (@$missing)
2051              {              {
2052                  my($psc, $my_peg, $my_len, $my_fn, $match_peg, $match_len, $match_fn) = @$hit;                  my($psc, $my_peg, $my_len, $my_fn, $match_peg, $match_len, $match_fn) = @$hit;
   
2053                  my $my_peg_link = &HTML::fid_link($cgi, $my_peg, 1);                  my $my_peg_link = &HTML::fid_link($cgi, $my_peg, 1);
2054                  my $match_peg_link = &HTML::fid_link($cgi, $match_peg, 0);                  my $match_peg_link = &HTML::fid_link($cgi, $match_peg, 0);
2055    
2056                  my $checkbox = $cgi->checkbox(-name => "checked",                  my $checkbox = $cgi->checkbox(-name => "checked",
2057                                                -value => "to=$my_peg,from=$match_peg",                                                -value => "to=$my_peg,from=$match_peg",
2058                                                -label => "");                                                -label => "");
2059                    my $good = 1;
2060                  my (@list_of_returned_ss,$ss_name,$ss_role,$good,$skip);                  my @list_of_ss = ();
2061                  @list_of_returned_ss = $fig->subsystems_for_peg($match_peg);                  my $ss_table_entry = "none";
2062                  $good = 0;                  my (@list_of_returned_ss,$ss_name,$ss_role);
2063                    @list_of_returned_ss = $fig->subsystems_for_peg($my_peg);
2064                    if (@list_of_returned_ss > 0)
2065                    {
2066                  for my $ret_ss (@list_of_returned_ss)                  for my $ret_ss (@list_of_returned_ss)
2067                  {                  {
2068                      ($ss_name,$ss_role)= @$ret_ss;                      ($ss_name,$ss_role)= @$ret_ss;
2069                      if ($ss_name =~/Unique/){ $skip = 1}                        if ($ss_name !~/Unique/)
2070                      else{ $good = 1}                         {
2071                  }                             #$good = 1;
2072                               push (@list_of_ss,$ss_name);
2073                               $ss_table_entry = join("<br>",@list_of_ss);
2074    
2075                           }
2076                       }
2077                    }
2078    
2079                  if ($good)                  if ($good)
2080                  {                  {
2081                               push(@$tbl, [$checkbox,                      push(@$tbl, [$checkbox,$ss_table_entry,
2082                               $psc,                               $psc,
2083                               $my_peg_link, $my_len, $my_fn,                               $my_peg_link, $my_len, $my_fn,
2084                               $match_peg_link, $match_len, $match_fn]);                               $match_peg_link, $match_len, $match_fn]);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3