Subversion Repositories wimsdev

Rev

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

Rev 7403 Rev 11137
Line 24... Line 24...
24 
!endif
 24 
!endif
25 
 
 25 
 
26 
 
 26 
 
27 
!set login=!text select $char_alnum in $login
 27 
!set login=!text select $char_alnum in $login
28 
!set login=!char 1 to $[$login_max -$limit] of $login
 28 
!set login=!char 1 to $[$login_max -$limit] of $login
- 
 
 29 
!set tmp=!charcnt $login
- 
 
 30 
!if $tmp<$login_min
- 
 
 31 
  !set tmp=!makelist 0 for x=1 to $login_min-$tmp
- 
 
 32 
  !set tmp=!items2words $tmp
- 
 
 33 
  !set login=!nospace $login$tmp
- 
 
 34 
  !reset tmp
- 
 
 35 
!endif
29 
!!set cl=!replace internal / by , in $cl
 36 
!!set cl=!replace internal / by , in $cl
30 
!set cl=$(cl[1])
 37 
!set cl=$(cl[1])
31 
!if $cl=$empty
 38 
!if $cl=$empty
32 
  !reset login
 39 
  !reset login
33 
  !exit
 40 
  !exit
Line 41... Line 48...
41 
      !endif
 48 
      !endif
42 
      !set tt1=!lookup $login_ext in wimshome/log/classes/$cl/.teacherlist_external
 49 
      !set tt1=!lookup $login_ext in wimshome/log/classes/$cl/.teacherlist_external
43 
      !set tt2=!lookup $login_ext in wimshome/log/classes/$cl/.userlist_external
 50 
      !set tt2=!lookup $login_ext in wimshome/log/classes/$cl/.userlist_external
44 
      !if $tt1!=$empty or $tt2!=$empty
 51 
      !if $tt1!=$empty or $tt2!=$empty
45 
!! user can be both in .userlist and in .teacherlist (see r5260)
 52 
!! user can be both in .userlist and in .teacherlist (see r5260)
46 
	!if $tt1=$tt2
 53 
	    !if $tt1=$tt2
47 
           login=$tt1
 54 
           login=$tt1
48 
        !else
 55 
        !else
49 
           login=$tt1$tt2
 56 
           login=$tt1$tt2
50 
        !endif
 57 
        !endif
51 
        !exit
 58 
        !exit
52 
      !endif
 59 
      !endif
53 
      !read adm/class/userinclass $cl,$login
 60 
      !read adm/class/userisinclass $cl,$login
54 
      !set u_exists=$script_reply
 61 
      !set u_exists=$script_reply
55 
      !increase cnt
 62 
      !increase cnt
56 
!endwhile
 63 
!endwhile
57 
!if $cnt>=$limit_while
 64 
!if $cnt>=$limit_while
58 
    !reset login
 65 
    !reset login