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 # Нам неизвестен курс или явно указан просмотр индекса