Changeset 7508
- Timestamp:
- 2004-05-31T15:09:46+12:00 (20 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r7504 r7508 436 436 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language); 437 437 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding); 438 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");438 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 439 439 my ($filemeta) = $file =~ /([^\\\/]+)$/; 440 440 # how do we know what encoding the filename is in? -
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r7362 r7508 309 309 $self->associate_cover_image($doc_obj, $filename); 310 310 } 311 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");311 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 312 312 # include any metadata passed in from previous plugins 313 313 # note that this metadata is associated with the top level section -
trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm
r7362 r7508 377 377 $self->associate_cover_image($doc_obj, $filename); 378 378 } 379 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");379 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 380 380 381 381 -
trunk/gsdl/perllib/plugins/DBPlug.pm
r6408 r7508 204 204 $self->associate_cover_image($doc_obj, $filename); 205 205 } 206 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");206 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 207 207 208 208 -
trunk/gsdl/perllib/plugins/FOXPlug.pm
r7458 r7508 243 243 my $doc_obj = new doc ($file, "indexed_doc"); 244 244 $doc_obj->set_OIDtype ($processor->{'OIDtype'}); 245 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");245 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 246 246 247 247 my $section = $doc_obj->get_top_section(); -
trunk/gsdl/perllib/plugins/HBPlug.pm
r6408 r7508 264 264 my $bookcover = &util::filename_cat($base_dir, $file, "$jobnumber.jpg"); 265 265 $doc_obj->associate_file($bookcover, "cover.jpg", "image/jpeg"); 266 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");266 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 267 267 268 268 my $cursection = $doc_obj->get_top_section(); -
trunk/gsdl/perllib/plugins/ImagePlug.pm
r7506 r7508 363 363 my $doc_obj = new doc ($filename, "indexed_doc"); 364 364 $doc_obj->set_OIDtype ($processor->{'OIDtype'}); 365 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");365 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 366 366 367 367 #run convert to get the thumbnail and extract size and type info -
trunk/gsdl/perllib/plugins/MP3Plug.pm
r7506 r7508 333 333 ## $doc_obj->set_OIDtype ($processor->{'OIDtype'}); 334 334 $doc_obj->set_OIDtype ("incremental"); # this is done to avoid hashing content of file 335 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");335 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 336 336 337 337 # associate the file with the document -
trunk/gsdl/perllib/plugins/OAIPlug.pm
r7362 r7508 140 140 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language); 141 141 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding); 142 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");142 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 143 143 144 144 # include any metadata passed in from previous plugins -
trunk/gsdl/perllib/plugins/RogPlug.pm
r6408 r7508 177 177 my $doc_obj = new doc ($file, "indexed_doc"); 178 178 my $cursection = $doc_obj->get_top_section(); 179 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");179 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 180 180 181 181 my $title = $song->{'title'}; -
trunk/gsdl/perllib/plugins/SplitPlug.pm
r7362 r7508 182 182 $self->associate_cover_image($doc_obj, $filename); 183 183 } 184 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");184 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 185 185 # Calculate a "base" document ID. 186 186 if (!defined $id) { -
trunk/gsdl/perllib/plugins/UnknownPlug.pm
r7506 r7508 188 188 my $doc_obj = new doc ($filename, "indexed_doc"); 189 189 $doc_obj->set_OIDtype ($processor->{'OIDtype'}); 190 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");190 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 191 191 $doc_obj->add_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($file)); # set the filename as Source metadata to be consistent with other plugins 192 192 -
trunk/gsdl/perllib/plugins/XMLPlug.pm
r7362 r7508 240 240 $self->{'doc_obj'}->set_OID(); 241 241 242 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), " $self->{'plugin_type'}", "1");242 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}"); 243 243 244 244 # process the document
Note:
See TracChangeset
for help on using the changeset viewer.