Return to synch.pl CVS log | Up to [LON-CAPA] / loncom / localize / localize |
Work on utility to synch lexicon files.
sub readlexicon { my $fn=shift; open(IN,$fn); my %lexicon=(); my $contents=join('',<IN>); close(IN); $contents=~s/package Apache\:[^\;]+//; $contents=~s/use base[^\;]+//; eval($contents.'; %lexicon=%Lexicon;'); delete $lexicon{'_AUTO'}; delete $lexicon{'char_encoding'}; delete $lexicon{'language_code'}; return %lexicon; } &readlexicon('de.pm');