Changeset 15725 for gsdl/trunk/perllib/classify.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/classify.pm (modified) (7 diffs)

gsdl/trunk/perllib/classify.pm

@@ -233 +233 @@
 sub reconstruct_doc_objs_metadata
 {
-    my ($infodb_file_path) = @_;
+    my $infodb_type = shift(@_);
+    my $infodb_file_path = shift(@_);
 
     my %database_recs;
-    &dbutil::read_infodb_file($infodb_file_path, \%database_recs);
+    &dbutil::read_infodb_file($infodb_type, $infodb_file_path, \%database_recs);
 
     # dig out top level doc sections
@@ -293 +294 @@
 sub output_classify_info
 {
-    my ($classifiers, $infodb_handle, $remove_empty_classifications, $gli) = @_;
+    my ($classifiers, $infodb_type, $infodb_handle, $remove_empty_classifications, $gli) = @_;
 
     $gli = 0 unless defined $gli;
@@ -313 +314 @@
     }
 
-    &print_classify_info ($infodb_handle, $classifyinfo, "", $remove_empty_classifications);
+    &print_classify_info($infodb_type, $infodb_handle, $classifyinfo, "", $remove_empty_classifications);
 }
 
@@ -319 +320 @@
 sub print_classify_info
 {
-    my ($infodb_handle, $classifyinfo, $OID, $remove_empty_classifications) = @_;
+    my ($infodb_type, $infodb_handle, $classifyinfo, $OID, $remove_empty_classifications) = @_;
 
     $OID =~ s/^\.+//; # just for good luck
@@ -381 +382 @@
             #rint STDERR "Result: \"" . join(";", @{$clids}) . "\"\n";
             
-        &print_classify_info ($infodb_handle, $tempinfo, $tempinfo->{'classifyOID'},
+        &print_classify_info ($infodb_type, $infodb_handle, $tempinfo, $tempinfo->{'classifyOID'},
                   $remove_empty_classifications);
     } elsif (defined ($tempinfo->{'OID'})) {
@@ -426 +427 @@
                 #rint STDERR "Result: \"" . join(";", @{$clids}) . "\"\n";
         
-        &print_classify_info ($infodb_handle, $tempinfo, "$OID.$next_subOID",
+        &print_classify_info ($infodb_type, $infodb_handle, $tempinfo, "$OID.$next_subOID",
                       $remove_empty_classifications);
         $next_subOID++;
@@ -438 +439 @@
     if ($mdoffset_text !~ m/^;+$/);
     
-    &dbutil::write_infodb_entry($infodb_handle, $OID, \%classify_infodb);
+    &dbutil::write_infodb_entry($infodb_type, $infodb_handle, $OID, \%classify_infodb);
 }