[Bio] / FigKernelScripts / rapid_propagation4.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/rapid_propagation4.pl

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

revision 1.3, Sun Jan 16 18:30:12 2011 UTC revision 1.4, Sun Jan 16 19:03:36 2011 UTC
# Line 555  Line 555 
555                                        $prot->{sequence}, qq($tmpD/called_by), q(find_special_proteins));                                        $prot->{sequence}, qq($tmpD/called_by), q(find_special_proteins));
556          if ($fid) {          if ($fid) {
557              print SPECIAL qq($fid\t$type\n);              print SPECIAL qq($fid\t$type\n);
558              $figV->assign_function($fid, q(master:rast), $func, qq($tmpD/proposed_functions));              $figV->assign_function($fid, q(master:rast), $func, qq($tmpD/assigned_functions));
559          }          }
560          else {          else {
561              die (qq(Could not add feature=$fid\n), Dumper($prot));              die (qq(Could not add feature=$fid\n), Dumper($prot));
# Line 908  Line 908 
908              if (defined($assignmentsH->{$prot_id}) && defined($func = $assignmentsH->{$prot_id}->[0])) {              if (defined($assignmentsH->{$prot_id}) && defined($func = $assignmentsH->{$prot_id}->[0])) {
909                  print FOUND (join(qq(\t), ( $fid, @ { $assignmentsH->{$prot_id} })), qq(\n));                  print FOUND (join(qq(\t), ( $fid, @ { $assignmentsH->{$prot_id} })), qq(\n));
910    
911                  if (not $figV->assign_function($fid, q(master:rast), $func, 2, qq($tmpD/proposed_functions))) {                  if (not $figV->assign_function($fid, q(master:rast), $func, 2, qq($tmpD/asigned_functions))) {
912                      die (qq(Could not add function for prot_id=$prot_id, fid=$fid, func=$func\n),                      die (qq(Could not add function for prot_id=$prot_id, fid=$fid, func=$func\n),
913                           Dumper($loc_of_protH, $seq_of_protH, $assignmentsH)                           Dumper($loc_of_protH, $seq_of_protH, $assignmentsH)
914                           );                           );

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3