Subversion Repositories wimsdev

Rev

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

Rev 10132 Rev 11095
Line 13... Line 13...
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)
16 
 !exit
 16 
 !exit
17 
!endif
 17 
!endif
18 
 
 - 
 
19 
 
 18 
 
20 
class_superclass=!defof class_superclass in $classdeffile
 19 
class_superclass=!defof class_superclass in $classdeffile
21 
 
 20 
 
22 
#on ajoute pas un utilisateur dans une sous-classe. toujours dans sa superclasse.
 21 
#on ajoute pas un utilisateur dans une sous-classe. toujours dans sa superclasse.
23 
!if $class_superclass != $empty
 22 
!if $class_superclass != $empty
Line 53... Line 52...
53 
    !exit
 52 
    !exit
54 
  !else
 53 
  !else
55 
    error=user already exists in this class ($qclass)
 54 
    error=user already exists in this class ($qclass)
56 
    !exit
 55 
    !exit
57 
  !endif
 56 
  !endif
58 
!endif
 57 
!endif
59 
 
 58 
 
60 
data1=!nonempty lines $data1
 59 
data1=!nonempty lines $data1
61 
n=!linecnt $data1
 60 
n=!linecnt $data1
62 
!for i=1 to $n
 61 
!for i=1 to $n
63 
 l=!line $i of $data1
 62 
 l=!line $i of $data1
64 
 l=!translate = to $\
 63 
 l=!translate = to $\
Line 83... Line 82...
83 
#on supprime d'eventuelles traces de cet utilisateur ??
 82 
#on supprime d'eventuelles traces de cet utilisateur ??
84 
!sh cd $wims_home/log/classes/$qclass\
 83 
!sh cd $wims_home/log/classes/$qclass\
85 
 rm -f score/$quser score/$quser.exam noscore/$quser >/dev/null
 84 
 rm -f score/$quser score/$quser.exam noscore/$quser >/dev/null
86 
 
 85 
 
87 
!read adm/class/mkuserlist $qclass
 86 
!read adm/class/mkuserlist $qclass
- 
 
 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 added
91 
 
 91 
 
92 
!if $class_superclass != $empty
 92 
!if $class_superclass != $empty
Line 95... Line 95...
95 
class_type=!defof class_type in $classdeffile
 95 
class_type=!defof class_type in $classdeffile
96 
!if $class_type=4 or $class_type=2
 96 
!if $class_type=4 or $class_type=2
97 
!! need also to read mkteacherlist as you might want to add users wish user_supervisable=yes
 97 
!! need also to read mkteacherlist as you might want to add users wish user_supervisable=yes
98 
  !read adm/gateway/mkteacherlist $qclass
 98 
  !read adm/gateway/mkteacherlist $qclass
99 
!endif
 99 
!endif
- 
 
 100 
 
100 
!read adm/class/stat
 101 
!read adm/class/stat