Vodmal
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ладно, надоело мне ждать у моря погоды и хоть в Perl'е я почти не разбираюсь побороть этот баг у меня получилось: Ищем в \Sources\UserCP\Messenger.pm текст: Код: my $Row = $db->query( TABLE => 'message_data', WHERE => "MESSAGE_ID == $iB::IN{'MSID'} and MEMBER_ID == \'$iB::MEMBER->{'MEMBER_ID'}\'", ); | и меняем на: Код: my $Row = $db->query( TABLE => 'message_data', ID => $obj->{'R_MEMBER'}->{'MEMBER_ID'}, WHERE => qq[MEMBER_ID eq "$obj->{'R_MEMBER'}->{'MEMBER_ID'}" and MESSAGE_ID eq "$iB::IN{'MSID'}"] ); |
|