lilalo

changeset 13:6932824b39c1

Разбивка по дням
author devi
date Mon Jun 06 14:22:32 2005 +0300 (2005-06-06)
parents 8d40b1921934
children 784c5382ffe2
files lm lm-report
line diff
     1.1 --- a/lm	Sat Jun 04 17:58:20 2005 +0300
     1.2 +++ b/lm	Mon Jun 06 14:22:32 2005 +0300
     1.3 @@ -24,7 +24,7 @@
     1.4  	"l3-report"	=> "./lm-report",
     1.5  
     1.6  	# Каталоги
     1.7 -	"path_lilalo" => "/var/labmaker/",
     1.8 +	"path_lilalo" => "/var/lilalo/",
     1.9  	"path_classes"	=> "/var/lilalo/classes/",
    1.10  	"path_lablogs"	=> "/var/lilalo/lablogs/",
    1.11  	"courses_path"	=> "/var/lilalo/courses/",
     2.1 --- a/lm-report	Sat Jun 04 17:58:20 2005 +0300
     2.2 +++ b/lm-report	Mon Jun 06 14:22:32 2005 +0300
     2.3 @@ -724,9 +724,11 @@
     2.4  	
     2.5  	my $cl;
     2.6  	my $last_tty="";
     2.7 +	my $last_day="";
     2.8  	my $in_range=0;
     2.9  	for my $i (@Command_Lines_Index) {
    2.10  
    2.11 +		
    2.12  		$cl = $Command_Lines[$i];
    2.13  
    2.14  		if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
    2.15 @@ -795,6 +797,13 @@
    2.16  						
    2.17  		
    2.18  		if ($format eq "html") {
    2.19 +
    2.20 +			# DAY CHANGE
    2.21 +			if ( $last_day ne $cl->{"day"}) {
    2.22 +				print OUT "<td colspan='6'><p></p><h3>День ",$cl->{"day"},"</h4></td></tr><tr>";
    2.23 +				$last_day=$cl->{"day"};
    2.24 +			}
    2.25 +
    2.26  			# CONSOLE CHANGE
    2.27  			if ( $last_tty ne $cl->{"tty"}) {
    2.28  				print OUT "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>",$cl->{"tty"},"</td><td/></tr></table></td></tr><tr>";