lilalo

diff l3-frontend @ 67:70db89d4f840

Prishlos vernut sortirovku
author devi
date Fri Jan 27 19:47:23 2006 +0200 (2006-01-27)
parents 3326053f9b23
children 8c3d80c4891b
line diff
     1.1 --- a/l3-frontend	Fri Jan 27 09:04:44 2006 +0200
     1.2 +++ b/l3-frontend	Fri Jan 27 19:47:23 2006 +0200
     1.3 @@ -572,13 +572,17 @@
     1.4          elsif ($seconds_since_last_command > 600) {
     1.5              my $height = $seconds_since_last_command > 1200 ? 100: 60;
     1.6              my $minutes_passed =  int($seconds_since_last_command/60);
     1.7 -            my $minutes_word = $minutes_passed % 10 == 1 ? "минута":
     1.8 +
     1.9 +
    1.10 +            my $minutes_word = $minutes_passed % 100 > 10 
    1.11 +                            && $minutes_passed % 100 < 20 ? "минут" :
    1.12 +                               $minutes_passed % 10 == 1 ? "минута":
    1.13                                 $minutes_passed % 10 == 0 ? "минут" :
    1.14                                 $minutes_passed % 10  > 4 ? "минут" :
    1.15                                                             "минуты";
    1.16  
    1.17              $this_day_result .= "<tr height='60'>"
    1.18 -                             .  "<td colspan='4' height='$height'>"
    1.19 +                             .  "<td colspan='5' height='$height'>"
    1.20                               .  "<font size='-1'>"
    1.21                               .  "прошло ".$minutes_passed." ".$minutes_word
    1.22                               .  "</font>"
    1.23 @@ -601,11 +605,22 @@
    1.24  
    1.25  # TIME
    1.26          $this_day_result .= $Config{"show_time"} =~ /^y/i
    1.27 -                 ? "<td valign='top' class='time' width='$Config{time_width}'>$hour:$min:$sec</td>"
    1.28 +                 ? "<td width='100' valign='top' class='time' width='$Config{time_width}'>$hour:$min:$sec</td>"
    1.29                   : "<td width='0'/>";
    1.30  
    1.31  # CLASS
    1.32 -        $this_day_result .= "<td width='20' valign='top'>F</td>";
    1.33 +        if ($cl->{"err"}) {
    1.34 +            $this_day_result .= "<td width='8' valign='top'>"
    1.35 +                             .  "<table><tr><td width='8' height='8' class='err_box'>"
    1.36 +                             .  "E"
    1.37 +                             .  "</td></tr></table>"
    1.38 +                             .  "</td>";
    1.39 +        }
    1.40 +        else {
    1.41 +            $this_day_result .= "<td width='10' valign='top'>"
    1.42 +                             .  " "
    1.43 +                             .  "</td>";
    1.44 +        }
    1.45  
    1.46  # COMMAND
    1.47          my $hint = make_comment($cl->{"cline"});