迅速な対応、ありがとうございますTT
sub note_before {
　　　　if ($Fm{'pd2'}) { $Fm{'pd'} = $Fm{'pd2'} }
　　　　if ($Fm{'pd2'} eq $Fm{'id'}) { push (@msg,"自分に手紙を出すことはできません"); return }
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　@rcdlines = &get_partner("$Fm{'pd'}");
　　　　&get_partner("$Fm{'pd'}");
　　　　$fg='NB'; &userout;
　　　　push (@msg,"[$Fm{'pd'}] $pnm相手に手紙を書くことができます");
print qq|<td bgcolor="#E6E6FA" colspan=2>手紙の内容：|;　　　　&form('start');
print qq|<textarea rows=5 cols=60 wrap=soft name=words></textarea>|;
　　　　&OKbuttoninform('on','note_after');
　　　　print qq|</td></tr>|; &form('end');
}



sub note_after {
　　　　if ($Fm{'pd2'}) { $Fm{'pd'} = $Fm{'pd2'} }
　　　　if ($Fm{'pd'} eq $Fm{'id'}) { push (@msg,"自分に手紙を出すことはできません"); return }
　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　@prclines = &get_partner("$Fm{'pd'}");
　　　　($pcc,$pfc,$psc,$ptc) = split(/△/,$pmc);
　　　　$pcc++;
　　　　$pmc = "$pcc△$pfc△$psc△$ptc";
　　　　return if $fg ne 'NB';
　　　　return if $Fm{'words'} eq '';
　　　　&add_record("[$id] $nmからの手紙:「$Fm{'words'}」");
　　　　push (@msg,"$pnmに手紙を残しました");
　　　　$fg = ''; &userout;
}

こういった感じです……。もしかしてadd_recordやPartnerGetに問題でもあるのかと思うのですが、普通にメッセージを残す場合は問題ありませんでしたし、いくら見てもやっぱり分かりませんでしたTT

▼関連発言
│
└◆979:MyRecordの不具合 [ミル] 03/14 12:44
　├◆980:Re:MyRecordの不具合 [ミル] 03/14 12:58
　│└◆982:Re[2]:MyRecordの不具合 [moon] 03/14 13:08
　│　└◆983:Re[3]:MyRecordの不具合 [ミル] 03/14 14:44
　│　　└◆984:Re[4]:MyRecordの不具合 [moon] 03/14 18:45
　│　　　└◆985:Re[5]:MyRecordの不具合 [ミル] 03/15 00:27
　│　　　　└◆986:Re[6]:MyRecordの不具合 [moon] 03/15 09:01<-last
　└◆981:Re:MyRecordの不具合 [moon] 03/14 13:04