Line # Revision Author
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>