--- loncom/localize/localize/synch.pl	2003/09/26 18:39:48	1.4
+++ loncom/localize/localize/synch.pl	2003/09/26 21:04:26	1.5
@@ -15,7 +15,21 @@ sub readlexicon {
     return %lexicon;
 }
 
-my %master=();
+sub readnew {
+    open(IN,'newphrases.txt');
+    my %lexicon='';
+    while (my $line=<IN>) {
+	chomp($line);
+	$lexicon{$line}=$line;
+    }
+    close(IN);
+    return %lexicon;
+}
+
+# ==== Main Program
+
+my %master=&readnew();
+
 foreach (<*.pm>) {
     print "Reading: ".$_."\n";
     %master=(%master,&readlexicon($_));
@@ -34,12 +48,21 @@ foreach my $fn (<*.pm>) {
     }
     if ($found) {
 	print OUT "\n\#SYNC ".localtime()."\n";
-	foreach (sort keys %master) {
-	    unless ($lang{$_}) {
+	foreach my $key (sort keys %master) {
+	    unless ($key) { next; }
+	    unless ($lang{$key}) {
+		my $comment='';
+		my $copytrans=$key;
+		foreach (reverse sort keys %lang) {
+		    $copytrans=~s/$_/$lang{$_}/gsi;
+		}
+		if (lc($copytrans) ne lc($key)) {
+		    $comment='# '.$copytrans;
+                }
 		print OUT (<<ENDNEW);
-   '$_'
-=> '$_',
-
+   '$key'
+=> '$key',
+$comment
 ENDNEW
 	    }
 	}