Changeset 11333


Ignore:
Timestamp:
2006-03-13T12:17:49+13:00 (18 years ago)
Author:
mdewsnip
Message:

Now consistently sets $self->{'gli'} in plugin::begin.

Location:
trunk/gsdl
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/bin/script/import.pl

    r10481 r11333  
    443443    }
    444444
    445     &plugin::begin($pluginfo, $importdir, $processor, $maxdocs);
     445    &plugin::begin($pluginfo, $importdir, $processor, $maxdocs, $gli);
    446446
    447447    # process the import directory

  • trunk/gsdl/perllib/plugin.pm

    r10579 r11333  
    129129
    130130sub begin {
    131     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
    132    
    133 
     131    my ($pluginfo, $base_dir, $processor, $maxdocs, $gli) = @_;
     132
     133    map { $_->{'gli'} = $gli; } @$pluginfo;
    134134    map { $_->begin($pluginfo, $base_dir, $processor, $maxdocs); } @$pluginfo;
    135135}

  • trunk/gsdl/perllib/plugins/OpenDocumentPlug.pm

    r11090 r11333  
    157157    $self->{'processor'} = $processor;
    158158    $self->{'metadata'} = $metadata;
    159     $self->{'gli'} = $gli;
    160    
    161159   
    162160    eval{

  • trunk/gsdl/perllib/plugins/PagedImgPlug.pm

    r11249 r11333  
    592592    $self->{'processor'} = $processor;
    593593    $self->{'metadata'} = $metadata;
    594     $self->{'gli'} = $gli;
     594
    595595    eval {
    596596        $@ = "";

  • trunk/gsdl/perllib/plugins/XMLPlug.pm

    r11090 r11333  
    167167    $self->{'processor'} = $processor;
    168168    $self->{'metadata'} = $metadata;
    169     $self->{'gli'} = $gli;
    170169
    171170    eval {
Note: See TracChangeset for help on using the changeset viewer.