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

Diff of /FigWebServices/protein.cgi

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

revision 1.40, Mon Sep 20 13:35:25 2004 UTC revision 1.41, Wed Sep 22 17:25:38 2004 UTC
# Line 990  Line 990 
990      my($contig1,$beg1,$end1,$strand,$max_so_far,$gap,$comment,$fc,$aliases);      my($contig1,$beg1,$end1,$strand,$max_so_far,$gap,$comment,$fc,$aliases);
991      my($why_related,$fid1,$sz,$color,$map,$gg,$n,$link,$in_neighborhood);      my($why_related,$fid1,$sz,$color,$map,$gg,$n,$link,$in_neighborhood);
992    
993    
994        my $user = $cgi->param('user');
995        push(@$html,$cgi->start_form(-action => &FIG::cgi_url . "/chromosomal_clusters.cgi"),
996                    $cgi->hidden(-name => "prot", -value => $peg),
997                    $cgi->hidden(-name => "user", -value => $user));
998    
999      $why_related = "";      $why_related = "";
1000      my %in_cluster = map { $_ => 1 } $fig->in_cluster_with($peg);;      my %in_cluster = map { $_ => 1 } $fig->in_cluster_with($peg);;
1001    
1002      my $col_hdrs = ["fid","starts","ends","size","","gap","fc","neigh","comment","aliases","Related"];      my $col_hdrs = ["fid","starts","ends","size","","gap","req.<br>in<br>pin","fc","neigh","comment","aliases","Related"];
1003      my($tab) = [];      my($tab) = [];
1004      my $genes = [];      my $genes = [];
1005    
     my $user = $cgi->param('user');  
1006      my $peg_function = &trans_function_of($cgi,$fig,$peg,$user);      my $peg_function = &trans_function_of($cgi,$fig,$peg,$user);
1007    
1008      my($role,$role1,%related_roles);      my($role,$role1,%related_roles);
# Line 1071  Line 1076 
1076          }          }
1077          $sz = abs($end1-$beg1)+1;          $sz = abs($end1-$beg1)+1;
1078    
1079          push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,$fc,$in_neighborhood,          my $must_have = ($fid1 eq $peg) ? "" : $cgi->checkbox(-name => 'must_have',
1080                                                                  -value => $fid1,
1081                                                                  -checked => 0,
1082                                                                  -override => 1,
1083                                                                  -label => "");
1084    
1085            push(@$tab,[&HTML::fid_link($cgi,$fid1,"local"),$beg1,$end1,$sz,$strand,$gap,
1086                        $must_have,
1087                        $fc,$in_neighborhood,
1088                      $comment,&HTML::set_prot_links($cgi,$aliases),$why_related]);                      $comment,&HTML::set_prot_links($cgi,$aliases),$why_related]);
1089      }      }
1090      $map = ["",$beg,$end,$genes];      $map = ["",$beg,$end,$genes];
1091      $gg = [$map];      $gg = [$map];
1092      push(@$html,&HTML::make_table($col_hdrs,$tab,"Context on contig $contig1"));      push(@$html,&HTML::make_table($col_hdrs,$tab,"Context on contig $contig1"));
1093        push(@$html,$cgi->br,$cgi->submit('pin with checked genes'),$cgi->end_form,$cgi->br);
1094      push(@$html,@{ &GenoGraphics::render($gg,700,4,0,1) });      push(@$html,@{ &GenoGraphics::render($gg,700,4,0,1) });
1095      return;      return;
1096  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3