Changeset 25556

Show
Ignore:
Timestamp:
09.05.2012 14:44:48 (7 years ago)
Author:
sjm84
Message:

A minor change

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/basebuildproc.pm

    r25411 r25556  
    606606    }  
    607607     
     608    if(defined $section_infodb{'assocfilepath'}) 
     609    { 
     610        &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_infodb{'assocfilepath'}[0], { 'contains' => [ $section_OID ]}); 
     611    } 
    608612    &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_OID, \%section_infodb); 
    609613         
     
    825829        $afile = &util::filename_cat($self->{'assocdir'}, $archivedir, $assoc_file->[1]); 
    826830    } 
     831     
    827832    &util::hard_link ($assoc_file->[0], $afile, $self->{'verbosity'}); 
    828833    }