Changeset 21661 for main/trunk/greenstone2/perllib/ClassifyTreeModel.pm

Timestamp:

2010-01-27T14:15:47+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed ClassifyTreeNode so it gets the infodbtype from the model, instead of assuming GDBM. Part of making the code less GDBM-specific.

File:

• main/trunk/greenstone2/perllib/ClassifyTreeModel.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/ClassifyTreeModel.pm

@@ -104 +104 @@
   }
 # /** getCollection() **/
+
+sub getInfoDBType()
+{
+  my $self = shift(@_);
+  return $self->{'infodbtype'};
+}
 
 # /** Retrieve a node from this tree based upon its CLID (OID).