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 |