lilalo

diff l3-cgi @ 110:2fc1f3f08760

fix
author igor
date Wed Feb 13 02:43:33 2008 +0200 (2008-02-13)
parents 2c00c61f2d7b
children 9e6359b7ad55
line diff
     1.1 --- a/l3-cgi	Wed Jun 14 21:37:22 2006 +0300
     1.2 +++ b/l3-cgi	Wed Feb 13 02:43:33 2008 +0200
     1.3 @@ -117,7 +117,9 @@
     1.4  else {
     1.5      # Вызов производится по URL
     1.6      $ENV{PATH_INFO} = "/".$ENV{PATH_INFO} unless $ENV{PATH_INFO} =~ m@^/@;
     1.7 +    #my ($skip, $training, $host, $user) = split /\//,$ENV{PATH_INFO},4;
     1.8      my ($skip, $training, $host, $user) = split /\//,$ENV{PATH_INFO},4;
     1.9 +    
    1.10  
    1.11      if (!$host || $host eq "index") {
    1.12          # Нам неизвестен курс или явно указан просмотр индекса