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>";