> そして、426行目付近のifの条件式の後ろに
> $ImgFile[$_] = $file_dir2 .$ImgFile[$_];
前に入れてみてください。
for (1 .. $file_m) {
$ImgFile[$_] = $file_dir2 .$ImgFile[$_];
if ($ImgFile[$_]) {
undef($sz);
$sz .= " width=\"$W[$_]\"" if $W[$_];
$sz .= " height=\"$H[$_]\"" if $H[$_];
if ($in{"gaz$_"} == 1) {
print qq|<div align="center"><a href="$ImgFile[$_]" target="_blank"><img src="$ImgFile[$_]" border="0"$sz></a></div>\n|;
print qq|$in{"comment$_"}|;
print qq|<br>\n|;
} elsif ($in{"gaz$_"} == 2) {
print qq|<a href="$ImgFile[$_]" target="_blank"><a href="$ImgFile[$_]" target="_blank"><img src="$ImgFile[$_]" border="0"$sz></a><br>\n|;
print qq|$in{"comment$_"}|;
print qq|<br>\n|;
} else {
print qq|<a href="$ImgFile[$_]" target="_blank"><img src="$ImgFile[$_]" border="0"$sz></a>\n|;
print qq|$in{"comment$_"}|;
print qq|<br clear="all">|;
}
} else {
print qq|$in{"comment$_"}|;
}
}
|