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

Diff of /FigKernelPackages/Observation.pm

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

revision 1.7, Tue Jun 19 21:55:39 2007 UTC revision 1.8, Tue Jun 19 22:11:25 2007 UTC
# Line 442  Line 442 
442    
443          if($domain_classes->{$parts[0]}){          if($domain_classes->{$parts[0]}){
444              my $val = @$attr_ref[2];              my $val = @$attr_ref[2];
445              if($val =~/^(\d+\.\d+);(\d+)-(\d+)/){              if($val =~/^(\d+\.\d+|0\.0);(\d+)-(\d+)/){
446                  my $raw_evalue = $1;                  my $raw_evalue = $1;
447                    my $from = $2;
448                    my $to = $3;
449                  my $evalue;                  my $evalue;
450                  if($raw_evalue =~/(\d+)\.(\d+)/){                  if($raw_evalue =~/(\d+)\.(\d+)/){
451                      my $part2 = 1000 - $1;                      my $part2 = 1000 - $1;
# Line 451  Line 453 
453                      $evalue = $part1."e-".$part2;                      $evalue = $part1."e-".$part2;
454                  }                  }
455                  else{                  else{
456                      $evalue = "0";                      $evalue = "0.0";
457                  }                  }
458    
                 my $from = $2;  
                 my $to = $3;  
459                  my $dataset = {'class' => $class,                  my $dataset = {'class' => $class,
460                                 'acc' => $key,                                 'acc' => $key,
461                                 'type' => "dom" ,                                 'type' => "dom" ,

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3