--- loncom/localize/localize/synch.pl	2003/09/26 18:22:59	1.3
+++ loncom/localize/localize/synch.pl	2003/09/26 18:39:48	1.4
@@ -20,19 +20,29 @@ foreach (<*.pm>) {
     print "Reading: ".$_."\n";
     %master=(%master,&readlexicon($_));
 }
-foreach $fn (<*.pm>) {
+
+foreach my $fn (<*.pm>) {
     print "Synching: ".$fn."\n";
-    my %lang=&readlexicon($_);
-     system ("cp $fn $fn.original");
+    my %lang=&readlexicon($fn);
+    system ("cp $fn $fn.original");
     open(IN,$fn.'.original');
     open(OUT,'>'.$fn);
     my $found=0;
-    foreach (<IN>) {
+    while (<IN>) {
 	if ($_=~/\#\s*SYNCMARKER/) { $found=1; last; } 
 	print OUT $_;
     }
     if ($found) {
-	print OUT "\n\#SYNC ".localtime."\n";
+	print OUT "\n\#SYNC ".localtime()."\n";
+	foreach (sort keys %master) {
+	    unless ($lang{$_}) {
+		print OUT (<<ENDNEW);
+   '$_'
+=> '$_',
+
+ENDNEW
+	    }
+	}
 
 	print OUT "\n\#SYNCMARKER\n";
 	foreach (<IN>) {