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 | ||