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

Timestamp:

2000-08-09T14:18:17+12:00 (24 years ago)

Author:

paynter

Message:

Changed language extraction to ignoer encoding information, so that
(for example) "chinese-gb2312" is just "chinese".

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -325 +325 @@
     @results = ("unknown") if ($#results > 2);
 
+    # create language string and remove encoding information
     my $language = join(" or ", @results);
+    $language =~ s/\-\w+//g;
     $doc_obj->add_utf8_metadata($thissection, "Language",  $language);
-    print "Language: $language\n";
+    # print "Language: ", time, "-> $language\n";
 
 }