[BACK]Return to synch.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / localize / localize

Diff for /loncom/localize/localize/synch.pl between versions 1.2 and 1.3

version 1.2, 2003/09/26 15:23:24 version 1.3, 2003/09/26 18:22:59
Line 1 Line 1
   
   
 sub readlexicon {  sub readlexicon {
     my $fn=shift;      my $fn=shift;
     open(IN,$fn);      open(IN,$fn);
Line 18  foreach (<*.pm>) { Line 20  foreach (<*.pm>) {
     print "Reading: ".$_."\n";      print "Reading: ".$_."\n";
     %master=(%master,&readlexicon($_));      %master=(%master,&readlexicon($_));
 }  }
 foreach (<*.pm>) {  foreach $fn (<*.pm>) {
     print "Synching: ".$_."\n";      print "Synching: ".$fn."\n";
     my %lang=&readlexicon($_);      my %lang=&readlexicon($_);
     copy ($fn,$fn.'.original');       system ("cp $fn $fn.original");
     open(IN,$fn.'.original');      open(IN,$fn.'.original');
     open(OUT,'>'.$fn);      open(OUT,'>'.$fn);
     my $found=0;      my $found=0;
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>