(23)Schwarze Katze |
2012/01/29(日) 23:53:22 |
動いたら下の行を追加して確認、
my $reqvals = &SWBase::GetRequestValues($sow);
$memolink = &SWBase::GetLinkValues($sow, $reqvals)."&cmd=hist&logid=$log->{'memoid'}";
OKだったら、
if($log->{'memoid'} ne '_none_'){
my $reqvals = &SWBase::GetRequestValues($sow);
$memolink = &SWBase::GetLinkValues($sow, $reqvals)."&cmd=hist&logid=$log->{'memoid'}";
$memolink = " <a href=\"$cfg->{'BASEDIR_CGI'}/$cfg->{'FILE_SOW'}?$memolink\" class=\"memo_anchor\"><img src=\"$cfg->{'IMG_SPACER'}\"></a>";
}
と、全部追加して確認してね。
ここまでいけば後もう一歩。