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

Diff of /FigKernelPackages/FIGV.pm

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

revision 1.25, Fri Apr 13 23:38:37 2007 UTC revision 1.26, Fri May 25 16:46:44 2007 UTC
# Line 62  Line 62 
62    return $_[0]->{_orgdir};    return $_[0]->{_orgdir};
63  }  }
64    
   
65  #  #
66  # Redirect any method invocations that we don't implement out to the  # Redirect any method invocations that we don't implement out to the
67  # underlying FIG object.  # underlying FIG object.
# Line 1526  Line 1525 
1525      return &FIG::taxonomic_groups($tree);      return &FIG::taxonomic_groups($tree);
1526  }  }
1527    
1528    =head3 scenario_directory
1529    
1530    C<< FIG->scenario_directory($organism); >>
1531    
1532    Returns the scenario directory of an organism.
1533    
1534    =over 4
1535    
1536    =item $organism
1537    
1538    The seed-taxonomy id of the organism, e.g. 83333.1. If you pass the
1539    string 'All', you will get the directory for the global model.
1540    
1541    =back
1542    
1543    =cut
1544    
1545    sub scenario_directory {
1546      my ($self, $organism) = @_;
1547    
1548      my $directory = "$FIG_Config::var/Models/";
1549    
1550      if ($organism eq $self->{_genome}) {
1551        $directory = $self->{_orgdir} . "/Models";
1552      } else {
1553        $directory .= $organism;
1554      }
1555    
1556      return $directory;
1557    }
1558    
1559  1;  1;

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3