| 1 |
296 |
ahitrov |
<html> |
| 2 |
|
|
<head> |
| 3 |
|
|
<title>Виртуальный музей энергетики</title> |
| 4 |
|
|
</head> |
| 5 |
|
|
<body bgcolor="#ffffff"> |
| 6 |
|
|
<style type="text/css"> |
| 7 |
|
|
<!-- |
| 8 |
|
|
table221, td { font: 80% Verdana, Arial, Helvetica, sans-serif; color: #000000;} |
| 9 |
|
|
//--></style> |
| 10 |
|
|
|
| 11 |
|
|
<table border="0" width="655" cellpadding="0" cellspacing="0" class="table221" style="background-image:url(http://www.elektromuzei.ru/i/bg_card.gif); background-repeat: repeat-y; background-position: left; border:3px solid #DADADA; background-color:#F8F8F8;"> |
| 12 |
|
|
<tr valign="top"> |
| 13 |
|
|
<td style="padding:16px;"> |
| 14 |
|
|
|
| 15 |
|
|
<table border="0" cellpadding="0" cellspacing="0" style="border-width:0px 0px 1px 1px ; border-style: solid; border-color: #DADADA; padding:5px; margin:5px; width:240px;" align="right"> |
| 16 |
|
|
<tr><td> |
| 17 |
|
|
|
| 18 |
|
|
<table width="240"> |
| 19 |
|
|
<tr><td>От: <b><% $email->{from_name} %></b></td></tr> |
| 20 |
|
|
<tr><td>E-Mail: <a href="mailto:<% $email->{from} %>"><% $email->{from} %></a></td></tr> |
| 21 |
|
|
<tr><td><br></td></tr> |
| 22 |
|
|
<tr><td>Кому: <b><% $email->{to_name} %></b></td></tr> |
| 23 |
|
|
<tr><td>E-Mail: <a href="mailto:<% $email->{from} %>"><% $email->{to} %></a></td></tr> |
| 24 |
|
|
<tr><td><br></td></tr> |
| 25 |
|
|
<tr><td>Страница: <b><a href="http://www.elektromuzei.ru/object.html?id=<% $doc->id %>"><% substr ($doc->name, 0, 100) %></a></b></td></tr> |
| 26 |
|
|
</table> |
| 27 |
|
|
|
| 28 |
|
|
</tr> |
| 29 |
|
|
</tr> |
| 30 |
|
|
</table> |
| 31 |
|
|
|
| 32 |
|
|
% my $img = $doc->get_image('icon'); |
| 33 |
|
|
%# unless (ref $img && exists $img->{filename}) { |
| 34 |
|
|
%# $img = $doc->get_image('photo')->{mini}; |
| 35 |
|
|
%# } |
| 36 |
|
|
% if ( ref $img && exists $img->{filename} ) { |
| 37 |
|
|
<img src="cid:document_icon.jpg" width="100" height="100" align="left" style="margin-right:10px; border:3px solid #DADADA;" hspace="5"> |
| 38 |
|
|
% } |
| 39 |
|
|
<b><% $doc->name %></b><br><br> |
| 40 |
|
|
% my $body = $doc->abstr; |
| 41 |
|
|
% $body =~ s/\r//gi; |
| 42 |
|
|
% $body =~ s/\n*$//gi; |
| 43 |
|
|
% if ($body !~ /(<br>|<p>)/i) { |
| 44 |
|
|
% $body =~ s/([^\n])\n([^\n])/$1<br>\n$2/gi; |
| 45 |
|
|
% $body =~ s/\n{2,}/<p>\n\n/gi; |
| 46 |
|
|
% $body = '<p>'.$body.'</p>'; |
| 47 |
|
|
% } |
| 48 |
|
|
<% $body %> |
| 49 |
|
|
|
| 50 |
|
|
</tr> |
| 51 |
|
|
<tr> |
| 52 |
|
|
<td colspan="2" style="padding:16px;"> |
| 53 |
|
|
|
| 54 |
|
|
<table width="620"> |
| 55 |
|
|
<tr><td>Пожелание:</td></tr> |
| 56 |
|
|
<tr><td> |
| 57 |
|
|
<div style="border:1px solid #DADADA; background-color:#ffffff; padding:10px;"> |
| 58 |
|
|
% my $comment = $email->{body}; |
| 59 |
|
|
% $comment =~ s/([^\n])\n([^\n])/$1<br>\n$2/gi; |
| 60 |
|
|
% $comment =~ s/\n{2,}/<p>\n\n/gi; |
| 61 |
|
|
% $comment = '<p>'.$comment.'</p>'; |
| 62 |
|
|
<% $comment %> |
| 63 |
|
|
</td></tr> |
| 64 |
|
|
</table> |
| 65 |
|
|
|
| 66 |
|
|
</td></tr> |
| 67 |
|
|
</table> |
| 68 |
|
|
</body> |
| 69 |
|
|
</html> |
| 70 |
|
|
<%args> |
| 71 |
|
|
|
| 72 |
|
|
$email => undef |
| 73 |
|
|
|
| 74 |
|
|
</%args> |
| 75 |
|
|
<%init> |
| 76 |
|
|
|
| 77 |
|
|
return unless ref $email; |
| 78 |
|
|
my $doc = $email->{document}; |
| 79 |
|
|
|
| 80 |
|
|
</%init> |
