Rev 13853 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 13853 | Rev 13863 | ||
|---|---|---|---|
| Line 80... | Line 80... | ||
| 80 | !appendfile $userdeffile !set user_exists=yes |
80 | !appendfile $userdeffile !set user_exists=yes |
| 81 | 81 | ||
| 82 | #on supprime d'eventuelles traces de cet utilisateur ?? |
82 | #on supprime d'eventuelles traces de cet utilisateur ?? |
| 83 | !sh cd $wims_home/log/classes/$qclass\ |
83 | !sh cd $wims_home/log/classes/$qclass\ |
| 84 | rm -f score/$quser score/$quser.exam noscore/$quser >/dev/null |
84 | rm -f score/$quser score/$quser.exam noscore/$quser >/dev/null |
| 85 | - | ||
| 86 | !read adm/class/mkuserlist $qclass |
- | |
| 87 | 85 | ||
| 88 | !! log student have been added to class (cfr. module/adm/class/reguser/var.proc) |
86 | !! log student have been added to class (cfr. module/adm/class/reguser/var.proc) |
| 89 | date=!translate : to . in $wims_now |
87 | date=!translate : to . in $wims_now |
| 90 | !appendfile wimshome/log/classes/$qclass/.log $date $httpd_REMOTE_ADDR User $quser created: $user_lastname, $user_firstname |
88 | !appendfile wimshome/log/classes/$qclass/.log $date $httpd_REMOTE_ADDR User $quser created: $user_lastname, $user_firstname |
| - | 89 | ||
| - | 90 | !read adm/class/mkuserlist $qclass |
|
| 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 |