/* для 955
if &uf('IMAIN,FULLTEXTABLE,1')='1' then
if g140 : 'IRI'
then if p(v955^A) then '
',if p(v955^T) then v955^T else 'Полный текст' fi,'', fi,
else
if p(v955^A) then '
',if p(v955^T) then v955^T else 'Постраничный просмотр полного текста' fi,'',
'
Кол-во обращений читателей к полному тексту: ',&uf('+7W1#',&uf('JLICH,COL=',&uf('+D'),"/"v955^a)),if g1='' then '0' else g1" ",'История обращений' fi,
&uf('+7W1#',f(RSUM(&uf('7LICH,!TXT=',&uf('+D'),"/"v955^a,'!,if p(v7) then "1 "d7 fi')),0,0)), /* g1 - ВСЕГО ОЦЕНОК
&uf('+7W2#',f(RSUM(&uf('7LICH,!TXT=',&uf('+D'),"/"v955^a,'!,if p(v7) then v7" " fi')),0,0)) /* g2 - СУММА ОЦЕНОК
'
Читательский рейтинг издания: ',if g1<>'' then f(val(g2)/val(g1),0,2),' (всего оценок: ',g1,')' else '0.00 (нет оценок)'fi,
fi,
fi,
fi,
/* ***
/* для 951
if &uf('IMAIN,FULLTEXTABLE,1')='1' then
(if p(v951^I) and a(v951^N) then '
',if p(v951^T) then v951^T else &uf('+\1',v951^I) fi,'', fi),
if g140 : 'IRI'
then (if p(v951^A) then '
',if p(v951^T) then v951^T else v951^A fi,'', fi),
else (if p(v951^A) and a(v951^N) then '
',if p(v951^T) then v951^T else v951^A fi,'', fi),
fi
(if v951^N<>'' then if &uf('+9V')='32' then 'Групповая ссылка работает только в ИРБИС64' else '
',if p(v951^T) then v951^T else 'Постраничный просмотр полного текста' fi,'', fi fi),
fi,(if p(v19)then if v19^a:'DOI'then If &uf('Av951#1')<>''then', 'fi,'
',|Переход по DOI|d19^b,'', fi fi)
(if p(v600) then
if p(v600^w) then
if v600^w:'VS' then
'',' ЗАПИСЬ из ЭК, "связанная" с текущей ','',' \о произв.\','
'
fi fi fi),
if val(&unifor('J,I600='v903))>0
then '
','','Есть запись "О произведении"','' fi,
if p(v691) then
if &uf('IMAIN,LimPftFull_691,10')='' and val(&uf('+N691')) > 10 OR
&uf('IMAIN,LimPftFull_691,10')<>''and val(&uf('+N691')) > val(&unifor('IMAIN,LimPftFull_691,10'))
then
'',
'
Учебная литература (в новом окне) ','','
',
else "
Учебная литература: "d691,
(|
|d691,v691^a,| / |v691^b,| / |v691^c,| / |v691^d,| / |v691^e,| / |v691^f,| / |v691^g),
fi fi,
("
Держатели документа: "|
|v902^a,| : |v902^b),
if a(v902) then if v920:'ASP' then ref(l("I="v463^w),("
Держатели документа: "|
|v902^a,| : |v902^b)) fi fi
if s(,odfp_H,)<>'' then '
',odfp_H, fi,
if p(v36^i) then '
Нотный инципит:
',
(if p(v36) then mdl,''v36^a,v36^b,v36^c,mpl,
if p(v36^a) then &uf('Av330^c#'v36^a) fi,| Часть |v36^b,if p(v36^b) then | : |d36^f fi,
| |v36^f,'',
if s(v36^d,v36^1,v36^g,v36^m,v36^n,v36^o)<>'' then mdl,' (',v36^d,v36^1,
if v36^g:'=' then &uf('G2='v36^g) else v36^g fi,mdl,v36^m,v36^n,v36^o,')',mpl,|. - |v36^q
fi,
if p(v36^p) then '
'&uf('+S0'v36^p) fi,| (|v36^t|)|,
|
[[|,v36^i|]]
| fi), mpl,
else
(if p(v953) then
if '0 2':v953^p then else
/* '
',v953^T ,'
'
'
'v953^t|
|,'',
''
fi fi)
fi