Changeset 1384


Ignore:
Timestamp:
08/09/00 14:18:17 (20 years ago)
Author:
paynter
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/BasPlug.pm

    r1379 r1384  
    325325    @results = ("unknown") if ($#results > 2);
    326326
     327    # create language string and remove encoding information
    327328    my $language = join(" or ", @results);
     329    $language =~ s/\-\w+//g;
    328330    $doc_obj->add_utf8_metadata($thissection, "Language",  $language);
    329     print "Language: $language\n";
     331    # print "Language: ", time, "-> $language\n";
    330332
    331333}
Note: See TracChangeset for help on using the changeset viewer.