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

[www]

www		Fri Sep 26 14:23:00 2003 EDT

  Modified files:              
    /loncom/localize/localize	synch.pl 
  Log:
  Synching files.
  
  
Index: loncom/localize/localize/synch.pl
diff -u loncom/localize/localize/synch.pl:1.2 loncom/localize/localize/synch.pl:1.3
--- loncom/localize/localize/synch.pl:1.2	Fri Sep 26 11:23:24 2003
+++ loncom/localize/localize/synch.pl	Fri Sep 26 14:22:59 2003
@@ -1,3 +1,5 @@
+
+
 sub readlexicon {
     my $fn=shift;
     open(IN,$fn);
@@ -18,10 +20,10 @@
     print "Reading: ".$_."\n";
     %master=(%master,&readlexicon($_));
 }
-foreach (<*.pm>) {
-    print "Synching: ".$_."\n";
+foreach $fn (<*.pm>) {
+    print "Synching: ".$fn."\n";
     my %lang=&readlexicon($_);
-    copy ($fn,$fn.'.original');
+     system ("cp $fn $fn.original");
     open(IN,$fn.'.original');
     open(OUT,'>'.$fn);
     my $found=0;