Changeset 1384
- Timestamp:
- 2000-08-09T14:18:17+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r1379 r1384 325 325 @results = ("unknown") if ($#results > 2); 326 326 327 # create language string and remove encoding information 327 328 my $language = join(" or ", @results); 329 $language =~ s/\-\w+//g; 328 330 $doc_obj->add_utf8_metadata($thissection, "Language", $language); 329 print "Language:$language\n";331 # print "Language: ", time, "-> $language\n"; 330 332 331 333 }
Note:
See TracChangeset
for help on using the changeset viewer.