Changeset 4845 for trunk/gsdl/perllib/plugins/BasPlug.pm

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.

File:

• trunk/gsdl/perllib/plugins/BasPlug.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);