[LON-CAPA-cvs] cvs: loncom /localize/localize synch.pl

[www]

www		Tue Oct 14 13:34:04 2003 EDT

  Modified files:              
    /loncom/localize/localize	synch.pl 
  Log:
  Remove obsolete phrases from synch.
  
  
Index: loncom/localize/localize/synch.pl
diff -u loncom/localize/localize/synch.pl:1.5 loncom/localize/localize/synch.pl:1.6
--- loncom/localize/localize/synch.pl:1.5	Fri Sep 26 17:04:26 2003
+++ loncom/localize/localize/synch.pl	Tue Oct 14 13:34:04 2003
@@ -35,6 +35,16 @@
     %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>) {
     print "Synching: ".$fn."\n";
     my %lang=&readlexicon($fn);