Subversion Repositories wimsdev

Rev

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

Rev 15316 Rev 16355
Line 6... Line 6...
6 
!bound user within $ulist default $empty
 6 
!bound user within $ulist default $empty
7 
!if $user=$empty
 7 
!if $user=$empty
8 
  error=nouser
 8 
  error=nouser
9 
  !exit
 9 
  !exit
10 
!endif
 10 
!endif
- 
 
 11 
 
- 
 
 12 
po=!positionof item $user in $ulist
- 
 
 13 
username=$(nlist[$po])
- 
 
 14 
name_title=$username $name_page $numberses
- 
 
 15 
 
- 
 
 16 
 
11 
 
 17 
 
12 
!! -------- check if authorized session
 18 
!! -------- check if authorized session
- 
 
 19 
basesession=!replace _ by , in $wims_session
- 
 
 20 
basesession=!item 1 of $basesession
13 
list_window=!defof $user in wimshome/s2/$wims_session/.indexusersession
 21 
list_window=!defof $user in wimshome/s2/$basesession/.indexusersession
14 
nbwindow=!itemcnt $list_window
 22 
nbwindow=!itemcnt $list_window
15 
!if $numberses<1 or $numberses>$nbwindow
 23 
!if $numberses<1 or $numberses>$nbwindow
16 
  error=usernotintchat
 24 
  error=usernotintchat
17 
  !exit
 25 
  !exit
18 
!endif
 26 
!endif
19 
userses=!item $numberses of $list_window
 27 
userses=!item $numberses of $list_window
20 
test=!fileexists wimshome/s2/$userses/last.html
 - 
 
21 
!if tchat isin $userses or $test!=yes
 28 
!if tchat isin $userses
22 
  error=addressplay
 29 
  error=addressplay
23 
  !exit
 30 
  !exit
24 
!endif
 31 
!endif
- 
 
 32 
!reset logfile
- 
 
 33 
!if exam isin $userses
- 
 
 34 
  !! case of exercise in an exam
- 
 
 35 
  userbasesession=!replace _ by , in $userses
- 
 
 36 
  userbasesession=!item 1 of $userbasesession
- 
 
 37 
  tmp=!replace internal $(userbasesession)_examt by $empty in $userses
- 
 
 38 
  tmp=!replace t by . in $tmp
- 
 
 39 
  logfile=wimshome/log/classes/$wims_class/examlog/$user/$userbasesession/$tmp
- 
 
 40 
!else
- 
 
 41 
  !! case of an exercise in a sheet
- 
 
 42 
  tmp=!defof w_wims_exo,w_wims_sheet,w_module in wimshome/sessions/$userses/var
- 
 
 43 
  !distribute item $tmp into userexo,usersheet,exomod
- 
 
 44 
  !if $usersheet!=$empty and $userexo!=$empty
- 
 
 45 
    logfile=wimshome/sessions/$userses/exolog.$usersheet.$userexo
- 
 
 46 
  !else
- 
 
 47 
    !! case of a exercise (not in a sheet for exemple in a document)
- 
 
 48 
    category=!defof category in wimshome/public_html/modules/$exomod/INDEX
- 
 
 49 
    !if exercise isin $category
- 
 
 50 
      logfile=wimshome/sessions/$userses/exolog
- 
 
 51 
    !endif
- 
 
 52 
  !endif
- 
 
 53 
!endif
- 
 
 54 
!if $logfile!=$empty
- 
 
 55 
  !! ----------- use adm/class/exolog module to display exo in a sheet or exam
- 
 
 56 
  test=!fileexists $logfile
- 
 
 57 
  !if $test!=yes
- 
 
 58 
    error=addressplay
- 
 
 59 
    !exit
- 
 
 60 
  !endif
- 
 
 61 
  !writefile wimshome/$wims_sesdir/var REMOTE_ADDR=$httpd_REMOTE_ADDR\
- 
 
 62 
HTTP_REFERER=$httpd_HTTP_REFERER\
- 
 
 63 
QUERY_STRING=\
- 
 
 64 
HTTP_USER_AGENT=$httpd_HTTP_USER_AGENT\
- 
 
 65 
HTTP_COOKIE=$httpd_HTTP_COOKIE\
- 
 
 66 
w_cmd=new\
- 
 
 67 
w_lang=$class_lang\
- 
 
 68 
w_special_parm=1\
- 
 
 69 
w_special_parm2=\
- 
 
 70 
w_useropts=$useropts\
- 
 
 71 
w_wims_session=$wims_session\
- 
 
 72 
w_wims_subsession=$wims_subsession\
- 
 
 73 
w_wims_window=$wims_window\
- 
 
 74 
w_wims_mode=$wims_mode\
- 
 
 75 
w_wims_module_start_time=\
- 
 
 76 
w_wims_protocol=$wims_protocol\
- 
 
 77 
w_wims_req_time=$wims_req_time\
- 
 
 78 
w_wims_session_serial=$wims_session_serial\
- 
 
 79 
w_wims_session_start_time=$wims_session_start_time
- 
 
 80 
 
- 
 
 81 
    !setdef wims_checkfile=$logfile in wimshome/$wims_sesdir/var.stat
- 
 
 82 
    !setdef wims_checktitle=$name_title in wimshome/sessions/$basesession/var.stat
- 
 
 83 
    nbstep=!recordcnt $logfile
- 
 
 84 
    !restart module=adm/class/exolog&+cmd=new&+job=examcheck&+checkuser=$user&+checkexo=file&+checkstep=$nbstep
- 
 
 85 
!endif
- 
 
 86 
 
- 
 
 87 
 
25 
 
 88 
 
26 
po=!positionof item $user in $ulist
 - 
 
27 
username=$(nlist[$po])
 - 
 
28 
name_title=$username $name_page $numberses
 89 
!! ------------- in case of other ressources use the last.html file in s2.
29 
 
 90 
 
30 
!!basesession=!replace internal _ by , in $userses
 - 
 
31 
!!basesession=!item 1 of $basesession
 - 
 
32 
!!basesession=!nospace $basesession
 - 
 
33 
 
 91 
 
34 
!! ---------- make list of file of the user
 92 
!! ---------- make list of file of the user
35 
!! the file of list_forbiddent are ignored (to be completed if need)
 93 
!! the file of list_forbiddent are ignored (to be completed if need)
36 
list_forbidden=last.html
 94 
list_forbidden=last.html
37 
listfile=!sh cd $wims_home/s2/$userses;\
 95 
listfile=!sh cd $wims_home/s2/$userses;\
Line 64... Line 122...
64 
 
 122 
 
65 
warning=workinprogress
 123 
warning=workinprogress
66 
 
 124 
 
67 
!! --- suppress auto refresh (need to put a button to refresh)
 125 
!! --- suppress auto refresh (need to put a button to refresh)
68 
!let rd=!randint 111111,999999
 126 
!let rd=!randint 111111,999999
69 
!!local_html_header=<META HTTP-EQUIV="Refresh" CONTENT="$(tchat_refreshtiming);wims.cgi?session=$wims_session&+cmd=reply&+module=adm/class/tchat&+job=viewpage&+numberses=$k&+user=$user">
 - 
 
70 
!set wims_menu_items=!append line refresh,1,module=$module&cmd=reply&+module=adm/class/tchat&+job=viewpage&+numberses=$numberses&+user=$user&+serial=$rd to $wims_menu_items
 127 
!set wims_menu_items=!append line refresh,1,module=$module&cmd=reply&+module=adm/class/tchat&+job=viewpage&+numberses=$numberses&+user=$user&+serial=$rd to $wims_menu_items
71 
 
 128 
 
72 
 
 129