Changeset 15725 for gsdl/trunk/perllib/mgppbuilder.pm

Timestamp:

2008-05-27T15:02:16+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Added $infodb_type as first argument to all the dbutil functions.

File:

• gsdl/trunk/perllib/mgppbuilder.pm (modified) (1 diff)

gsdl/trunk/perllib/mgppbuilder.pm

@@ -708 +708 @@
     $self->get_collection_meta_sets(\%collection_infodb);
     $self->get_collection_meta_indexes(\%collection_infodb);
-    &dbutil::write_infodb_entry($infodb_handle, "collection", \%collection_infodb);
+    &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, "collection", \%collection_infodb);
 }