Subversion Repositories wimsdev

Rev

Rev 8685 | Rev 9089 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8685 Rev 8937
Line 52... Line 52...
52 
  $txt =~ tr/éèêëàáâãäåùìíîïóôòç/eeeeaaaaaauiiiioooc/;
 52 
  $txt =~ tr/éèêëàáâãäåùìíîïóôòç/eeeeaaaaaauiiiioooc/;
53 
  $txt =~ s/[ÀÁÂÃÄÅ]/A/g;
 53 
  $txt =~ s/[ÀÁÂÃÄÅ]/A/g;
54 
  $txt =~ s/Ç/C/g;
 54 
  $txt =~ s/Ç/C/g;
55 
  $txt =~ s/[ÈÉÊË]/E/g;
 55 
  $txt =~ s/[ÈÉÊË]/E/g;
56 
  $txt =~ s/[ÌÏÎÍ]/I/g;
 56 
  $txt =~ s/[ÌÏÎÍ]/I/g;
- 
 
 57 
  $txt =~ s/'/ /g;
57 
  $txt= encode("iso-8859-1",$txt);
 58 
  $txt= encode("iso-8859-1",$txt);
58 
  $txt
 59 
  $txt
59 
}
 60 
}
60 
 
 61 
 
61 
sub out { my ($bloc, $text) = @_;
 62 
sub out { my ($bloc, $text) = @_;