[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.702, Mon Jun 30 20:45:01 2008 UTC revision 1.703, Mon Jul 7 21:19:48 2008 UTC
# Line 581  Line 581 
581          my $x = $result->{$peg};          my $x = $result->{$peg};
582          push(@assertions,map { [$peg,@$_] } @$x);          push(@assertions,map { [$peg,@$_] } @$x);
583      }      }
584    
585      return sort { &FIG::by_fig_id($a->[0],$b->[0]) } @assertions;      return sort { &FIG::by_fig_id($a->[0],$b->[0]) } @assertions;
586  }  }
587  ###############  ###############
# Line 17434  Line 17435 
17435      return ($version, $curator, $pedigree, $roles);      return ($version, $curator, $pedigree, $roles);
17436  }  }
17437    
17438    sub curation_history {
17439        my ( $self, $ssa ) = @_;
17440        $ssa =~ s/[ \/]/_/g;
17441        my $curhash;
17442    
17443        if (open(CUR, "<$FIG_Config::data/Subsystems/$ssa/curation.log")) {
17444            while ( <CUR> ) {
17445                my ( $ts, $cur, $what ) = split( "\t", $_ );
17446                $curhash->{ $ts }->{ 'curator' } = $cur;
17447                $curhash->{ $ts }->{ 'what' } = $what;
17448            }
17449        }
17450        return $curhash;
17451    }
17452    
17453  =head3 subsystems_for_genome  =head3 subsystems_for_genome
17454    
17455  usage: @subsystems = $fig->subsystems_for_genome($genome, $all)  usage: @subsystems = $fig->subsystems_for_genome($genome, $all)

Legend:
Removed from v.1.702  
changed lines
  Added in v.1.703

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3