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

gsdl/trunk/perllib/basebuildproc.pm

@@ -225 +225 @@
 }
 
+sub set_infodbtype
+{
+    my $self = shift(@_);
+    my $infodbtype = shift(@_);
+    $self->{'infodbtype'} = $infodbtype;
+}
+
 sub set_index {
     my $self = shift (@_);
@@ -429 +436 @@
         # special case for URL metadata
         if ($field =~ /^URL$/i) {
-            &dbutil::write_infodb_entry($infodb_handle, $value, { 'section' => [ $section_OID ] });
+            &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $value, { 'section' => [ $section_OID ] });
         }
 
@@ -506 +513 @@
     } 
     
-    &dbutil::write_infodb_entry($infodb_handle, $section_OID, \%section_infodb);
+    &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_OID, \%section_infodb);
     
     # output a database entry for the document number
     if ($self->{'db_level'} eq "document") {
-        &dbutil::write_infodb_entry($infodb_handle, $self->{'num_docs'}, { 'section' => [ $doc_OID ] });
+        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_docs'}, { 'section' => [ $doc_OID ] });
     }
     else {
-        &dbutil::write_infodb_entry($infodb_handle, $self->{'num_sections'}, { 'section' => [ $section_OID ] });
+        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $self->{'num_sections'}, { 'section' => [ $section_OID ] });
     }