Updates and improves code for Xorg/AX directory merge.

[platal.git] / modules / fusionax / formation.pl

diff --git a/modules/fusionax/formation.pl b/modules/fusionax/formation.pl
index 3ee392a..c6eb6a7 100755 (executable)
--- a/modules/fusionax/formation.pl
+++ b/modules/fusionax/formation.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use utf8;
-open(FILE, "<:encoding(UTF-8)", "Formations.txt") || die ("Erreur d'ouverture");
-open(OUT, ">:encoding(UTF-8)", "Formations_out.txt") || die ("Erreur d'ouverture");
+open(FILE, "<:encoding(UTF-8)", "../../spool/fusionax/Formations.txt") || die ("Erreur d'ouverture");
+open(OUT, ">:encoding(UTF-8)", "../../spool/fusionax/Formations_out.txt") || die ("Erreur d'ouverture");
 
 while (<FILE>)
 {
@@ -103,7 +103,7 @@ while (<FILE>)
   s/CESDR\t//;
   s/CFAF\t//;
   s/CHEA\t//;
-  s/CHEAR\t//;
+  s/CHEAR\t/CHEAr/;
   s/CHEE&DD Session 9\t//;
   s/CESB\t//;
   s/CESSID\t//;
@@ -265,7 +265,7 @@ while (<FILE>)
   s/\tès /\t/g;
   s/\tof /\t/g;
   s/( )+(\t)/\t/g;
-  
+
 
   # On remet dans l'ordre lorsque le diplôme se situe après l'université
   s/Manag\.Vanderblit/Vanderbilt University\tManagement/;