Ignore:
Timestamp:
2022-08-24T11:58:42+12:00 (20 months ago)
Author:
davidb
Message:

Tweaks after refactoring. Causes 'use strict' to report error as using variables that don't exist. Changes looked over by Kathy/David, yet to be tested however

File:
1 edited

Legend:

Unmodified
Added
Removed

  • main/trunk/greenstone2/perllib/plugins/EmbeddedMetadataPlugin.pm

    r36373 r36470  
    301301{
    302302    my $self = shift(@_);
    303     my ($file, $filename, $extrametadata, $extrametakeys) = @_;
     303    my ($file, $filename, $extrametadata, $extrametakeys, $extrametafile) = @_;
    304304 
    305305    my %exif_metadata = ();
    … …  
    439439    $file = &util::raw_filename_to_unicode(&util::filename_head($filename), $file);
    440440
    441     $self->store_meta_in_extrametadata($file, $exif_metadata, undef, undef, $extrametakeys, $extrametadata, $extrametafile);
     441    $self->store_meta_in_extrametadata($file, \%exif_metadata, undef, undef, $extrametakeys, $extrametadata, $extrametafile);
    442442
    443443
    … …  
    475475   
    476476    $self->extractEmbeddedMetadata($filename_no_path,$filename_full_path,
    477                    $extrametadata,$extrametakeys);
     477                   $extrametadata,$extrametakeys,$extrametafile);
    478478   
    479479    # also want it considered by other plugins in the metadata_read() pipeline
Note: See TracChangeset for help on using the changeset viewer.