
!if $wims_class!=$empty and $wims_user!=supervisor
 Docdir=log/classes/$wims_class
 docdir=wimshome/$Docdir
 doctype=class
!endif

authoring=!items2words $authoring
authoring=!trim $authoring
!if $authoring!=$empty
  wims_module_log=author $authoring
  u_=!lower $authoring
  u_=!singlespace $u_
  u_=!deaccent $u_
  u_=!lower $u_
  !distribute words $u_ into u1,u2,u3
!else
  !reset u1,u2,u3
!endif

!if $wims_class!=$empty
  doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
  !for i=1 to $doccnt
    l=!record $i of wimshome/log/classes/$wims_class/doc/.index
    !distribute lines $l into s_,t_,a_,e_,g_,o_,l_,A_
    !if $wims_user=supervisor or $o_>0
      slist=!append line $s_ to $slist
      tlist=!append line $t_ to $tlist
      alist=!append line $a_ to $alist
      elist=!append line $ $e_ to $elist
    !endif
  !next i
!endif
!if $wims_class=$empty
  doccnt=!recordcnt wimshome/public_html/bases/doc/.index
  ii=0
  !for i=1 to $doccnt
    l=!record $i of wimshome/public_html/bases/doc/.index
    !distribute lines $l into s_,t_,a_,e_,g_,o_,l_,A_
    !if $wims_ismanager=2 or ($u1!=$empty and ($u1 iswordof $A_ or\
        ($u2!=$empty and $u2 iswordof $A_) or\
        ($u3!=$empty and $u3 iswordof $A_)))
      i_=1
      !advance ii
    !else
      i_=0
    !endif
    !if $i_=1 or ($s_>=1000 and $s_ iswordof $openlist $edlist and $o_=yes and \
        ($l_=$empty or all iswordof $l_ or $module_language iswordof $l_))
      slist=!append line $s_ to $slist
      tlist=!append line $t_ to $tlist
      alist=!append line $a_ to $alist
      elist=!append line $ $e_ to $elist
      !!if $s_ iswordof $openlist $edlist or $wims_ismanager=2
      ilist=!append line $i to $ilist
      !!else
      !!  ilist=!append line -1 to $ilist
      !!endif
    !endif
  !next i
!endif
doccnt=!linecnt $slist
tlist=!sort nocase lines $tlist
slist=!line $wims_sort_order of $slist
alist=!line $wims_sort_order of $alist
elist=!line $wims_sort_order of $elist
ilist=!line $wims_sort_order of $ilist
