Changeset 21564 for main/trunk/greenstone2/perllib/classify.pm

Timestamp:

2010-01-21T15:59:35+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed lots of occurrences of "GDBM" in comments, variable names and function names, where the code isn't GDBM-specific. Part of making the code less GDBM-specific.

File:

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

main/trunk/greenstone2/perllib/classify.pm

@@ -204 +204 @@
     # but do want things like hastxt and archivedir
     my @items = split /@/, $doc_db_hash->{$key};
-    # metadata is all from gdbm so should already be in utf8
+    # metadata is all from the info database so should already be in utf8
     map {$doc_obj->add_utf8_metadata ($cursection, $key, $_); } @items;
 
@@ -214 +214 @@
 sub db_rec_to_hash {
     
-    my ($gdb_str_ref) = @_;
+    my ($infodb_str_ref) = @_;
 
     my $hashref = {};
 
-    my @entries = split(/\n/, $gdb_str_ref);
+    my @entries = split(/\n/, $infodb_str_ref);
     foreach my $entry (@entries) {
     my($key, $value) = ($entry =~ /^<([^>]*)>(.*?)$/ );