ревизия 120
дебагер:
Global symbol "$out" requires explicit package name at /usr/local/nodeny/web/_ajUserInfo2.pl line 112.
Compilation failed in require at /usr/local/nodeny/web/calls.pm line 1075.
Compilation failed in require at /usr/local/nodeny/web/calls.pm line 1075.
в коде не хватает
my {
Adm->chk_privil('edt_usr') or last;
my %p = Db->line("SELECT id FROM pays WHERE mid=? AND category=202 AND reason='credit' LIMIT 1", $uid);
Db->ok or last;
%p && last;
my $domid = v::get_uniq_id();
my $success = 'Клиент не сможет самостоятельно оформить кредит в клиентской статистике';
my $link = url->a('Заблокировать кредиты', a=>'ajBlockPay', mod=>'credit', uid=>$uid, success=>$success, domid=>$domid, -ajax=>1);
$out.= _('[li]', _("[div id=$domid]",$link) );
}
последний рядок заменить на
my $out.= _('[li]', _("[div id=$domid]",$link) );