lilalo

diff lm-report @ 13:6932824b39c1

Разбивка по дням
author devi
date Mon Jun 06 14:22:32 2005 +0300 (2005-06-06)
parents 8d40b1921934
children 06260270cbe0
line diff
     1.1 --- a/lm-report	Sat Jun 04 17:58:20 2005 +0300
     1.2 +++ b/lm-report	Mon Jun 06 14:22:32 2005 +0300
     1.3 @@ -724,9 +724,11 @@
     1.4  	
     1.5  	my $cl;
     1.6  	my $last_tty="";
     1.7 +	my $last_day="";
     1.8  	my $in_range=0;
     1.9  	for my $i (@Command_Lines_Index) {
    1.10  
    1.11 +		
    1.12  		$cl = $Command_Lines[$i];
    1.13  
    1.14  		if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {
    1.15 @@ -795,6 +797,13 @@
    1.16  						
    1.17  		
    1.18  		if ($format eq "html") {
    1.19 +
    1.20 +			# DAY CHANGE
    1.21 +			if ( $last_day ne $cl->{"day"}) {
    1.22 +				print OUT "<td colspan='6'><p></p><h3>День ",$cl->{"day"},"</h4></td></tr><tr>";
    1.23 +				$last_day=$cl->{"day"};
    1.24 +			}
    1.25 +
    1.26  			# CONSOLE CHANGE
    1.27  			if ( $last_tty ne $cl->{"tty"}) {
    1.28  				print OUT "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>",$cl->{"tty"},"</td><td/></tr></table></td></tr><tr>";