Виртуальный музей энергетики

От: <% $email->{from_name} %>

Кому: <% $email->{to_name} %>

Страница: <% substr ($doc->name, 0, 100) %>

% my $img = $doc->get_image('icon'); %# unless (ref $img && exists $img->{filename}) { %# $img = $doc->get_image('photo')->{mini}; %# } % if ( ref $img && exists $img->{filename} ) {

% } <% $doc->name %>

% my $body = $doc->abstr; % $body =~ s/\r//gi; % $body =~ s/\n*$//gi; % if ($body !~ /(
|

)/i) { % $body =~ s/([^\n])\n([^\n])/$1
\n$2/gi; % $body =~ s/\n{2,}/

\n\n/gi; % $body = '

'.$body.'

'; % } <% $body %>

Пожелание:

% my $comment = $email->{body}; % $comment =~ s/([^\n])\n([^\n])/$1
\n$2/gi; % $comment =~ s/\n{2,}/

\n\n/gi; % $comment = '

'.$comment.'

'; <% $comment %>

<%args> $email => undef <%init> return unless ref $email; my $doc = $email->{document};