Return to synch.pl CVS log

Up to [LON-CAPA] / loncom / localize / localize

Annotation of loncom/localize/localize/synch.pl, revision 1.1

1.1     ! www         1: sub readlexicon {
        !             2:     my $fn=shift;
        !             3:     open(IN,$fn);
        !             4:     my %lexicon=();
        !             5:     my $contents=join('',<IN>);
        !             6:     close(IN);
        !             7:     $contents=~s/package Apache\:[^\;]+//;
        !             8:     $contents=~s/use base[^\;]+//;
        !             9:     eval($contents.'; %lexicon=%Lexicon;');
        !            10:     delete $lexicon{'_AUTO'};
        !            11:     delete $lexicon{'char_encoding'};
        !            12:     delete $lexicon{'language_code'};
        !            13:     return %lexicon;
        !            14: }
        !            15: 
        !            16: &readlexicon('de.pm');