Subversion Repositories wimsdev

Rev

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

Rev 9909 Rev 10132
Line 48... Line 48...
48 
    #l'utilisateur existait deja dans la superclasse. on lui donne simplement acces a la sous-classe.
 48 
    #l'utilisateur existait deja dans la superclasse. on lui donne simplement acces a la sous-classe.
49 
    !setdef !set user_participate=$user_participate$subclass in $userdeffile
 49 
    !setdef !set user_participate=$user_participate$subclass in $userdeffile
50 
 
 50 
 
51 
    ### Faut-il aussi l'ajouter dans la sous-classe ici ?
 51 
    ### Faut-il aussi l'ajouter dans la sous-classe ici ?
52 
    ### normalement, mkuserlist va s'en charger ?
 52 
    ### normalement, mkuserlist va s'en charger ?
53 
 
 - 
 
54 
    !exit
 53 
    !exit
55 
  !else
 54 
  !else
56 
    error=user already exists in this class ($qclass)
 55 
    error=user already exists in this class ($qclass)
57 
    !exit
 56 
    !exit
58 
  !endif
 57 
  !endif
59 
!endif
 58 
!endif
60 
 
 59 
 
61 
data1=!nonempty lines $data1
 60 
data1=!nonempty lines $data1
62 
n=!linecnt $data1
 61 
n=!linecnt $data1
63 
!for i=1 to $n
 62 
!for i=1 to $n
64 
 l=!line $i of $data1
 63 
 l=!line $i of $data1
Line 71... Line 70...
71 
!next i
 70 
!next i
72 
 
 71 
 
73 
!if $user_password=$empty or $user_lastname=$empty
 72 
!if $user_password=$empty or $user_lastname=$empty
74 
 error=missing data
 73 
 error=missing data
75 
 !exit
 74 
 !exit
76 
!endif
 75 
!endif
77 
 
 76 
 
78 
!writefile $userdeffile
 77 
!writefile $userdeffile
79 
!for d in $userdefs
 78 
!for d in $userdefs
80 
 !appendfile $userdeffile !set user_$d=$(user_$d)
 79 
 !appendfile $userdeffile !set user_$d=$(user_$d)
81 
!next d
 80 
!next d
Line 86... Line 85...
86 
 rm -f score/$quser score/$quser.exam noscore/$quser >/dev/null
 85 
 rm -f score/$quser score/$quser.exam noscore/$quser >/dev/null
87 
 
 86 
 
88 
!read adm/class/mkuserlist $qclass
 87 
!read adm/class/mkuserlist $qclass
89 
!! 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)
90 
date=!translate : to . in $wims_now
 89 
date=!translate : to . in $wims_now
91 
!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
92 
 
 91 
 
93 
!if $class_superclass != $empty
 92 
!if $class_superclass != $empty
94 
  !read adm/class/mkuserlist $subclass
 93 
  !read adm/class/mkuserlist $subclass
95 
!endif
 94 
!endif
96 
class_type=!defof class_type in $classdeffile
 95 
class_type=!defof class_type in $classdeffile
97 
!if $class_type=4 or $class_type=2
 96 
!if $class_type=4 or $class_type=2
98 
!! 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
99 
  !read adm/gateway/mkteacherlist $qclass
 98 
  !read adm/gateway/mkteacherlist $qclass
100 
!endif
 99 
!endif
101 
 
 - 
 
102 
 
 - 
 
- 
 
 100 
!read adm/class/stat