[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.734, Wed Nov 12 16:03:53 2008 UTC revision 1.735, Wed Nov 12 18:22:42 2008 UTC
# Line 15103  Line 15103 
15103    
15104  =item rid  =item rid
15105    
15106  ID of the raction whose compounds are desired.  ID of the reaction whose compounds are desired.
15107    
15108  =item which  =item which
15109    
# Line 22399  Line 22399 
22399      }      }
22400  }  }
22401    
22402  =head3 model_directory  =head3 scenario_directory
22403    
22404      FIG->model_directory($organism);      FIG->scenario_directory($organism);
22405    
22406  Returns the model directory of an organism. If $FIG_Config::models  Returns the scenario directory of an organism.
 is set, use that, otherwise default to $FIG_Config::organisms.  
22407    
22408  =over 4  =over 4
22409    
22410  =item $organism  =item $organism
22411    
22412  The seed-taxonomy id of the organism, e.g. 83333.1. If you pass the  The seed-taxonomy id of the organism, e.g. 83333.1.
 string 'All', you will get the directory for the global model.  
22413    
22414  =back  =back
22415    
22416  =cut  =cut
22417    
22418  sub model_directory {  sub scenario_directory {
22419    my ($self, $organism) = @_;    my ($self, $organism) = @_;
22420    
22421    my $directory = "$FIG_Config::organisms";    my $directory = "$FIG_Config::organisms";
22422    
22423    if ($FIG_Config::models ne '')    $directory .= "/$organism/Scenarios";
   {  
       $directory = "$FIG_Config::models";  
   }  
   
   $directory .= "/$organism" if defined($organism);  
22424    
22425    return $directory;    return $directory;
22426  }  }

Legend:
Removed from v.1.734  
changed lines
  Added in v.1.735

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3