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

Diff of /FigKernelPackages/ANNO.pm

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

revision 1.8, Thu Oct 28 19:12:11 2010 UTC revision 1.9, Wed Feb 23 21:45:52 2011 UTC
# Line 26  Line 26 
26  use ServerThing;  use ServerThing;
27    
28  sub new {  sub new {
29      my ($class) = @_;      my ($class, $sapDB) = @_;
30      # Create the sapling object.      # Create the sapling object.
31      my $sap = ERDB::GetDatabase('Sapling');      my $sap = $sapDB || ERDB::GetDatabase('Sapling');
32      # Create the server object.      # Create the server object.
33      my $retVal = { db => $sap };      my $retVal = { db => $sap };
34      # Bless and return it.      # Bless and return it.

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3