Subversion Repositories wimsdev

Rev

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

Rev 10747 Rev 12808
Line 1... Line 1...
1
examtest=!sh cat $wims_home/$wims_sesdir/examreg.* 2>/dev/null
1
examtest=!sh cat $wims_home/$wims_sesdir/examreg.* 2>/dev/null
2
!if $examtest!=$empty
2
!if $examtest!=$empty
3
 et=!words2items $examtest
3
  et=!words2items $examtest
4
 !for i in $et
4
  !for i in $et
5
  !if $i>0
5
    !if $i>0
6
   error=in_exam
6
      error=in_exam
7
   type=none
7
      type=none
8
   !exit
8
      !exit
9
  !endif
9
    !endif
-
 
10
  !next
10
!endif
11
!endif
11
 
12
 
12
!if $wims_user=supervisor
13
!if $wims_user=supervisor
13
 nam=sup
14
  nam=sup
14
!else
15
!else
15
 nam=part
16
  nam=part
16
!endif
17
!endif
17
!read adm/class/userdef classes,$wims_class,$wims_realuser
18
!read adm/class/userdef classes,$wims_class,$wims_realuser
18
!set user_supervisable=!defof user_supervisable in $userdef
19
!set user_supervisable=!defof user_supervisable in $userdef
19
!if $user_supervisable=yes
20
!if $user_supervisable=yes
20
  !set user_supervise=!defof user_supervise in $userdef
21
  !set user_supervise=!defof user_supervise in $userdef
Line 29... Line 30...
29
pass=!word 1 of $pass
30
pass=!word 1 of $pass
30
 
31
 
31
directlist=
32
directlist=
32
 
33
 
33
!if $pass!=$empty
34
!if $pass!=$empty
34
 !for c in $neib
35
  !for c in $neib
35
  t=!defof n_$nam in wimshome/log/classes/$c/neighbors
36
    t=!defof n_$nam in wimshome/log/classes/$c/neighbors
36
  !read adm/class/userdef classes,$c,$wims_user
37
    !read adm/class/userdef classes,$c,$wims_user
37
  np=!defof user_password in $userdef
38
    np=!defof user_password in $userdef
38
  np=!word 1 of $np
39
    np=!word 1 of $np
39
  np=!passcrypt $np
40
    np=!passcrypt $np
40
  passc=!passcrypt $pass
41
    passc=!passcrypt $pass
41
  !if $wims_class isitemof $t and $np=$passc
42
    !if $wims_class isitemof $t and $np=$passc
42
   !if $auth_method isitemof $auth_method_list
43
      !if $auth_method isitemof $auth_method_list
43
     directlist=!append item $c $user_auth_external to $directlist
44
        directlist=!append item $c $user_auth_external to $directlist
44
   !else
45
      !else
45
     directlist=!append item $c $wims_user to $directlist
46
        directlist=!append item $c $wims_user to $directlist
46
   !endif
47
      !endif
47
  !endif
48
    !endif
48
 !next c
49
  !next c
49
!endif
50
!endif
50
 
51
 
51
directlist=!append item $directlist to $wims_otherclass
52
directlist=!append item $directlist to $wims_otherclass
52
directlist=!listuniq $directlist
53
directlist=!listuniq $directlist
53
directlist=!listcomplement $wims_class $wims_user in $directlist
54
directlist=!listcomplement $wims_class $wims_user in $directlist
54
directlist=!nonempty items $directlist
55
directlist=!nonempty items $directlist
55
directlist=!sort items $directlist
56
directlist=!sort items $directlist
56
directcnt=!itemcnt $directlist
57
directcnt=!itemcnt $directlist
57
!if $directcnt>0
58
!if $directcnt>0
58
!!! should be commented
59
!!! should be commented
59
 current_pass=$pass
60
  current_pass=$pass
60
!endif
61
!endif
61
 
-