Changeset 25556 for main/trunk/greenstone2/perllib/basebuildproc.pm

Timestamp:

2012-05-09T14:44:48+12:00 (12 years ago)

Author:

sjm84

Message:

A minor change

File:

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

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -606 +606 @@
     } 
     
+    if(defined $section_infodb{'assocfilepath'})
+    {
+        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_infodb{'assocfilepath'}[0], { 'contains' => [ $section_OID ]});
+    }
     &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_OID, \%section_infodb);
         
@@ -825 +829 @@
         $afile = &util::filename_cat($self->{'assocdir'}, $archivedir, $assoc_file->[1]);
     }
+    
     &util::hard_link ($assoc_file->[0], $afile, $self->{'verbosity'});
     }