Subversion Repositories wimsdev

!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