$title $h1title2
|
$comment
END_OF_HTML
if($url ne ""){
print ' ';
print ' ';
if($urltitle ne ""){
print '▼関連リンク '.$urltitle.'';
}else{
print '▼関連リンク '.$url.'';
}
}
if($datafilename ne ''){
print ' ';
print ' ';
print '▼PDFダウンロードはこちら';
print ' ';
print '';
if($datatitle ne ""){print $datatitle;}else{print 'download';}
print '';
}
if($name ne ""||$post ne ""||$office ne ""){
print ' ';
if($post ne ""){print $post." ";}
if($office ne ""){print $office." ";}
if($name ne ""){print $name." ";}
}
print <<"END_OF_HTML";
|
|
END_OF_HTML
#
if($thum1filename ne ''||$thum2filename ne ''||$thum3filename ne ''||$thum4filename ne ''||$thum5filename ne ''||$thum6filename ne ''||$thum7filename ne ''||$thum8filename ne ''||$thum9filename ne ''||$thum10filename ne ''){
# print ' | ';
if($thum1filename ne ''){
undef @tmpimg1,@tmpimg2;
@tmpimg1 = split("_",$thum1filename,-1);
@tmpimg2 = split('\.',$tmpimg1[$#tmpimg1],-1);
($imgW,$imgH) = split("x",$tmpimg2[0],-1);
print '';
print ' ';
if($img1title ne ""){print ' '.$img1title;}
print ' ';
print ' ';
}
if($thum2filename ne ''){
undef @tmpimg1,@tmpimg2;
@tmpimg1 = split("_",$thum2filename,-1);
@tmpimg2 = split('\.',$tmpimg1[$#tmpimg1],-1);
($imgW,$imgH) = split("x",$tmpimg2[0],-1);
print '';
print ' ';
if($img2title ne ""){print ' '.$img2title;}
print ' ';
print ' ';
}
if($thum3filename ne ''){
undef @tmpimg1,@tmpimg2;
@tmpimg1 = split("_",$thum3filename,-1);
@tmpimg2 = split('\.',$tmpimg1[$#tmpimg1],-1);
($imgW,$imgH) = split("x",$tmpimg2[0],-1);
print '';
print ' ';
if($img3title ne ""){print ' '.$img3title;}
print ' ';
print ' ';
}
# print ' | ';
}
print <<"END_OF_HTML";