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

Diff of /FigWebServices/index.cgi

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

revision 1.55, Sun Jan 23 15:43:49 2005 UTC revision 1.56, Wed Jan 26 19:58:00 2005 UTC
# Line 517  Line 517 
517                  "to actually install), they will be made available under that name (but, when you access them, ",                  "to actually install), they will be made available under that name (but, when you access them, ",
518                  "you will normally be using something like <b>master:RossO</b>)",                  "you will normally be using something like <b>master:RossO</b>)",
519                  $cgi->br,$cgi->br,                  $cgi->br,$cgi->br,
520                  "From: ",$cgi->textfield(-name => "from_func", -size => 60),                  "From: ",
521                  $cgi->br,                  $cgi->textarea(-name => 'from_func', -rows => 4, -cols => 60),
522                    $cgi->br,$cgi->br,
523                  "To:&nbsp;&nbsp;&nbsp;&nbsp; ",$cgi->textfield(-name => "to_func", -size => 60),                  "To:&nbsp;&nbsp;&nbsp;&nbsp; ",$cgi->textfield(-name => "to_func", -size => 60),
524                  $cgi->br,                  $cgi->br,
525                  $cgi->submit('Generate Assignments via Translation'),                  $cgi->submit('Generate Assignments via Translation'),
# Line 554  Line 555 
555      push(@$html,      push(@$html,
556                  $cgi->hr,                  $cgi->hr,
557                  $cgi->h2('Locate PEGs in Subsystems'),                  $cgi->h2('Locate PEGs in Subsystems'),
558                    "<br>If you wish to locate PEGs in subsystems, you have two approaches supported.  You can
559    give a FIG id, and you will get a list of all homologs in the designated genome that occur in subsystems.
560    Alternatively, you can specify a functional role, and all PEGs in the genome that match that role will be shown.",
561                  $cgi->start_form(-action => "index.cgi"),                  $cgi->start_form(-action => "index.cgi"),
562                  "Enter user: ",                  "Enter user: ",
563                  $cgi->textfield(-name => "user", -size => 20), $cgi->br,                  $cgi->textfield(-name => "user", -size => 20), $cgi->br,
# Line 1121  Line 1125 
1125  sub translate_assignments {  sub translate_assignments {
1126      my($fig,$cgi,$html,$from_func,$to_func) = @_;      my($fig,$cgi,$html,$from_func,$to_func) = @_;
1127    
1128        my @funcs = grep { $_ =~ /^\S.*\S$/ } split(/[\012\015]+/,$from_func);
1129    
1130      my $user = $cgi->param('save_user');      my $user = $cgi->param('save_user');
1131      if ($user)      if ($user)
1132      {      {
# Line 1130  Line 1136 
1136          {          {
1137              my($peg,$func);              my($peg,$func);
1138    
1139                foreach $from_func (@funcs)
1140                {
1141              foreach $peg ($fig->seqs_with_role($from_func))              foreach $peg ($fig->seqs_with_role($from_func))
1142              {              {
1143                  if ($peg =~ /^fig\|/)                  if ($peg =~ /^fig\|/)
# Line 1141  Line 1149 
1149                      }                      }
1150                  }                  }
1151              }              }
1152                }
1153              close(TMP);              close(TMP);
1154          }          }
1155          push(@$html,$cgi->h1("Saved Assignment Set $file"));          push(@$html,$cgi->h1("Saved Assignment Set $file"));

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3