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