Rev 4667 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4561 | obado | 1 | # GetExamLog |
| 2 | # Fournit les logs des examens du user quser |
||
| 14052 | bpr | 3 | |
| 4667 | obado | 4 | #on commence par verifier la classe $qclass |
| 5 | !read scripts/check.class |
||
| 6 | !if $error!=$empty |
||
| 14052 | bpr | 7 | !exit |
| 4667 | obado | 8 | !endif |
| 14052 | bpr | 9 | |
| 3261 | obado | 10 | !read scripts/check.user |
| 11 | !if $error!=$empty |
||
| 14052 | bpr | 12 | !exit |
| 3261 | obado | 13 | !endif |
| 14 | |||
| 15 | eleveslist = !sh cd $wims_class_dir/examlog; ls | sort |
||
| 16 | nbeleves= !linecnt $eleveslist |
||
| 17 | |||
| 18 | !if $quser notlineof $eleveslist |
||
| 19 | error=the user $quser hasn't any exam log in this class. |
||
| 14052 | bpr | 20 | !exit |
| 21 | !endif |
||
| 3261 | obado | 22 | sessionslist = !sh cd $wims_class_dir/examlog/$quser; ls | sort |
| 23 | nbsessions= !linecnt $sessionslist |
||
| 24 | |||
| 25 | session1= !line 1 of $sessionslist |
||
| 26 | |||
| 27 | exoslist = !sh cd $wims_class_dir/examlog/$quser/$session1; ls | sort |
||
| 14052 | bpr | 28 | nbexos= !linecnt $exoslist |