[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.792, Fri Jul 10 01:25:56 2009 UTC revision 1.793, Wed Jul 15 21:22:11 2009 UTC
# Line 698  Line 698 
698      $self->log_update($user,$genome,$gs,"Logged correspondence for $genome [$msg]",$mapping);      $self->log_update($user,$genome,$gs,"Logged correspondence for $genome [$msg]",$mapping);
699  }  }
700    
701    =head3 replaces
702    
703            my $old_genome_id = $fig->replaces($new_genome_id);
704    
705    If the new genome replaces any old ones, as denoted by the REPLACES file contents, that will be returned. Else undef is returned
706    
707    =cut
708    
709    sub replaces {
710            my ($self, $genome) =@_;
711            my $ret;
712            if (-e "$FIG_Config::organisms/$genome/REPLACES") {
713                    $ret=`head -n 1 $FIG_Config::organisms/$genome/REPLACES`;
714                    chomp($ret);
715            }
716            return $ret;
717    }
718    
719  sub replace_genome {  sub replace_genome {
720      my($self,$user,$old_genome,$genomeF, $mapping, $force, $skipnr) = @_;      my($self,$user,$old_genome,$genomeF, $mapping, $force, $skipnr) = @_;
721    

Legend:
Removed from v.1.792  
changed lines
  Added in v.1.793

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3