# ealis ver.3.0   Lettering engine
#  --  "iconboard" type. non-step
# ---  written by K.Kan'o (kano@feena.jp) , 02/05/11
# (EUC )
# edit by kazami 02.11.01

1;

sub leteng_lettering
{
	my($ATC,$oyaflag,$rescnt) = @_;

	# 
	$ATC->{icon} ||= 'undef.png';

	if($oyaflag){
		print qq!\n<hr class="atclhr">\n\n<div class="article">\n!;

		print "\t<h3>";
		printf( '<span class="pageing"><a href="#see%d"></a><a href="#see%d" accesskey="%1d"></a></span>',
				$ANKOR -1 , $ANKOR +1 , $ANKOR -1) unless($FORM{pick});
		print "\n";
		print qq!\t\t<span class="atclno" id="see$ANKOR">$ATC->{number}</span> : <em>$ATC->{subj}</em>\n!;
		print qq!\t\t/ <cite>$ATC->{name}</cite><span class="stamp">($ATC->{date})</span>$ATC->{url}</h3>\n\n!;

		print qq!\t\t<div class="atclbody">\n!;
		print qq!\n\t<table class="msg-oya" summary="article $ATC->{number}"><colgroup><col class="ico"><col class="msg"></colgroup>\n!;
		print qq!\t\t<tr><td><img src="$ini::imgpath$ATC->{icon}" alt="$ATC->{icon}"></td>!;
		print qq!<td>!;
		print qq!<table border=0 cellspacing=0 cellpadding=0><tr><td rowspan=3><img src="$ini::imgpath\_0.gif" width=8 height=16></td><td><img src="$ini::imgpath\_1.gif" width=8 height=8></td><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td><td><img src="$ini::imgpath\_2.gif" width=8 height=8></td></tr><tr><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td><td bgcolor=white style="color: $ATC->{color}">!;
		print qq!$ATC->{comment}!;
		print qq!</td><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td></tr><tr><td><img src="$ini::imgpath\_3.gif" width=8 height=8></td><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td><td><img src="$ini::imgpath\_4.gif" width=8 height=8></td></tr></table>!;
		print qq!</td></tr></table>\n!;

	}else{
		if($rescnt == 1) { print qq!\n\t<blockquote><table class="msg-res" summary="res for $ATC->{number}"><colgroup><col class="ico"><col class="msg"></colgroup>\n!;}

		print qq!\t\t<tr><td><img src="$ini::imgpath$ATC->{icon}" alt="$ATC->{icon}"></td><td>!;
		print qq!<table border=0 cellspacing=0 cellpadding=0><tr><td rowspan=3><img src="$ini::imgpath\_0.gif" width=8 height=16></td><td><img src="$ini::imgpath\_1.gif" width=8 height=8></td><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td><td><img src="$ini::imgpath\_2.gif" width=8 height=8></td></tr><tr><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td><td bgcolor=white>!;
		print qq!<span style="color:$ATC->{color}">$ATC->{comment}<br></span><div align="right"><span style="color:$ATC->{color}"><cite>$ATC->{name}</cite></span> <span class="stamp">($ATC->{date})</span></div>!;
		print qq!</td><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td></tr><tr><td><img src="$ini::imgpath\_3.gif" width=8 height=8></td><td bgcolor=white><img src="$ini::imgpath\_sp.png"></td><td><img src="$ini::imgpath\_4.gif" width=8 height=8></td></tr></table>!;
		print qq!</td></tr>\n!;
	}
}


