![[BACK]](/icons/back.gif){kind=icon}
Return to synch.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / localize / localize|
Return to synch.pl CVS log | Up to [LON-CAPA] / loncom / localize / localize |
| version 1.5, 2003/09/26 21:04:26 | version 1.6, 2003/10/14 17:34:04 |
|---|---|
| Line 35 foreach (<*.pm>) { | Line 35 foreach (<*.pm>) { |
| %master=(%master,&readlexicon($_)); | %master=(%master,&readlexicon($_)); |
| } | } |
| # Remove obsolete from synch | |
| open(IN,'removephrases.txt'); | |
| while (my $line=<IN>) { | |
| chomp($line); | |
| delete $master{$line}; | |
| } | |
| close(IN); | |
| foreach my $fn (<*.pm>) { | foreach my $fn (<*.pm>) { |
| print "Synching: ".$fn."\n"; | print "Synching: ".$fn."\n"; |
| my %lang=&readlexicon($fn); | my %lang=&readlexicon($fn); |