Changeset 4845
- Timestamp:
- 2003-07-01T15:09:15+12:00 (21 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r4785 r4845 495 495 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding); 496 496 my ($filemeta) = $file =~ /([^\\\/]+)$/; 497 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta)); 497 # how do we know what encoding the filename is in? 498 $doc_obj->add_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta)); 498 499 if ($self->{'cover_image'}) { 499 500 $self->associate_cover_image($doc_obj, $filename); -
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r4821 r4845 220 220 # like when w3mir is used to download a website). 221 221 my $web_url = "http://$file"; 222 $doc_obj->add_ utf8_metadata($cursection, "URL", $web_url);222 $doc_obj->add_metadata($cursection, "URL", $web_url); 223 223 224 224 if ($self->{'description_tags'}) {
Note:
See TracChangeset
for help on using the changeset viewer.