Changeset 23352 for main/trunk/greenstone2/perllib/plugins/ReadXMLFile.pm
- Timestamp:
- 2010-11-28T23:24:22+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ReadXMLFile.pm
r23349 r23352 369 369 my $self = shift(@_); 370 370 371 my $metadata = $self->{'metadata'}; 371 my $metadata = $self->{'metadata'}; 372 my $filename_full_path = $self->{'filename'}; 372 373 373 374 # create a new document 374 my $doc_obj = $self->{'doc_obj'} = new doc ($ self->{'filename'}, "indexed_doc", $self->{'file_rename_method'});375 my $doc_obj = $self->{'doc_obj'} = new doc ($filename_full_path, "indexed_doc", $self->{'file_rename_method'}); 375 376 376 377 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 377 378 378 379 379 my $filename_no_path = $self->{'filename_no_path'}; 380 my $plugin_filename_encoding = $self->{'filename_encoding'}; 380 381 my $filename_encoding = $self->deduce_filename_encoding($filename_no_path,$metadata,$plugin_filename_encoding); 381 382 382 $self->set_Source_metadata($doc_obj, $filename_ no_path, $filename_encoding);383 $self->set_Source_metadata($doc_obj, $filename_full_path, $filename_encoding); 383 384 384 385 # do we want other auto metadata here (see BasePlugin.read_into_doc_obj)
Note:
See TracChangeset
for help on using the changeset viewer.