Subversion Repositories wimsdev

Rev

Rev 9545 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9545 Rev 12490
Line 6... Line 6...
6 
!endif
 6 
!endif
7 
 
 7 
 
8 
authoring=!items2words $authoring
 8 
authoring=!items2words $authoring
9 
authoring=!trim $authoring
 9 
authoring=!trim $authoring
10 
!if $authoring!=$empty
 10 
!if $authoring!=$empty
11 
 wims_module_log=author $authoring
 11 
  wims_module_log=author $authoring
12 
 u_=!lower $authoring
 12 
  u_=!lower $authoring
13 
 u_=!singlespace $u_
 13 
  u_=!singlespace $u_
14 
 u_=!deaccent $u_
 14 
  u_=!deaccent $u_
15 
 u_=!lower $u_
 15 
  u_=!lower $u_
16 
 !distribute words $u_ into u1,u2,u3
 16 
  !distribute words $u_ into u1,u2,u3
17 
!else
 17 
!else
18 
 !reset u1,u2,u3
 18 
  !reset u1,u2,u3
19 
!endif
 19 
!endif
20 
 
 20 
 
21 
!if $wims_class!=$empty
 21 
!if $wims_class!=$empty
22 
 doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
 22 
  doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
23 
 !for i=1 to $doccnt
 23 
  !for i=1 to $doccnt
24 
  l=!record $i of wimshome/log/classes/$wims_class/doc/.index
 24 
    l=!record $i of wimshome/log/classes/$wims_class/doc/.index
25 
  !distribute lines $l into s_,t_,a_,e_,g_,o_,l_,A_
 25 
    !distribute lines $l into s_,t_,a_,e_,g_,o_,l_,A_
26 
  !if $wims_user=supervisor or $o_>0
 26 
    !if $wims_user=supervisor or $o_>0
27 
   slist=!append line $s_ to $slist
 27 
      slist=!append line $s_ to $slist
28 
   tlist=!append line $t_ to $tlist
 28 
      tlist=!append line $t_ to $tlist
29 
   alist=!append line $a_ to $alist
 29 
      alist=!append line $a_ to $alist
30 
   elist=!append line $ $e_ to $elist
 30 
      elist=!append line $ $e_ to $elist
31 
  !endif
 31 
    !endif
32 
 !next i
 32 
  !next i
33 
!endif
 33 
!endif
34 
!if $wims_class=$empty
 34 
!if $wims_class=$empty
35 
doccnt=!recordcnt wimshome/public_html/bases/doc/.index
 35 
  doccnt=!recordcnt wimshome/public_html/bases/doc/.index
36 
ii=0
 36 
  ii=0
37 
!for i=1 to $doccnt
 37 
  !for i=1 to $doccnt
38 
 l=!record $i of wimshome/public_html/bases/doc/.index
 38 
    l=!record $i of wimshome/public_html/bases/doc/.index
39 
 !distribute lines $l into s_,t_,a_,e_,g_,o_,l_,A_
 39 
    !distribute lines $l into s_,t_,a_,e_,g_,o_,l_,A_
40 
 !if $wims_ismanager=2 or ($u1!=$empty and ($u1 iswordof $A_ or\
 40 
    !if $wims_ismanager=2 or ($u1!=$empty and ($u1 iswordof $A_ or\
41 
	($u2!=$empty and $u2 iswordof $A_) or\
 41 
    	  ($u2!=$empty and $u2 iswordof $A_) or\
42 
	($u3!=$empty and $u3 iswordof $A_)))
 42 
    	  ($u3!=$empty and $u3 iswordof $A_)))
43 
  i_=1
 43 
      i_=1
44 
  !advance ii
 44 
      !advance ii
45 
 !else
 45 
    !else
46 
  i_=0
 46 
      i_=0
47 
 !endif
 47 
    !endif
48 
 !if $i_=1 or ($s_>=1000 and $s_ iswordof $openlist $edlist and $o_=yes and \
 48 
    !if $i_=1 or ($s_>=1000 and $s_ iswordof $openlist $edlist and $o_=yes and \
49 
	($l_=$empty or all iswordof $l_ or $module_language iswordof $l_))
 49 
    	  ($l_=$empty or all iswordof $l_ or $module_language iswordof $l_))
50 
  slist=!append line $s_ to $slist
 50 
      slist=!append line $s_ to $slist
51 
  tlist=!append line $t_ to $tlist
 51 
      tlist=!append line $t_ to $tlist
52 
  alist=!append line $a_ to $alist
 52 
      alist=!append line $a_ to $alist
53 
  elist=!append line $ $e_ to $elist
 53 
      elist=!append line $ $e_ to $elist
54 
  !!if $s_ iswordof $openlist $edlist or $wims_ismanager=2
 54 
      !!if $s_ iswordof $openlist $edlist or $wims_ismanager=2
55 
    ilist=!append line $i to $ilist
 55 
      ilist=!append line $i to $ilist
56 
  !!else
 56 
      !!else
57 
  !!  ilist=!append line -1 to $ilist
 57 
      !!  ilist=!append line -1 to $ilist
58 
  !!endif
 58 
      !!endif
59 
 !endif
 59 
    !endif
60 
!next i
 60 
  !next i
61 
!endif
 61 
!endif
62 
doccnt=!linecnt $slist
 62 
doccnt=!linecnt $slist
63 
tlist=!sort nocase lines $tlist
 63 
tlist=!sort nocase lines $tlist
64 
slist=!line $wims_sort_order of $slist
 64 
slist=!line $wims_sort_order of $slist
65 
alist=!line $wims_sort_order of $alist
 65 
alist=!line $wims_sort_order of $alist