lilalo

diff l3-cgi @ 61:440d12c122d5

find changesets by author, revision, files, or words in the commit message
В индекс брать только файлы, начинающиеся с 20
author devi
date Sat Jan 21 19:09:34 2006 +0200 (2006-01-21)
parents 187b6636a3be
children d499fa3b2af1
line diff
     1.1 --- a/l3-cgi	Wed Dec 28 18:44:42 2005 +0200
     1.2 +++ b/l3-cgi	Sat Jan 21 19:09:34 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@.*/@@;