Changeset 1384

Show
Ignore:
Timestamp:
09.08.2000 14:18:17 (19 years ago)
Author:
paynter
Message:

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

Files:
1 modified

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}