sub leteng_resform
{
	my($ATC,$oyaflag,$rescnt) = @_;

	print "\t</table></blockquote>\n" if($rescnt);
	print "\t</div>\n";

	print qq!\t<div class="reslink">!;
	print qq!<a href="javascript:view('NO$ATC->{number}');">쥹</a>! if(defined($FORM{dhtml}));
	print "</div>\n</div>\n\n";


	# pick mode
	if ($FORM{pick}){
		print qq!<form method=POST action="$ini::scriptwri?resno=$ATC->{number};thread" class="resform" accept-charset="euc-jp">\n!;

		print qq!\t<table summary="res"><tbody><tr>\n!;
		print qq!\t<td><span class="requisite">Name</span> <input type=text name="name" size=12 value="$COOKIE{name}" class="in">\n!;
		print qq!\t\tkey <input type=password name="pwd" size=9 maxlength=8 value="$COOKIE{'pwd'}" class="in" style="ime-mode:disabled">\n!;
		print qq!\t@{[ $sozai->icolist() ]}</td>\n!;
		print qq!\t<td class="submit"><input type=submit value="ֿ"></td></tr>\n!;
		print qq!\t<tr><td colspan=2>\n!;
		print qq!\t<textarea cols=70 rows=6 name="comment" wrap=soft></textarea><br>\n!;
		print qq!\t<div class="list-colors">\n!;

		print qq|<script type="text/javascript"><!--\n\t\t|;
		print q! document.writeln('<a href="javascript:prevtxt(0)">&lt;color&gt;</a>');!;
		print qq!\n\t//--></script>!;
		print qq!<noscript><a href="$ini::scriptsub?prev_color" target="elsprv">&lt;color&gt;</a></noscript>!;

		print $sozai->iroradio();
		print qq!\t</div></td></tr>\n!;
		print qq!\t</table>\n!;

		print qq!</form>\n\n!;

	# DHTML mode
	}elsif(defined($FORM{dhtml})){
		printf qq!<script type="text/javascript"><\!--\n\t dhtmlres(%d,%d);\n// --></script>\n!
				,$ATC->{number},$ANKOR-1;

	# Normal mode
	}else{
		print qq!<form method=POST action="$ini::scriptwri?resno=$ATC->{number}" class="resform" accept-charset="euc-jp">\n!;
		print qq!\t<table summary="res"><tbody>\n!;
		print qq!\t<tr>\n!;
		print qq!\t\t<td><label class="requisite">Name<input type=text name="name" size=8 value="$COOKIE{name}" class="in"></label>\n!;

		print qq!\t\tkey<input type=password name="pwd" size=8 maxlength=8 value="$COOKIE{pwd}" class="in" style="ime-mode:disabled">\n!;
		print "\t\tcolor@{[ $sozai->irolist() ]}\n";
		print "\t\t@{[ $sozai->icolist() ]}</td>\n";

		print qq!\t\t<td class="submit"><input type=submit value=" ֿ " class="min"></td></tr>\n!;

		print qq!\t\t<tr><td colspan=2><textarea cols=68 rows=3 name="comment"></textarea></td>\n!;
		print qq!\t</tr></tbody></table>\n!;
		print qq!</form>\n\n!;
	}
}

sub leteng_jscript
{
	# dhtmlΤͭ
	defined($FORM{dhtml}) || return;

	printf <<'EOM' ,$ini::scriptwri,$COOKIE{name},$COOKIE{pwd}, $sozai->enc('icolist'), $sozai->enc('iroradio');

 function dhtmlres(num,form){
	document.writeln('<div class="resform" style="display:none" id="NO'+ num +'">');
	document.writeln('<form method=POST action="%s?resno='+ num +';dhtml" class="resform" accept-charset="euc-jp">');
	document.writeln('<table summary="res"><tbody><tr>');
	document.writeln('<td><label class="requisite">Name <input type=text name="name" size=12 value="%s" class="in"><\/label>');
	document.writeln('key <input type=password name="pwd" size=9 maxlength=8 value="%s" class="in" style="ime-mode:disabled">');
	document.writeln('%s<\/td>');
	document.writeln('<td class="submit"><input type=submit value="ֿ"><\/td><\/tr>');
	document.writeln('<tr><td colspan=2>');
	document.writeln('<textarea cols=70 rows=6 name="comment" wrap=soft><\/textarea><br>');
	document.writeln('<div class="list-colors">');
	document.writeln('<a href="javascript:prevtxt(' + form + ')">&lt;color&gt;<\/a>');
	document.writeln('%s');
	document.writeln('<\/div><\/td><\/tr>');
	document.writeln('<\/table><\/form><\/div>');
 }

EOM
}


# ϥ쥹cookie
sub leteng_noherit
{
	('icon');
}
