Subversion Repositories wimsdev

Rev

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

Rev 8937 Rev 9089
Line 118... Line 118...
118 
   while (<IN>) {
 118 
   while (<IN>) {
119 
     if ($_ =~ s/site_languages=//) { $site_language= $_ ; }
 119 
     if ($_ =~ s/site_languages=//) { $site_language= $_ ; }
120 
   }
 120 
   }
121 
  close IN;
 121 
  close IN;
122 
 }
 122 
 }
- 
 
 123 
  $site_language=~  s/,/ /g; $site_language=~  s/ +/ /g;
123 
split(' ', $site_language) ;
 124 
  split(' ', $site_language) ;
124 
}
 125 
}
125 
 
 126 
 
126 
sub reverse_dic { my @liste=@_;
 127 
sub reverse_dic { my @liste=@_;
127 
  my %ref = ( ) ; my $ref=\%ref;
 128 
  my %ref = ( ) ; my $ref=\%ref;
128 
  for my $file (@liste) {
 129 
  for my $file (@liste) {