Changeset 4845

Timestamp:

2003-07-01T15:09:15+12:00 (21 years ago)

Author:

jrm21

Message:

use add_metadata instead of add_utf8_metadata for Source and URL
metadata. If it's already utf8 it might get corrupted, but that's better
than making invalid xml.

Location:

trunk/gsdl/perllib/plugins

Files:

• BasPlug.pm (modified) (1 diff)
• HTMLPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -495 +495 @@
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);
     my ($filemeta) = $file =~ /([^\\\/]+)$/;
-    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
+    # how do we know what encoding the filename is in?
+    $doc_obj->add_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
     if ($self->{'cover_image'}) {
     $self->associate_cover_image($doc_obj, $filename);

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -220 +220 @@
     # like when w3mir is used to download a website).
     my $web_url = "http://$file";
-    $doc_obj->add_utf8_metadata($cursection, "URL", $web_url);
+    $doc_obj->add_metadata($cursection, "URL", $web_url);
 
     if ($self->{'description_tags'}) {