Changeset 7701

Timestamp:

2004-07-05T11:22:44+12:00 (20 years ago)

Author:

jrm21

Message:

allow utf-8 as an alias for utf8

File:

• trunk/gsdl/perllib/plugins/DBPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/DBPlug.pm

@@ -242 +242 @@
     my $cursection = $doc_obj->get_top_section();
 
+    # if $language not set in config file, will use BasPlug's default
     if (defined($language)) {
-        # if not set in config file, will use BasPlug's default
         $doc_obj->add_utf8_metadata($cursection, "Language", $language);
     }
+    # if $encoding not set in config file, will use BasPlug's default
     if (defined($encoding)) {
-        # if not set in config file, will use BasPlug's default
+        # allow some common aliases
+        if ($encoding =~ m/^utf[-_]8$/i) {$encoding="utf8"}
+        $encoding =~ s/-/_/g; # greenstone uses eg iso_8859_1
         $doc_obj->add_utf8_metadata($cursection, "Encoding", $encoding);
     }