lilalo

diff l3-cgi @ 66:563e3ee69ce8

Исправленияэ
author devi
date Fri Jan 27 18:44:23 2006 +0200 (2006-01-27)
parents 187b6636a3be
children d499fa3b2af1
line diff
     1.1 --- a/l3-cgi	Wed Dec 28 18:44:42 2005 +0200
     1.2 +++ b/l3-cgi	Fri Jan 27 18:44:23 2006 +0200
     1.3 @@ -57,7 +57,7 @@
     1.4  
     1.5  if ($ENV{PATH_INFO} eq "/index") {
     1.6  	# Показываем индекс курсов
     1.7 -	my @training_files = glob($l3config::Config{"path_classes"}."/*".$l3config::Config{"class_suffix"});
     1.8 +	my @training_files = glob($l3config::Config{"path_classes"}."/2*".$l3config::Config{"class_suffix"});
     1.9  	if (@training_files) {
    1.10  		for my $training_file (@training_files) {
    1.11  			$training_file =~ s@.*/@@;