Subversion Repositories wimsdev

Rev

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

Rev 11095 Rev 13853
Line 5... Line 5...
5 
!if $error!=$empty
 5 
!if $error!=$empty
6 
 !exit
 6 
 !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
quser=!word 1 of $quser
 9 
quser=!word 1 of $quser
10 
# Les "." présents dans quser sont transformés en arobases.
 10 
# Les "." présents dans quser sont transformés en arobases.
11 
quser=!translate internal . to @ in $quser
 11 
quser=!translate internal . to @ in $quser
12 
quser=!text select $char_login in $quser
 12 
quser=!text select $char_login in $quser
13 
l=!charcnt $quser
 13 
l=!charcnt $quser
14 
!if $quser=supervisor or $l<$login_min or $l>$login_max
 14 
!if $quser=supervisor or $l<$login_min or $l>$login_max
15 
 error= login name must not be $quser (illegal, or wrong length)
 15 
 error= login name must not be $quser (illegal, or wrong length)
Line 85... Line 85...
85 
 
 85 
 
86 
!read adm/class/mkuserlist $qclass
 86 
!read adm/class/mkuserlist $qclass
87 
 
 87 
 
88 
!! log student have been added to class (cfr. module/adm/class/reguser/var.proc)
 88 
!! log student have been added to class (cfr. module/adm/class/reguser/var.proc)
89 
date=!translate : to . in $wims_now
 89 
date=!translate : to . in $wims_now
90 
!appendfile wimshome/log/classes/$qclass/.log $date $httpd_REMOTE_ADDR      User $quser added
 90 
!appendfile wimshome/log/classes/$qclass/.log $date $httpd_REMOTE_ADDR      User $quser created: $user_lastname, $user_firstname
91 
 
 91 
 
92 
!if $class_superclass != $empty
 92 
!if $class_superclass != $empty
93 
  !read adm/class/mkuserlist $subclass
 93 
  !read adm/class/mkuserlist $subclass
94 
!endif
 94 
!endif
95 
class_type=!defof class_type in $classdeffile
 95 
class_type=!defof class_type in $classdeffile