Subversion Repositories wimsdev

Rev

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