Changeset 18327
- Timestamp:
- 2009-01-07T17:59:22+13:00 (15 years ago)
- Location:
- gsdl/trunk/perllib/plugins
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ConvertToRogPlugin.pm
r17026 r18327 334 334 #my $doc_obj = new doc ($conv_filename, "indexed_doc"); 335 335 # the original filename is used now 336 my $doc_obj = new doc ($filename_full_path, "indexed_doc" );336 my $doc_obj = new doc ($filename_full_path, "indexed_doc", $self->{'file_rename_method'}); 337 337 # the converted filename is set separately 338 338 $doc_obj->set_converted_filename($conv_filename); -
gsdl/trunk/perllib/plugins/DatabasePlugin.pm
r17744 r18327 255 255 256 256 # create a new document 257 my $doc_obj = new doc ($filename_full_path, "indexed_doc" );257 my $doc_obj = new doc ($filename_full_path, "indexed_doc", $self->{'file_rename_method'}); 258 258 259 259 my $cursection = $doc_obj->get_top_section(); -
gsdl/trunk/perllib/plugins/FOXPlugin.pm
r17026 r18327 269 269 270 270 # create a new document 271 my $doc_obj = new doc ($file, "indexed_doc" );271 my $doc_obj = new doc ($file, "indexed_doc", $self->{'file_rename_method'}); 272 272 273 273 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); -
gsdl/trunk/perllib/plugins/HBPlugin.pm
r17026 r18327 240 240 241 241 # create a new document 242 my $doc_obj = new doc ($file, "indexed_doc" );242 my $doc_obj = new doc ($file, "indexed_doc", $self->{'file_rename_method'}); 243 243 244 244 # copy the book cover if it exists -
gsdl/trunk/perllib/plugins/HTMLImagePlugin.pm
r17744 r18327 422 422 print $outhandle "HTMLImagePlugin: extracting $filepath\n" 423 423 if ( $self->{'verbosity'} > 1 ); 424 $doc_obj = new doc ("", "indexed_doc" );424 $doc_obj = new doc ("", "indexed_doc", $self->{'file_rename_method'}); 425 425 $section = $doc_obj->get_top_section(); 426 426 my $prevpos = ( $i == 0 ? 0 : $imgs->{$fplist[$i - 1]}{'pos'}); -
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); -
gsdl/trunk/perllib/plugins/OAIPlugin.pm
r17591 r18327 262 262 263 263 # create a new document 264 my $doc_obj = new doc ($filename, "indexed_doc" );264 my $doc_obj = new doc ($filename, "indexed_doc", $self->{'file_rename_method'}); 265 265 my $top_section = $doc_obj->get_top_section; 266 266 my $plugin_type = $self->{'plugin_type'}; -
gsdl/trunk/perllib/plugins/PagedImagePlugin.pm
r17822 r18327 479 479 480 480 # create a new document 481 $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc" );481 $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc", $self->{'file_rename_method'}); 482 482 # TODO is file filenmae_no_path?? 483 483 $self->set_initial_doc_fields($self->{'doc_obj'}, $self->{'file'}, $self->{'processor'}); … … 529 529 my ($filename_full_path, $dir, $filename_no_path, $processor) = @_; 530 530 531 my $doc_obj = new doc ($filename_full_path, "indexed_doc" );531 my $doc_obj = new doc ($filename_full_path, "indexed_doc", $self->{'file_rename_method'}); 532 532 $self->set_initial_doc_fields($doc_obj, $filename_no_path, $processor); 533 533 my $topsection = $doc_obj->get_top_section(); -
gsdl/trunk/perllib/plugins/ReadXMLFile.pm
r17322 r18327 368 368 369 369 # create a new document 370 $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc" );370 $self->{'doc_obj'} = new doc ($self->{'filename'}, "indexed_doc", $self->{'file_rename_method'}); 371 371 $self->{'doc_obj'}->add_utf8_metadata($self->{'doc_obj'}->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 372 372 -
gsdl/trunk/perllib/plugins/RogPlugin.pm
r17026 r18327 174 174 175 175 # create a new document 176 my $doc_obj = new doc ($file, "indexed_doc" );176 my $doc_obj = new doc ($file, "indexed_doc", $self->{'file_rename_method'}); 177 177 my $cursection = $doc_obj->get_top_section(); 178 178 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); -
gsdl/trunk/perllib/plugins/SplitTextFile.pm
r17300 r18327 233 233 234 234 # create a new document 235 my $doc_obj = new doc ($filename_full_path, "indexed_doc" );235 my $doc_obj = new doc ($filename_full_path, "indexed_doc", $self->{'file_rename_method'}); 236 236 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language); 237 237 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);
Note:
See TracChangeset
for help on using the changeset viewer.