[Bio] / FortyEight / pull_sims_from_database.pl Repository:
ViewVC logotype

Diff of /FortyEight/pull_sims_from_database.pl

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

revision 1.1, Thu Oct 29 21:44:59 2009 UTC revision 1.2, Tue Jan 19 00:08:14 2010 UTC
# Line 94  Line 94 
94          while (my $r = $sth->fetchrow_arrayref())          while (my $r = $sth->fetchrow_arrayref())
95          {          {
96              my($file, $seek, $len) = @$r;              my($file, $seek, $len) = @$r;
97              $file =~ s,^/disks/space0,,;              if ($file !~ m,^/,)
98                {
99                    $file = "$FIG_Config::fig_disk/$file";
100                }
101    
102              my $fh = $fig->openF($file);              my $fh = $fig->openF($file);
103              push @sims, map  { bless [ split( /\t/, $_ ), 'blastp'], 'Sim' }              push @sims, map  { bless [ split( /\t/, $_ ), 'blastp'], 'Sim' }
104                       @{ &FIG::read_block( $fh, $seek, $len - 1 ) };                       @{ &FIG::read_block( $fh, $seek, $len - 1 ) };

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3