Changeset 20831

Show
Ignore:
Timestamp:
21.10.2009 16:11:13 (11 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

Files:
1 modified

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", "");