[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.54, Wed Dec 8 16:56:24 2004 UTC revision 1.55, Sun Jan 23 15:43:49 2005 UTC
# Line 510  Line 510 
510                  $cgi->checkbox(-label => 'Save Assignments: ', -name => 'save_assignments', -value => 1),                  $cgi->checkbox(-label => 'Save Assignments: ', -name => 'save_assignments', -value => 1),
511                  $cgi->br,                  $cgi->br,
512                  $cgi->submit('Extract Assignments'),                  $cgi->submit('Extract Assignments'),
513                  $cgi->br, $cgi->br,                  $cgi->br, $cgi->br, $cgi->br,
514                  "Alternatively, you can generate a set of assignments as translations of existing assignments.",                  "Alternatively, you can generate a set of assignments as translations of existing assignments.",
515                  $cgi->br,                  "To do so, you need to make sure that you fill in the <b>Save as user</b> field just above.  You ",
516                    "should use something like <b>RossO</b> (leave out the <b>master:</b>).  When you look at the assignments (and decide which ",
517                    "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>)",
519                    $cgi->br,$cgi->br,
520                  "From: ",$cgi->textfield(-name => "from_func", -size => 60),                  "From: ",$cgi->textfield(-name => "from_func", -size => 60),
521                  $cgi->br,                  $cgi->br,
522                  "To:&nbsp;&nbsp;&nbsp;&nbsp; ",$cgi->textfield(-name => "to_func", -size => 60),                  "To:&nbsp;&nbsp;&nbsp;&nbsp; ",$cgi->textfield(-name => "to_func", -size => 60),
# Line 528  Line 532 
532                  $cgi->hr,                  $cgi->hr,
533                  $cgi->h2('Process Saved Assignments Sets'),                  $cgi->h2('Process Saved Assignments Sets'),
534                  $cgi->start_form(-action => "assignments.cgi"),                  $cgi->start_form(-action => "assignments.cgi"),
535                    "Here you should include the <b>master:</b>.  Thus use something like <b>master:RossO</b>",$cgi->br,
536                    $cgi->br,
537                  "Enter user: ",                  "Enter user: ",
538                  $cgi->textfield(-name => "user", -size => 20),                  $cgi->textfield(-name => "user", -size => 20),
539                  $cgi->submit('Process Assignment Sets'),                  $cgi->submit('Process Assignment Sets'),
# Line 1122  Line 1128 
1128          my $file = &FIG::epoch_to_readable(time) . ":$user:translation";          my $file = &FIG::epoch_to_readable(time) . ":$user:translation";
1129          if (open(TMP,">$FIG_Config::data/Assignments/$user/$file"))          if (open(TMP,">$FIG_Config::data/Assignments/$user/$file"))
1130          {          {
1131              my($peg,$from_funcQ,$to_funcQ,$func,$to);              my($peg,$func);
             $from_funcQ = quotemeta $from_func;  
1132    
1133              foreach $peg ($fig->seqs_with_role($from_func))              foreach $peg ($fig->seqs_with_role($from_func))
1134              {              {
1135                  if ($peg =~ /^fig\|/)                  if ($peg =~ /^fig\|/)
1136                  {                  {
1137                      $func = $fig->function_of($peg);                      $func = $fig->function_of($peg);
1138                      $to   = $func;                      if ($func eq $from_func)
                     if ($to   =~ s/$from_funcQ/$to_func/)  
1139                      {                      {
1140                          print TMP "$peg\t$to\n";                          print TMP "$peg\t$to_func\n";
1141                      }                      }
1142                  }                  }
1143              }              }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3