--- loncom/localize/localize/synch.pl	2003/09/26 21:04:26	1.5
+++ loncom/localize/localize/synch.pl	2003/10/14 17:34:04	1.6
@@ -35,6 +35,16 @@ foreach (<*.pm>) {
     %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);