'>',
/*G111-признак "сейчас О/V"
/* G92 - нужные 692 для ВК (если сейчас V)
/* G93 - нужное 692 с ^x:'!COM' (если сейчас V)
/* G94 - нужное 692 для филиалов (если сейчас V)
/* G95 - нужное 692 общие данные (нет ВК) (если сейчас V)
/* G692 - строки для ОС из 692 (если сейчас V)
/*(|
|g92)
if p(v691) then
if val(&uf('6KoElectro'))=1
then
' Электронный учебник: КО = 1 '
else
if (val(&uf('6KoElectro'))=2) and (val(&uf('IPRIVATE,AnalogElRes,0'))=1)
then
' Есть аналог - электронный учебник: КО = 1 '
else
/*---------срок действия?
if p(v955^B)
then
&uf('+7W1#',&uf('DRIGHT,!I=',v955^B,'!,v2^E') ),,
if g1<>'' and g1<=&uf('3') then ' Электронный учебник - истек срок действия ' fi,,,
else
&uf('+7W111#'),&uf('+7W111#'if &unifor('IPRIVATE,DATFINOS,')<>'' and val(&unifor('3')) < val(&unifor('IPRIVATE,DATFINOS,')) or
&unifor('IPRIVATE,DATFINOS,')='' and val(&unifor('34'))>8 then 'O' else 'V' fi),
&uf('+7W2#'),&uf('+7W2#'(if p(v693) then if v693^x:'!COM' then v693 fi fi),
if rsum((if p(v910) then if &unifor('Pv910^T')<>'' then '1;'fi fi))> 1 then '^T1'fi),
&uf('+7W62#'),&uf('+7W62#'(if p(v692) then if v692^b:s(f(val(&unifor('30'))-1,0,0),'/') then
if v692^x:'!COM' then v692 fi fi fi)),
&uf('+7W92#'),&uf('+7W93#'),&uf('+7W94#'),&uf('+7W95#'),
(if p(v692) then if v692^b:s(f(val(&unifor('30'))-1,0,0),'/') then
if p(v692^a) then &uf('+7U92#'v692) fi,
if v692^x:'!COM' then &uf('+7U93#'v692) fi,
if p(v692^L) then &uf('+7U94#'v692) fi,
fi fi/),
if s(v692^a,v692^L)='' then
(if p(v692) then if v692^b:s(f(val(&unifor('30'))-1,0,0),'/') then
if a(v692^x) then &uf('+7U95#'v692) fi fi fi) fi,
if v693^a<>'' then
(if p(v693) then
if p(v693^a) then
'
'&unifor('Knaznac.mnu\'v693^a)
if &unifor('Knaznac.mnu\'v693^a)='' then &unifor('Knaznac.mnu\'&uf('Q'v693^a))
if &unifor('Knaznac.mnu\'&uf('Q'v693^a))='' then &unifor('Knaznac.mnu\'&uf('+97'v693^a))
fi fi,''
'
Экземпляров - 'v693^d,| (с учетом КМИ - |v693^k|)|
if &uf('Ag2#1')<>'' then
if &uf('Ag2^k#1')<>'' then ' + общ.' else ' ( + 'fi,&uf('Ag2^d#1'),
if &uf('Ag2^k#1')<>'' then ' (с учетом КМИ - '&uf('Ag2^k#1')')' else ' общ.)' fi
fi,
', ККО ср. - 'v693^s,if a(v693^s) then f(val(v693^f)+val(if &uf('Ag2^t#1'):'1' then &uf('Ag2^m#1') fi),0,2) fi,
'
Осен. сем. : '
if &uf('Ag111#1'):'O' then
'Студентов - 'v693^e,if &uf('Ag2#1')<>'' then ' (всего '&uf('Ag2^e#1'),')' fi
', Экз - 'v693^k,if a(v693^k) then v693^d fi,
if &uf('Ag2#1')<>'' then ' ( + '&uf('Ag2^k#1')
if &uf('Ag2^k#1')='' then &uf('Ag2^d#1')fi,'общ.)'fi,
', ККО - 'f(val(v693^f)+val(if &uf('Ag2^t#1'):'1' then &uf('Ag2^m#1') fi),0,2)
else &uf('+7W91#'),&uf('+7W91#'v693^a),&uf('6kos692_H'),
fi
'
Весен. сем.: '
'Студентов - 'if &uf('Ag111#1'):'V' then v693^e,fi
if &uf('Ag2#1')<>'' then ' (всего '&uf('Ag2^e#1'),')' fi
', Экз - 'if &uf('Ag111#1'):'V' then v693^k,if a(v693^k) then v693^d fi fi,
if &uf('Ag2#1')<>'' then ' ( + '&uf('Ag2^k#1')
if &uf('Ag2^k#1')='' then &uf('Ag2^d#1')fi,'общ.)'fi,
', ККО - 'if &uf('Ag111#1'):'V' then f(val(v693^f)+val(if &uf('Ag2^t#1'):'1' then &uf('Ag2^m#1') fi),0,2) fi
fi fi),
if g2<>'' then '
'
if rsum((if p(v910) then if &unifor('Pv910^T')<>'' then '1;'fi fi))> 1 then
' Экз-ры общего пользования' else ' Для остальных' fi,
(if p(v693) then
if v693^x:'!COM' then '
Экземпляров - 'v693^d,
if &uf('Ag2#1')<>'' then
if &uf('Ag2^k#1')<>'' then ' (с учетом КМИ - '&uf('Ag2^k#1'),')'
fi fi,
', ККО ср. - 'v693^m,if a(v693^m) then v693^f fi,
'
Осен. сем. : '
'Студентов - 'if &uf('Ag111#1'):'O' then v693^e else &uf('Ag93^e#1') fi,
', Экз - 'if &uf('Ag111#1'):'O' then v693^k,if a(v691^k) then v693^d fi
else &uf('Ag93^k#1'),if &uf('Ag95^k#1')='' then &uf('Ag95^d#1') fi fi,
', ККО - 'if &uf('Ag111#1'):'O' then v693^m else &uf('Ag93^m#1') fi,
'
Весен. сем.: '
'Студентов - 'if &uf('Ag111#1'):'V' then v693^e,fi,
', Экз - 'if &uf('Ag111#1'):'V' then v693^k,if a(v693^k) then v693^d fi fi,
', ККО - 'if &uf('Ag111#1'):'V' then v693^m fi
fi fi)
fi
else
if s(v693^a,v693^L)='' then
(if p(v693) then
if p(v693^x) then else
'
Экземпляров - 'v693^d,
if &uf('Ag2#1')<>'' then
if &uf('Ag2^k#1')<>'' then ' (с учетом КМИ - '&uf('Ag2^k#1'),')' fi
fi,
', ККО ср. - 'v693^s,if a(v693^s) then v693^f fi,
'
Осен. сем. : '
'Студентов - 'if &uf('Ag111#1'):'O' then v693^e else &uf('Ag95^e#1') fi,
', Экз - 'if &uf('Ag111#1'):'O' then v693^k,if a(v693^k) then v693^d fi
else &uf('Ag95^k#1'),if &uf('Ag95^k#1')='' then &uf('Ag95^d#1') fi fi,
', ККО - 'if &uf('Ag111#1'):'O' then v693^f else &uf('Ag95^f#1') fi,
'
Весен. сем.: '
'Студентов - 'if &uf('Ag111#1'):'V' then v693^e,fi,
', Экз - 'if &uf('Ag111#1'):'V' then v693^k,if a(v693^k) then v693^d fi fi,
', ККО - 'if &uf('Ag111#1'):'V' then v693^f fi
fi fi)
else
if v693^L<>'' then
'
По филиалам:'
(if p(v693) then
if p(v693^L) then
'
'&uf('Kfili.mnu\'v693^L)
if &uf('Kfili.mnu\'v693^L)='' then &uf('Kfili.mnu\'s(v693^L.1,&uf('Q'v693^L*1)))
if &uf('Kfili.mnu\'s(v693^L.1,&uf('Q'v693^L*1)))='' then &uf('Kfili.mnu\'&uf('+97'v693^L))
fi fi,' :
'
if v693^C:'V' then
'ВС : Студентов - 'v693^e,', Экз. - 'v693^d,', ККО - 'v693^f,
'
ОС : '&uf('+7W91#'),&uf('+7W91#'v693^L),&uf('6kos_filial_H'),
else
'ОС : Студентов - 'v693^e,', Экз. - 'v693^k,if a(v693^k) then v693^d fi
', ККО - 'v693^f,
fi fi fi)
fi fi fi fi fi fi fi,
'
',!!KK1BO_H,
if p(v691) then
if &uf('IMAIN,LimPftFull_boko691,10')='' and val(&uf('+N691')) > 10 OR
&uf('IMAIN,LimPftFull_boko691,10')<>''and val(&uf('+N691')) > val(&unifor('IMAIN,LimPftFull_boko691,10'))
then
'',
'
Учебная литература (в новом окне) ','','
',
else , 691tab_H ,
fi,,,'
'
fi,
mpl,
if p(v694)
then
'
Заказана литература для: ','','
',
(if p(v694) then v694^D,,| - |v694^A,,| - |v694^N,,| - |v694^C,,| - |v694^V,,| - |v694^O,,| - |v694^1| экз.|,,|; автор заявки: |v694^9,,|
|d694 fi /),,,,
fi,,/* сведения о всех экземплярах
,Oex910_H_full,
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,'', fi,
fi,
fi,
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,
'
----------------------------------------
',&unifor('!')