', if 'img ft':v3600 then
else
'',
fi,
if v907^C:'ОБРНЗ' then
if &unifor('IPRIVATE,ETR,')='obrzv' then
else
'
~~Издание в обработке. Не выдается~~
'
fi,
fi,
if v3600<>'' then
if p(v953) then
&uf('6image'),
else
&uf('6fulltext'),
fi,
else
if v920.2:'NJ' then
&uf('6njw_H'),
else
if v920.1:'J'then ,
&uf('6jw_H'),
else
&uf('6book_bo_h'),
fi,
fi ,
fi,
/*go_to_articles,
'
',
/*ПРАВА
/* g30 - идентификатор читателя
/* g31 - IP-адрес клиента
/* g32 - доменное имя клиента
/* g40 - идентификатор читателя гость
&uf('+7W30#',v1002),
&uf('+7W40#',v1112),
&uf('+7W31#',v1100),
&uf('+7W32#',v1110),
&uf('+7W13#'),
&uf('+7W13#',&uf('6right_ft_g')),
/*,' RIGHTS=',g13,' ',
&uf('+7W22#'),
if g13:'#' then
&uf('+7W22#',&uf('G3#',g13)),
&uf('+7W13#',&uf('G5#',g13)),
fi,
&uf('+7W33#'),
/* ОБРАЩЕНИЕ К БД LICH
/*&uf('+7W33#',&uf('7LICH,!I=',g30,'/',&uf('G0_',&unifor('Av2221#1')),'/',v955^a,'!,v4')),
&uf('+7W33#',&uf('7LICH,!I=',g40,'/',&uf('G0_',&unifor('Av2221#1')),'/',v955^a,'!,v4')),
/*g11 - код доступа g22 - число разрешенных страниц для скачивания если код = 2 g33 - число скачанных страниц
/*'g11=',g11,'g22=',g22,'g30=',g30,
/*,&uf('+1W55#',v3335),
/*,' Текст первой найденной страницы ',&uf('DIBIS--TEXT,@',v3502',(v27| |)'),,' ',
/*if (val(v3500) > 0) and (val(g11)>=1) then
/* ФРАГМЕНТ ТЕКСТА
/*-----------VVV-----------------------------------------
,if p(v3502) then
&uf('+7W12#',&uf('+~',v3502,',',&uf('+9I!"!//',v3335))),
if g12 <> '' then
&uf('+7W12#',&uf('+9I!!/>/',g12))),
fi,
/* 'v3502=',v3502,&uf('+1W12#',&uf('+~','40',',',&uf('+9I!"!//',v3335))),
fi,
/*'START1'
/*if (val(g11)>=1) then
/*,if &uf('+9L12,IBIS,',&uf('+3W',v955^a)) = '0' then &uf('+7W11#3') fi,
/*нет файла
,if &uf('+9L12,',&uf('Av3331#1'),',',&uf('+3W',v955^a)) = '0' then &uf('+7W11#3') else &uf('+7W11#',g13) fi,
if (g11 = '1') or (g11 = '2')
then
,&uf('+7W1#',v1104|,|),
if p(v1104) and (v955^N <> '') and (v955^N <> '0')
then
if g12 <> ''
then '
Фрагмент первой релевантной страницы полного текста:
',g12, ' >>>
',
,'
Всего найдено страниц - ',v3500,'
',
fi,
/* КОНЕЦ условия if g12 <> '' then
,
'
Постраничный просмотр полного текста
',
else
/*'START1'
if p(v3502)
then
if g12<>''
then '
Фрагмент первой релевантной страницы полного текста:
',g12, '
',fi,
fi,
/*'START2'
if (g11 = '1') or (g11 = '2')
then
if &uf('+9L12,',&uf('Av3331#1'),',',&uf('+3W',v955^a)) = '1' then
if &uf('+3S+,0,|"TXT2=',v955^a,'"|,')=v955^N then
'
Постраничный просмотр полного текста
',
fi,
fi,
else
if p(v3502)
then
if g12<>''
then '
Фрагмент первой релевантной страницы полного текста:
Фрагмент первой релевантной страницы полного текста:
',g12, '
',fi,
fi,
if g11 <>'3' then
' Нет прав на просмотр полного текста ',
fi,
fi,
/*'STOP1' - конец if (g11 = '1') or (g11 = '2')
/* ------------^^^^^---------------------------------
/*'START3'
if p(v955^a) and (v955^N <> '') and (v955^N <> '0') and p(v1002)
then
if (g11 = '2')
then
if &uf('+9L12,',&uf('Av3331#1'),',',&uf('+3W',v955^a)) = '1'
then
if (g22 = '') or (val(g22) > (val(v955^N) + val(g33)))
then
' Скачать полный текст','
',
else 'Нет прав на скачивание полного текста',
fi,
fi,
else
if g11 <>'3'
then '
Нет прав на скачивание полного текста
', else
'
Файл не найден
',
fi,
fi,
fi,
/*'STOP3'
,,,,'
>'
if v1002=v1112 then
if &uf('Av920#1'):'AS'
then
(if p(v463) then
if p(v463^W) then
&uf('+1W463#',v463),
&uf('6order'),
&uf('+1W463#',),
fi,
fi),
else
&uf('6order'),
fi, fi,
'',
/* ПОКАЗЫВАТЬ ТОЛЬКО ПРИ НАЛИЧИИ ПОЛНОГО ТЕКСТА
if val(v955^N) > 0 then
'
', fi,
'',
/* ПОКАЗЫВАТЬ ТОЛЬКО ПРИ НАЛИЧИИ ПОЛНОГО ТЕКСТА
if val(v955^N) > 0 then
'