Subversion Repositories wimsdev

Rev

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

Rev 5054 Rev 9506
Line 18... Line 18...
18
neib=!defof n_$nam in wimshome/log/classes/$wims_class/neighbors
18
neib=!defof n_$nam in wimshome/log/classes/$wims_class/neighbors
19
pass=!defof user_password in $userdef
19
pass=!defof user_password in $userdef
20
pass=!word 1 of $pass
20
pass=!word 1 of $pass
21
 
21
 
22
directlist=
22
directlist=
-
 
23
 
23
!if $pass!=$empty
24
!if $pass!=$empty
24
 !for c in $neib
25
 !for c in $neib
25
  t=!defof n_$nam in wimshome/log/classes/$c/neighbors
26
  t=!defof n_$nam in wimshome/log/classes/$c/neighbors
26
  !read adm/class/userdef classes,$c,$wims_user
27
  !read adm/class/userdef classes,$c,$wims_user
27
  np=!defof user_password in $userdef
28
  np=!defof user_password in $userdef
Line 43... Line 44...
43
directlist=!listcomplement $wims_class $wims_user in $directlist
44
directlist=!listcomplement $wims_class $wims_user in $directlist
44
directlist=!nonempty items $directlist
45
directlist=!nonempty items $directlist
45
directlist=!sort items $directlist
46
directlist=!sort items $directlist
46
directcnt=!itemcnt $directlist
47
directcnt=!itemcnt $directlist
47
!if $directcnt>0
48
!if $directcnt>0
-
 
49
!!! should be commented
48
 current_pass=$pass
50
 current_pass=$pass
49
!endif
51
!endif
50
 
52