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