| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch