Changeset 20831


Ignore:
Timestamp:
2009-10-21T16:11:13+13:00 (13 years ago)
Author:
kjdon
Message:

added can_process_this_file sub - want to base test on filename, not on XML doctype as our file is a zip file

File:
1 edited

Legend:

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

    r16955 r20831  
    8383   
    8484    return bless $self, $class;
     85}
     86
     87# want to use BasePlugin's version of this, not ReadXMLFile's
     88sub can_process_this_file {
     89    my $self = shift(@_);
     90   
     91    return $self->BasePlugin::can_process_this_file(@_);
    8592}
    8693
     
    176183    $self->{'file'} = $file;
    177184    $self->{'filename'} = $filename_full_path;
     185    $self->{'filename_no_path'} = $filename_no_path;
    178186    $self->{'processor'} = $processor;
    179187    $self->{'metadata'} = $metadata;
     
    240248    my $self = shift(@_);
    241249    my ($filename,$file_only) = @_;
    242  
     250   
    243251    my $doc_obj = $self->{'doc_obj'}; 
    244 
    245252    my $mimetype = $self->get_mimetype();
    246253
    247254    $file_only = $doc_obj->get_assocfile_from_sourcefile(); # url-encoded filename in archives
    248    
    249255    $doc_obj->associate_file($filename, $file_only, $mimetype, "");
    250256    $doc_obj->associate_file("Thumbnails/thumbnail.png", "thumbnail.png", "image/png", "");
Note: See TracChangeset for help on using the changeset viewer.