Subversion Repositories wimsdev

Rev

Rev 16355 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16355 Rev 16364
Line 27... Line 27...
27 
userses=!item $numberses of $list_window
 27 
userses=!item $numberses of $list_window
28 
!if tchat isin $userses
 28 
!if tchat isin $userses
29 
  error=addressplay
 29 
  error=addressplay
30 
  !exit
 30 
  !exit
31 
!endif
 31 
!endif
- 
 
 32 
 
- 
 
 33 
!readproc script/mktitle.proc $userses
- 
 
 34 
 
32 
!reset logfile
 35 
!!reset logfile
33 
!if exam isin $userses
 36 
!!!if exam isin $userses
34 
  !! case of exercise in an exam
 37 
!!  !! case of exercise in an exam
35 
  userbasesession=!replace _ by , in $userses
 38 
!!  userbasesession=!replace _ by , in $userses
36 
  userbasesession=!item 1 of $userbasesession
 39 
!!  userbasesession=!item 1 of $userbasesession
37 
  tmp=!replace internal $(userbasesession)_examt by $empty in $userses
 40 
!!  tmp=!replace internal $(userbasesession)_examt by $empty in $userses
38 
  tmp=!replace t by . in $tmp
 41 
!!  tmp=!replace t by . in $tmp
39 
  logfile=wimshome/log/classes/$wims_class/examlog/$user/$userbasesession/$tmp
 42 
!!  logfile=wimshome/log/classes/$wims_class/examlog/$user/$userbasesession/$tmp
40 
!else
 43 
!!else
41 
  !! case of an exercise in a sheet
 44 
!!  !! case of an exercise in a sheet
42 
  tmp=!defof w_wims_exo,w_wims_sheet,w_module in wimshome/sessions/$userses/var
 45 
!!  tmp=!defof w_wims_exo,w_wims_sheet,w_module in wimshome/sessions/$userses/var
43 
  !distribute item $tmp into userexo,usersheet,exomod
 46 
!!  !distribute item $tmp into userexo,usersheet,exomod
44 
  !if $usersheet!=$empty and $userexo!=$empty
 47 
!!  !if $usersheet!=$empty and $userexo!=$empty
45 
    logfile=wimshome/sessions/$userses/exolog.$usersheet.$userexo
 48 
!!    logfile=wimshome/sessions/$userses/exolog.$usersheet.$userexo
46 
  !else
 49 
!!  !else
47 
    !! case of a exercise (not in a sheet for exemple in a document)
 50 
!!    !! case of a exercise (not in a sheet for exemple in a document)
48 
    category=!defof category in wimshome/public_html/modules/$exomod/INDEX
 51 
!!    category=!defof category in wimshome/public_html/modules/$exomod/INDEX
49 
    !if exercise isin $category
 52 
!!    !if exercise isin $category
50 
      logfile=wimshome/sessions/$userses/exolog
 53 
!!      logfile=wimshome/sessions/$userses/exolog
51 
    !endif
 54 
!!    !endif
52 
  !endif
 55 
!!  !endif
53 
!endif
 56 
!!!endif
- 
 
 57 
 
- 
 
 58 
 
- 
 
 59 
 
54 
!if $logfile!=$empty
 60 
!if $logfile!=$empty
55 
  !! ----------- use adm/class/exolog module to display exo in a sheet or exam
 61 
  !! ----------- use adm/class/exolog module to display exo in a sheet or exam
56 
  test=!fileexists $logfile
 62 
  test=!fileexists $logfile
57 
  !if $test!=yes
 63 
  !if $test!=yes
58 
    error=addressplay
 64 
    error=addressplay
Line 77... Line 83...
77 
w_wims_req_time=$wims_req_time\
 83 
w_wims_req_time=$wims_req_time\
78 
w_wims_session_serial=$wims_session_serial\
 84 
w_wims_session_serial=$wims_session_serial\
79 
w_wims_session_start_time=$wims_session_start_time
 85 
w_wims_session_start_time=$wims_session_start_time
80 
 
 86 
 
81 
    !setdef wims_checkfile=$logfile in wimshome/$wims_sesdir/var.stat
 87 
    !setdef wims_checkfile=$logfile in wimshome/$wims_sesdir/var.stat
82 
    !setdef wims_checktitle=$name_title in wimshome/sessions/$basesession/var.stat
 88 
    !setdef wims_checktitle=$output_title in wimshome/sessions/$basesession/var.stat
83 
    nbstep=!recordcnt $logfile
 89 
    nbstep=!recordcnt $logfile
84 
    !restart module=adm/class/exolog&+cmd=new&+job=examcheck&+checkuser=$user&+checkexo=file&+checkstep=$nbstep
 90 
    !restart module=adm/class/exolog&+cmd=new&+job=examcheck&+checkuser=$user&+checkexo=file&+checkstep=$nbstep
85 
!endif
 91 
!endif
86 
 
 92 
 
87 
 
 93