[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.161, Fri Oct 1 19:48:37 2004 UTC revision 1.162, Mon Oct 4 15:56:10 2004 UTC
# Line 13  Line 13 
13  use FIG_Config;  use FIG_Config;
14  use tree_utilities;  use tree_utilities;
15  use Subsystem;  use Subsystem;
16    use SeedDas;
17    
18  #  #
19  # Conditionally evaluate this in case its prerequisites are not available.  # Conditionally evaluate this in case its prerequisites are not available.
# Line 7775  Line 7776 
7776  ######### End FIG::Job ##  ######### End FIG::Job ##
7777    
7778  package FIG;  package FIG;
7779    
7780    #
7781    # DAS support.
7782    #
7783    
7784    =pod
7785    
7786    =head1 init_das
7787    
7788    Initialize a DAS data query object.
7789    
7790    =cut
7791    
7792    sub init_das
7793    {
7794        my($self, $url, $dsn) = @_;
7795    
7796        my $das_data_dir = "$FIG_Config::global/DAS";
7797    
7798        if (-d $das_data_dir)
7799        {
7800            return new SeedDas($self,$das_data_dir, $url, $dsn);
7801        }
7802        else
7803        {
7804            return undef;
7805        }
7806    }
7807  1;  1;

Legend:
Removed from v.1.161  
changed lines
  Added in v.1.162

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3