Rev 16257 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2368 | bpr | 1 | !read adm/class/classlang names.phtml |
8255 | bpr | 2 | max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf |
3 | max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf |
||
23 | reyssat | 4 | |
5 | wims_prefix=class user tmp n sharing sharable |
||
6 | !if $wims_class=$empty or $wims_user=$empty |
||
14156 | bpr | 7 | :home |
8 | !restart module=home&cmd=new |
||
23 | reyssat | 9 | !endif |
10 | |||
11 | !if $wims_user!=supervisor |
||
14156 | bpr | 12 | checkuser=$wims_user |
8484 | bpr | 13 | !else |
14 | !default checkuser=supervisor |
||
23 | reyssat | 15 | !endif |
16 | |||
8484 | bpr | 17 | !bound job within log,llist,list,check,examcheck,erase default list |
23 | reyssat | 18 | sdir=$wims_home/$wims_sesdir |
19 | cdir=$wims_home/log/classes/$wims_class |
||
8255 | bpr | 20 | !bound $logsheet between integer 1 and $max_sheets default $ |
21 | !bound $logexo between integer 1 and $max_exos default $ |
||
16821 | guerimand | 22 | |
23 | !if $job=log |
||
24 | !read $job.proc |
||
25 | !endif |
||
26 | |||
8484 | bpr | 27 | !if $job=erase |
9609 | bpr | 28 | !if $source!=$empty |
14156 | bpr | 29 | !sh rm $cdir/$source |
9609 | bpr | 30 | !endif |
8484 | bpr | 31 | job=list |
32 | !endif |
||
23 | reyssat | 33 | |
34 | |||
35 | !if $job iswordof check examcheck |
||
14156 | bpr | 36 | !if _check isin $wims_session |
16257 | guerimand | 37 | !if $checkexo!=file |
38 | !default checkexo=$logcheck |
||
39 | logfile=classes/$wims_class/exolog/$checkuser/$checkexo |
||
40 | exos=!filelist $wims_home/log/classes/$wims_class/exolog/$checkuser |
||
41 | exos=!words2items $exos |
||
42 | !endif |
||
14156 | bpr | 43 | !read adm/class/exocheck |
44 | !endif |
||
45 | job=list |
||
23 | reyssat | 46 | !endif |
47 | |||
48 | !if $job=list |
||
14156 | bpr | 49 | exologs=!filelist -r $wims_home/log/classes/$wims_class/exolog/$checkuser |
50 | exolog2=!translate - to , in $exologs |
||
51 | exologcnt=!linecnt $exolog2 |
||
52 | !sh cd $wims_home/$wims_sesdir\ |
||
53 | mkdir -p getfile\ |
||
54 | rm -f getfile/exolog\ |
||
55 | ln -s $wims_home/log/classes/$wims_class/exolog/$checkuser getfile/exolog |
||
1733 | bpr | 56 | userdir=!item -1 of $wims_superclass |
57 | !default userdir=$wims_class |
||
58 | userdir=log/classes/$userdir/.users |
||
59 | !set names=!getdef user_firstname,user_lastname in wimshome/$userdir/$checkuser |
||
8484 | bpr | 60 | !default names=$checkuser |
23 | reyssat | 61 | !endif |
62 | |||
63 | !if $job=llist |
||
14156 | bpr | 64 | !if $logsheet=$empty |
65 | !goto home |
||
66 | !endif |
||
67 | prelogs=!filelist $wims_home/$wims_sesdir/exolog.$logsheet.* |
||
68 | !if $prelogs=$empty |
||
69 | prelogs=!filelist $wims_home/$wims_sesdir/exolog |
||
70 | !endif |
||
71 | prelog2=!words2items $prelogs |
||
72 | prelog3=!translate internal . to , in $prelogs |
||
73 | prelogcnt=!itemcnt $prelog2 |
||
23 | reyssat | 74 | !endif |