Changeset 15705 for gsdl/trunk/perllib/classify.pm

Timestamp:

2008-05-26T16:47:17+12:00 (16 years ago)

Author:

mdewsnip

Message:

Merged the one lonely function in unbuildutil into dbutil, as it is GDBM-specific.

File:

• gsdl/trunk/perllib/classify.pm (modified) (2 diffs)

gsdl/trunk/perllib/classify.pm

@@ -31 +31 @@
 require AllList;
 
+use dbutil;
 use gsprintf;
 use strict; no strict 'subs';
-use unbuildutil;
 
 
@@ -233 +233 @@
 sub reconstruct_doc_objs_metadata
 {
-    my ($fulldbname) = @_;
+    my ($infodb_file_path) = @_;
 
     my %database_recs;
-    &unbuildutil::read_gdbm($fulldbname, \%database_recs);
-
+    &dbutil::read_infodb_file($infodb_file_path, \%database_recs);
 
     # dig out top level doc sections