Rev 10132 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 10132 | Rev 11095 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | !!CleanClass |
1 | !!CleanClass |
| 2 | !! permet de nettoyer sa classe de toute trace des travaux effectues par les apprenants |
2 | !! permet de nettoyer sa classe de toute trace des travaux effectues par les apprenants. |
| 3 | !! |
3 | !! On peut ainsi reutiliser une meme classe facilement. |
| 4 | - | ||
| 5 | - | ||
| 6 | backup_file = $wims_home/log/classes/$qclass.tgz |
- | |
| 7 | 4 | ||
| 8 | !read scripts/check.class |
5 | !read scripts/check.class |
| 9 | !if $error!=$empty |
6 | !if $error!=$empty |
| 10 | !exit |
7 | !exit |
| 11 | !endif |
8 | !endif |
| 12 | 9 | ||
| 13 | - | ||
| 14 | !read adm/class/mkuserlist $qclass |
10 | !read adm/class/mkuserlist $qclass |
| 15 | 11 | ||
| 16 | usercnt_before=!recordcnt wimshome/log/classes/$qclass/.userlist |
12 | usercnt_before=!recordcnt wimshome/log/classes/$qclass/.userlist |
| 17 | 13 | ||
| 18 | - | ||
| 19 | # ici il faut pour chaque etudiant de la classe retirer cette derniere de la variable "user_participate" de l'utilisateur dans le groupement de classe. |
- | |
| 20 | class_superclass = !defof class_superclass in $classdeffile |
14 | class_superclass = !defof class_superclass in $classdeffile |
| 21 | !if $class_superclass != $empty |
15 | !if $class_superclass != $empty |
| - | 16 | # Il faut pour chaque etudiant de la classe retirer cette derniere de la variable "user_participate" de l'utilisateur dans le groupement de classe. |
|
| 22 | !for i=1 to $usercnt_before |
17 | !for i=1 to $usercnt_before |
| 23 |
|
18 | current_user = !record $i of wimshome/log/classes/$qclass/.userlist |
| 24 |
|
19 | user_id = !item 3 of $current_user |
| 25 |
|
20 | userdeffile = wimshome/log/classes/$class_superclass/.users/$user_id |
| 26 |
|
21 | participate = !defof user_participate in $userdeffile |
| 27 |
|
22 | new_participate = !listcomplement $qclass in $participate |
| 28 |
|
23 | !if $new_participate == $empty |
| - | 24 | # Si l'utilisateur ne participe a aucune autre classe, on le supprime aussi de la superclasse. |
|
| 29 |
|
25 | !sh rm -f $wims_home/log/classes/$class_superclass/.users/$user_id |
| 30 | - | ||
| 31 |
|
26 | !else |
| 32 |
|
27 | !setdef !set user_participate=$new_participate in $userdeffile |
| 33 |
|
28 | !endif |
| 34 | !next |
29 | !next |
| 35 | !endif |
30 | !endif |
| 36 | 31 | ||
| - | 32 | backup_file = $wims_home/log/classes/$qclass.tgz |
|
| 37 | 33 | ||
| 38 | log = !sh cd $wims_home/log/classes\ |
34 | log = !sh cd $wims_home/log/classes\ |
| 39 | tar -czf $backup_file $qclass\ |
35 | tar -czf $backup_file $qclass\ |
| 40 | cd $qclass\ |
36 | cd $qclass\ |
| 41 | rm -f .log.auth\ |
37 | rm -f .log.auth\ |
| Line 45... | Line 41... | ||
| 45 | rm -f scoreavg\ |
41 | rm -f scoreavg\ |
| 46 | rm -f .grades\ |
42 | rm -f .grades\ |
| 47 | rm -f .users/*\ |
43 | rm -f .users/*\ |
| 48 | rm -f score/*\ |
44 | rm -f score/*\ |
| 49 | rm -f noscore/*\ |
45 | rm -f noscore/*\ |
| 50 | - | ||
| 51 | 46 | ||
| 52 | 47 | ||
| 53 | !! bizarrement, cette ligne ne fonctionne pas bien si elle est ajoutee aux precedentes |
48 | !! bizarrement, cette ligne ne fonctionne pas bien si elle est ajoutee aux precedentes |
| 54 | !sh cd $wims_home/log/classes/$qclass\ |
49 | !sh cd $wims_home/log/classes/$qclass\ |
| 55 |
|
50 | rm -Rf examlog |
| 56 | 51 | ||
| 57 | 52 | ||
| 58 | !read adm/class/mkuserlist $qclass |
53 | !read adm/class/mkuserlist $qclass |
| 59 | usercnt_after=!recordcnt wimshome/log/classes/$qclass/.userlist |
54 | usercnt_after=!recordcnt wimshome/log/classes/$qclass/.userlist |
| 60 | !read adm/class/stat |
55 | !read adm/class/stat |