lilalo

diff l3-cgi @ 88:385499ec544a

find changesets by author, revision, files, or words in the commit message
Начал работу над текстовым представлением +
редактором журнала.
Пока что в textarea выводится текстовое представление.

Редактировать можно, но сохранять пока нельзя.

Пытался сделать автоматическое позиционирование курсора
на нужную строку.
Во-первых, не работает в Konqueror и с этим, я так понимаю,
ничего пока сделать нельзя.

Во-вторых, неверно вычисляется строка на которую нужно
позиционировать курсор.

Это, я думаю, можно подправить.

Потом, что-то намутил с utf8. Надо будет более детально
это рассмотреть
author devi
date Thu Mar 02 00:06:54 2006 +0200 (2006-03-02)
parents 2cb912bff2ea
children 62001c1e3295
line diff
     1.1 --- a/l3-cgi	Sat Feb 25 08:02:25 2006 +0200
     1.2 +++ b/l3-cgi	Thu Mar 02 00:06:54 2006 +0200
     1.3 @@ -81,22 +81,22 @@
     1.4              my $t = $Trainings{$tdate};
     1.5              $print .= "<tr>";
     1.6              $print .= "<td>".$t->{date}."</td>";
     1.7 -            $print .= "<td>".$t->{course}."</td>";
     1.8 +            $print .= "<td colspan='7'>".$t->{course}."</td>";
     1.9              $print .= "</tr>\n";
    1.10 -            $print .= "<tr>";
    1.11 -            $print .= "<td/>";
    1.12 -            $print .= "<td><pre>";
    1.13              for my $host (sort keys %{$t->{host}}) {
    1.14 +                my %row;
    1.15 +                my @row_keys = qw{
    1.16 +                    name email company host root user
    1.17 +                };
    1.18                  my $h = $t->{host}->{$host};
    1.19 -                $print .= "$host";
    1.20 -                $print .= " ".$h->{firstname}." ".$h->{surname}." ";
    1.21 -                $print .= " ".$h->{company}." ";
    1.22 -                $print .= "<a href='/cgi-bin/l3/".$tdate."/".$host."/root'>root</a> ";
    1.23 -                $print .= "<a href='/cgi-bin/l3/".$tdate."/".$host."/".$h->{user}."'>".$h->{user}."</a> ";
    1.24 -                $print .= "\n";
    1.25 +                $row{name}= $h->{firstname}." ".$h->{surname};
    1.26 +                $row{email}= $h->{email};
    1.27 +                $row{company} = $h->{company};
    1.28 +                $row{host} =  "$host";
    1.29 +                $row{root} = "<a href='/cgi-bin/l3/".$tdate."/".$host."/root'>root</a> ";
    1.30 +                $row{user} = "<a href='/cgi-bin/l3/".$tdate."/".$host."/".$h->{user}."'>".$h->{user}."</a> ";
    1.31 +                $print .= "<tr>".join("", map("<td style='$_'>$row{$_}</td>", @row_keys))."</tr>";
    1.32              }
    1.33 -            $print .= "</pre><td>";
    1.34 -            $print .= "</tr>\n";
    1.35          }
    1.36          $print .= "</table>\n";
    1.37          $print .= "</body>\n";