| Revision 296 (by ahitrov, 2013/03/26 17:59:01) |
Promosite (anthill) project source
|
<html>
<head>
<title>Виртуальный музей энергетики</title>
</head>
<body bgcolor="#ffffff">
<style type="text/css">
<!--
table221, td { font: 80% Verdana, Arial, Helvetica, sans-serif; color: #000000;}
//--></style>
<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;">
<tr valign="top">
<td style="padding:16px;">
<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">
<tr><td>
<table width="240">
<tr><td>От: <b><% $email->{from_name} %></b></td></tr>
<tr><td>E-Mail: <a href="mailto:<% $email->{from} %>"><% $email->{from} %></a></td></tr>
<tr><td><br></td></tr>
<tr><td>Кому: <b><% $email->{to_name} %></b></td></tr>
<tr><td>E-Mail: <a href="mailto:<% $email->{from} %>"><% $email->{to} %></a></td></tr>
<tr><td><br></td></tr>
<tr><td>Страница: <b><a href="http://www.elektromuzei.ru/object.html?id=<% $doc->id %>"><% substr ($doc->name, 0, 100) %></a></b></td></tr>
</table>
</tr>
</tr>
</table>
% my $img = $doc->get_image('icon');
%# unless (ref $img && exists $img->{filename}) {
%# $img = $doc->get_image('photo')->{mini};
%# }
% if ( ref $img && exists $img->{filename} ) {
<img src="cid:document_icon.jpg" width="100" height="100" align="left" style="margin-right:10px; border:3px solid #DADADA;" hspace="5">
% }
<b><% $doc->name %></b><br><br>
% my $body = $doc->abstr;
% $body =~ s/\r//gi;
% $body =~ s/\n*$//gi;
% if ($body !~ /(<br>|<p>)/i) {
% $body =~ s/([^\n])\n([^\n])/$1<br>\n$2/gi;
% $body =~ s/\n{2,}/<p>\n\n/gi;
% $body = '<p>'.$body.'</p>';
% }
<% $body %>
</tr>
<tr>
<td colspan="2" style="padding:16px;">
<table width="620">
<tr><td>Пожелание:</td></tr>
<tr><td>
<div style="border:1px solid #DADADA; background-color:#ffffff; padding:10px;">
% my $comment = $email->{body};
% $comment =~ s/([^\n])\n([^\n])/$1<br>\n$2/gi;
% $comment =~ s/\n{2,}/<p>\n\n/gi;
% $comment = '<p>'.$comment.'</p>';
<% $comment %>
</td></tr>
</table>
</td></tr>
</table>
</body>
</html>
<%args>
$email => undef
</%args>
<%init>
return unless ref $email;
my $doc = $email->{document};
</%init>