[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.689, Fri May 23 08:43:55 2008 UTC revision 1.690, Sat May 24 23:09:40 2008 UTC
# Line 19077  Line 19077 
19077      if ($self->is_deleted_fid($fid)) { return }      if ($self->is_deleted_fid($fid)) { return }
19078      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
19079    
19080      ($fid =~ /^fig\|\d+\.\d+\.([^.]+)\.\d+$/) || confess "bad fid $fid";      ($fid =~ /^fig\|(\d+\.\d+)\.([^.]+)\.\d+$/) || confess "bad fid $fid";
19081      my $type = $1;      my $genome = $1;
19082        my $type   = $2;
19083    
19084      $rdbH->SQL("INSERT INTO fid_links ( fid,link ) VALUES ( \'$fid\',\'$link\' )");      $rdbH->SQL("INSERT INTO fid_links ( fid,link ) VALUES ( \'$fid\',\'$link\' )");
19085      if (($fid =~ /^fig\|(\d+\.\d+)\.fid\.\d+$/) && open(TMP,">>$FIG_Config::organisms/$1/Features/$type/links"))      if ( $genome && $type && open( TMP, ">>$FIG_Config::organisms/$genome/Features/$type/links" ) )
19086      {      {
19087          print TMP "$fid\t$link\n";          print TMP "$fid\t$link\n";
19088          close(TMP);          close(TMP);

Legend:
Removed from v.1.689  
changed lines
  Added in v.1.690

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3