Changeset 18327 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
- Timestamp:
- 2009-01-07T17:59:22+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
r17033 r18327 195 195 my $encoding = $self->{'encoding'}; 196 196 my $file = $self->{'file'}; 197 my $doc_obj = new doc($filename );197 my $doc_obj = new doc($filename, undef, $self->{'file_rename_method'}); 198 198 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language); 199 199 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);
Note:
See TracChangeset
for help on using the changeset viewer.