sub PutNickyOneDay 内 「 my($alt,$ntit)=("","");」の行の下に、 my($altth,$ImgTAGth,$fwthumb); を追加。 ------------------------------------------------- その30行くらい下の「if($ThmPath){」から「$hpx=$h."px";」までを以下のように変更。 if($ThmPath){ $GrpPath=$ThmPath; ($w, $h)=&GetImageSize($ThmPath); $fw=1; }elsif( ($FitCheck eq "ON") && ($w != $fit_size) && ($h != $fit_size) ){ my($pw, $ph, $fit_width, $fit_height); $pw=$fit_size/$w; $ph=$fit_size/$h; if( $pw > $ph ){ $fit_width=int($w*$ph); $fit_height=int($h*$ph); }else{ $fit_width=int($w*$pw); $fit_height=int($h*$pw); } if( ($w == $fit_width) && ($h == $fit_height) ){ undef $fw; }else{ $fw=1; } $w=$fit_width; $h=$fit_height; }else{ undef $fw; } $p1=rindex($GrpPath,"\/"); $p2=rindex($GrpPath,"\/", $p1-1); $gm=substr($GrpPath, $p2); $ImgURL="$www$gm"; if( $nalt ){ $ntit="$nalt"; } else { $ntit="$GrpFileName $bw×$bh $sz"; } $alt=" width=\"$w\" height=\"$h\" alt=\"$ntit\" title=\"$ntit\""; $altth=" width=\"$bw\" height=\"$bh\" alt=\"$ntit\" title=\"$ntit\"" if( $fw ); $wpx=$w."px"; $hpx=$h."px"; ------------------------------------------------------------- 「 #画像レイアウトが左上&右上の場合はalign追加」から「# リンク用タグ」までを以下のように変更。 #画像レイアウトが左上&右上の場合はalign追加 if( $Layout == 4 ){ #画像レイアウトが左上 $ImgLINK="$ImgLINK" if( $ImgLINK ); if( $taglt eq "strict" ){ $alicl=" class=\"layoutl\""; }else{ $alicl=" align=\"left\""; } }elsif( $Layout == 5 ){ #画像レイアウトが右上 $ImgLINK="
$ImgLINK
" if( $ImgLINK ); if( $taglt eq "strict" ){ $alicl=" class=\"layoutr\""; }else{ $alicl=" align=\"right\""; } }else{ #画像レイアウト左上、右上以外 $ImgLINK="$ImgLINK" if( $ImgLINK ); $alicl=""; } $pt="$year$month$day$daysub"; $ImgTAG="$ImgTAG$ImgTAGth"; } # リンク用タグ ----------------------------------------------- 「# リンク用タグ」の下の行の「 $pt="$year$month$day$daysub";」は 上にも書いたから消した。