Subversion Repositories wimsdev

Rev

Rev 7679 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7679 Rev 12821
Line 7... Line 7...
7 
!defread wimshome/log/classes/$c_/.def
 7 
!defread wimshome/log/classes/$c_/.def
8 
!defread $userdef
 8 
!defread $userdef
9 
 
 9 
 
10 
!if $class_type=4 and $u_!=supervisor and $user_supervisable!=yes\
 10 
!if $class_type=4 and $u_!=supervisor and $user_supervisable!=yes\
11 
  and ($wims_class=$empty or ../$wims_superclass/ notin ../$wims_class/)
 11 
  and ($wims_class=$empty or ../$wims_superclass/ notin ../$wims_class/)
12 
 utest=!itemcnt $user_participate
 12 
  utest=!itemcnt $user_participate
13 
 !if $utest=1 and / isin $user_participate
 13 
  !if $utest=1 and / isin $user_participate
14 
  c_=!item 1 of $user_participate
 14 
    c_=!item 1 of $user_participate
15 
  !defread wimshome/log/classes/$c_/.def
 15 
    !defread wimshome/log/classes/$c_/.def
16 
 !endif
 16 
  !endif
17 
!endif
 17 
!endif
18 
!if $class_type iswordof 1 3 and $u_=supervisor and $wims_user=$empty
 18 
!if $class_type iswordof 1 3 and $u_=supervisor and $wims_user=$empty
19 
 !exit
 19 
  !exit
20 
!endif
 20 
!endif
21 
 
 21 
 
22 
!if $u_=supervisor
 22 
!if $u_=supervisor
23 
 sech=$class_secure
 23 
  sech=$class_secure
24 
 sech=!trim $sech
 24 
  sech=!trim $sech
25 
 !if $sech=$empty
 25 
  !if $sech=$empty
26 
  t=0
 26 
    t=0
27 
 !else
 27 
  !else
28 
  t=!checkhost $sech
 28 
    t=!checkhost $sech
29 
  !if $t<1
 29 
    !if $t<1
30 
   t=-1
 30 
      t=-1
31 
  !endif
 31 
    !endif
32 
 !endif
 32 
  !endif
33 
 sup_secure=$t
 33 
  sup_secure=$t
34 
!else
 34 
!else
35 
 !read ./adm/class/raftest
 35 
  !read ./adm/class/raftest
36 
 !if $raftest>$lastallow
 36 
  !if $raftest>$lastallow
37 
  !exit
 37 
    !exit
38 
 !endif
 38 
  !endif
39 
 sup_secure=-1
 39 
  sup_secure=-1
40 
!endif
 40 
!endif
41 
 
 41 
 
42 
wims_caller=
 42 
wims_caller=
43 
!read ./adm/class/authprep $c_,$u_
 43 
!read ./adm/class/authprep $c_,$u_
44 
!writefile wimshome/$wims_sesdir/var.stat $classdef
 44 
!writefile wimshome/$wims_sesdir/var.stat $classdef
Line 70... Line 70...
70 
w_wims_session_serial=$wims_session_serial\
 70 
w_wims_session_serial=$wims_session_serial\
71 
w_wims_session_start_time=$wims_session_start_time\
 71 
w_wims_session_start_time=$wims_session_start_time\
72 
w_wims_sheet=
 72 
w_wims_sheet=
73 
 
 73 
 
74 
!if $class_lock = 7 and $u_!=supervisor
 74 
!if $class_lock = 7 and $u_!=supervisor
75 
 !usererror class_closed
 75 
  !usererror class_closed
76 
 !exit
 76 
  !exit
77 
!endif
 77 
!endif
78 
!if $class_lock iswordof 2 4 6
 78 
!if $class_lock iswordof 2 4 6
79 
 !set wims_protocol=https
 79 
  !set wims_protocol=https
80 
!endif
 80 
!endif
81 
!sh cd $wims_home\
 81 
!sh cd $wims_home\
82 
	rm -Rf $(wims_sesdir)_*\
 82 
	rm -Rf $(wims_sesdir)_*\
83 
	mkdir -p log/classes/$c_/score $wims_sesdir/getfile\
 83 
	mkdir -p log/classes/$c_/score $wims_sesdir/getfile\
84 
	rm -f $wims_sesdir/getfile/oefimages\
 84 
	rm -f $wims_sesdir/getfile/oefimages\