[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.101, Tue Jun 1 00:45:38 2004 UTC revision 1.102, Tue Jun 1 19:02:37 2004 UTC
# Line 30  Line 30 
30  sub new {  sub new {
31      my($class) = @_;      my($class) = @_;
32    
33        #
34        # Check to see if we have a FIG_URL environment variable set.
35        # If we do, don't actually create a FIG object, but rather
36        # create a FIGrpc and return that as the return from this constructor.
37        #
38    
39        if ($ENV{FIG_URL})
40        {
41            use FIGrpc;
42            my $figrpc = new FIGrpc($ENV{FIG_URL});
43            return $figrpc;
44        }
45    
46      my $rdbH = new DBrtns;      my $rdbH = new DBrtns;
47      bless {      bless {
48      _dbf  => $rdbH,      _dbf  => $rdbH,

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3