'</>',
/*G111-признак "сейчас О/V"
/* G92 - нужные 692 для ВК (если сейчас V)
/* G93 - нужное 692 с ^x:'!COM' (если сейчас V)
/* G94 - нужное 692 для филиалов (если сейчас V)
/* G95 - нужное 692 общие данные (нет ВК) (если сейчас V)
/* G692 - строки для ОС из 692 (если сейчас V)
/*(|<br>|g92)
if p(v691) then 
   if (v900^t:'L' or p(v230)) and v910='' then 
      if val(&uf('IPRIVATE,NumbComputers,0'))>0 then 
         if g36<>'' then else &uf('+7W35#'),&uf('+7W36#'),
            &uf('+7W33#'(&uf('+5Tfo_elkko.mnu')/)),
            (if p(g33) then &uf('+7W34#'),&uf('+7W34#'g33),&uf('6elres') fi/),
            &uf('+7W35#'(if p(g35) then if g35^b='' then else g35 fi fi/)),
            if rsum((g35^c|;|))>0 then 
               &uf('+7W36#^A'f(val(&uf('IPRIVATE,NumbComputers,0'))/rsum((g35^c|;|)),0,2),
               '^B'f(rsum((g35^b|;|)),0,0),'^C'f(rsum((g35^c|;|)),0,0))
         fi fi 
      '<b> Электронный учебник:<br> Компьютеров - '&uf('IPRIVATE,NumbComputers,0'),
      ', студентов - 'g36^b," ("g36^c")", ', КО - 'g36^a '</b>'
       else '<b> Электронный учебник: КО = 1 </b>' 
       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  
                '<br><b>'&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,'</b>'
                '<br><b>Экземпляров - </b>'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,
                ', <b>ККО ср.</b> - '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,
                '<br><b>Осен.  сем. :</b>  '
                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
                '<br><b>Весен. сем.:</b>  '
                   'Студентов - '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 '<br>' 
            if rsum((if p(v910) then if &unifor('Pv910^T')<>'' then '1;'fi fi))> 1 then 
                   '<b> Экз-ры общего пользования</b>' else  '<b> Для остальных</b>'  fi,
            (if p(v693) then 
                if v693^x:'!COM' then '<br><b>Экземпляров - </b>'v693^d,
                   if &uf('Ag2#1')<>'' then 
                      if &uf('Ag2^k#1')<>'' then ' (с учетом КМИ - '&uf('Ag2^k#1'),')'
                   fi fi,
                   ', <b>ККО ср.</b> - 'v693^m,if a(v693^m) then v693^f fi,
                   '<br><b>Осен.  сем. :</b>  '
                   'Студентов - '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,
                   '<br><b>Весен. сем.:</b>  '
                   'Студентов - '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 
                '<br><b>Экземпляров - </b>'v693^d,
                   if &uf('Ag2#1')<>'' then 
                      if &uf('Ag2^k#1')<>'' then ' (с учетом КМИ - '&uf('Ag2^k#1'),')' fi 
                   fi,
                   ', <b>ККО ср.</b> - 'v693^s,if a(v693^s) then v693^f fi,
                   '<br><b>Осен.  сем. :</b>  '
                   'Студентов - '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,
                   '<br><b>Весен. сем.:</b>  '
                   'Студентов - '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 
               '<b><br><br>По филиалам:</b>'  
               (if p(v693) then 
                   if p(v693^L) then 
                      '<br><b>'&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,' : <br></b>'
                      if v693^C:'V' then 
                         'ВС : Студентов - 'v693^e,',  Экз. - 'v693^d,'<b>,   ККО</b> - 'v693^f,
                         '<br>ОС : '&uf('+7W91#'),&uf('+7W91#'v693^L),&uf('6kos_filial_H'),
                      else 
                         'ОС : Студентов - 'v693^e,',  Экз. - 'v693^d,if a(v693^k) then v693^d fi 
                         '<b>,  ККО</b> - 'v693^f,
               fi fi fi)    
fi fi fi fi fi,
'<br><br>',!!KK1BO_H
if p(v699) then 
   if v699^u:'0'  then '<A HREF="IRBIS:2,,,,I='v699^w,'">Является аналогом : ',&uf('D,?I='v699^w'?,@brief'),'</A>',
   else 
      'Есть аналог',
      if &uf('Av699#2')<>'' then 'и:<br>' else ' : ' fi,
      (if p(v699) then 
          if v699^u:'1' then '<A HREF="IRBIS:2,,,,I='v699^w,'">',&uf('D,?I='v699^w'?,@brief'),'</A>','<br>' fi fi)
fi fi, 
if p(v691) then'<br>',
   "<b>"d900^c,&unifor("Khd.mnu|"v900^c),". "d900^2, &unifor("Khd.mnu|"v900^2),
   ". "d900^3,&unifor("Khd.mnu|"v900^3),". "d900^4,&unifor("Khd.mnu|"v900^4),"</b>"d900^c,
   if s(v691^d,v691^i)<>'' then'<br><b> Дисциплины: </b><br>',
      &uf('+7W666#'), &uf('+7U666#'(v691^d,| (|v691^i|)|/)),&uf('+7G666'),|; |+g666,   else &uf('DVUZ,!DUNS=',v691^W,'-S',v691^F,'!,v3^A')
   fi,
   '<table border=1  cellspacing=0>',
   '<tr>',
   '<td> Напр. </td>','<td> Спец. </td>','<td> УП/Д </td>','<td> Фак. </td>',
   '<td> Каф.Ч.</td>','<td> Сем.  </td>','<td> ФО </td>','<td> Тип </td>',
   '</tr>',
   (if p(v691) then 
       '<tr><td>'v691^n,|-|n691^n,'</td><td>'v691^c,|-|n691^c,'</td><td>'v691^u,v691^w,'</td><td>'v691^a,|-|n691^a,
       '</td><td>'v691^b,|-|n691^b,'</td><td>'v691^f,|-|n691^f,'</td><td>'v691^o,|-|n691^o,'</td><td>'v691^g,|-|n691^g'</td></tr>',
    fi),
   '</table> '
   if s(v691^u)<>'' then 
      (if p(v691) then 
          if p(v691^u) then '<br>',&unifor('DVUZ,"UPS=',v691^u'-S'v691^f,'",@gr') 
       fi fi),
   fi,
   if &uf('IPrivate,KATKO=,0')='0' or &uf('IMAIN,AccessRDR=,0')='1' then else 
      if s(v691^w)<>'' then 
         (if p(v691) then 
             if p(v691^w) then '\par ',&unifor('DVUZ,"DUNS=',v691^w'-S'v691^f,'",@gr') 
          fi fi),
fi fi fi,
if p(v692) then '<br><b> Данные по книгообеспеченности (из архивных полей)</b>'
'<table border=1 cellspacing=0>',
'<tr>',
'<td> Уч.год </td>','<td> О/В </td>','<td> Экз.</td>',
'<td> Студ.</td>','<td> ВК </td>','<td> Филиал</td>',
'<td> KКО для<br>ВК/Филиал</td>','<td> ККО не ВК <br> (ост/общ.польз)</td>','<td> ККО общ.<br>(без учета ВК) </td>',
'</tr>',
   (if p(v692) then 
       if p(v692^z) and a(v692^f) then else 
       '<tr> <td>'v692^b,|-|n692^b,'</td><td>'v692^c,|-|n692^c,'</td><td>'v692^d,|-|n692^d,
       '</td><td>'v692^e,|-|n692^e,'</td><td>'v692^a,|-|n692^a,'</td><td>'v692^l,|-|n692^l,
       '</td><td>'if p(v692^a) then v692^f else'-'fi,'</td><td>'v692^m,|-|n692^m,
       '</td><td>'if a(v692^a) then v692^f,if a(v692^f) then v692^n fi 
                  else v692^n,|-|n692^n fi,if s(v692^f,v692^n)='' then '-' fi,
    fi fi),
'</table> '
fi,
'<br>'&uf('Y'),
/*if p(v910) then '<br>'&unifor('6oex910_H') fi,
(if p(v951^I) then '<br><A HREF="',&uf('+\1',v951^I),'">',if p(v951^T) then v951^T else &uf('+\1',v951^I) fi,'</A>', fi),
(if p(v951^A) then '<br><A HREF="IRBIS:3,10,,',v951^A,'">',if p(v951^T) then v951^T else v951^A fi,'</A>', fi), 

mpl,
'<br> ----------------------------------------<br>',&unifor('!')