Ignore:
Timestamp:
2000-02-03T10:06:40+13:00 (24 years ago)
Author:
sjboddie
Message:

tweaked the way associated files are handled at build time - some
individual plugins may still need catching up.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/GMLPlug.pm

    r863 r900  
    171171    # add the associated files
    172172    $assoc_files = $doc_obj->get_metadata($doc_obj->get_top_section(), "gsdlassocfile");
    173     my ($assoc_file_info);
     173    my ($assoc_file_info, $afile);
    174174    foreach $assoc_file_info (@$assoc_files) {
    175175        my ($assoc_file, $mime_type, $dir) = split (":", $assoc_file_info);
    176         $dir = "" unless defined $dir;
     176        if (defined $dir && $dir =~ /\w/) {
     177        $afile = &util::filename_cat($dir, $assoc_file);
     178        } else {
     179        $afile = $assoc_file;
     180        }
    177181        $doc_obj->associate_file(&util::filename_cat($parent_dir, $assoc_file),
    178                      &util::filename_cat($dir, $assoc_file), $mime_type);
     182                     $afile, $mime_type);
    179183    }
    180184    $doc_obj->delete_metadata($doc_obj->get_top_section(), "gsdlassocfile");
Note: See TracChangeset for help on using the changeset viewer.