Subversion Repositories wimsdev

Rev

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

Rev 9089 Rev 18174
Line 109... Line 109...
109 
close IN;
 109 
close IN;
110 
  %ref
 110 
  %ref
111 
}
 111 
}
112 
 
 112 
 
113 
sub treate_language {
 113 
sub treate_language {
114 
  my $site_language='en fr nl it cn';
 114 
  my $site_language='en fr nl it cn es';
115 
  my $conf='../../../log/wims.conf';
 115 
  my $conf='../../../log/wims.conf';
116 
  if (-e "$conf") {
 116 
  if (-e "$conf") {
117 
   open IN, "$conf";
 117 
   open IN, "$conf";
118 
   while (<IN>) {
 118 
   while (<IN>) {
119 
     if ($_ =~ s/site_languages=//) { $site_language= $_ ; }
 119 
     if ($_ =~ s/site_languages=//) { $site_language= $_ ; }