Subversion Repositories wimsdev

Rev

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

Rev 16288 Rev 17115
Line 66... Line 66...
66 
  !read ./tools.phtml
 66 
  !read ./tools.phtml
67 
  !goto end
 67 
  !goto end
68 
!endif
 68 
!endif
69 
 
 69 
 
70 
!if $n_>=4
 70 
!if $n_>=4
71 
  !distribute words $etest into h_,s_,t_,n_
 - 
 
72 
  !set r_=!record 0 of wimshome/sessions/$s_/examreg.$n_
 71 
  !read themes/_widgets/examsession.phtml $etest
73 
  !set now=$wims_nowseconds
 - 
 
74 
  !set ws=!translate _ to $ $ in $wims_session
 - 
 
75 
  !set ws=!word 1 of $ws
 72 
  !if shortout!=$empty
76 
  !set sm=!record 0 of wimshome/log/classes/$wims_class/.E$n_
 - 
 
77 
  !if $r_!=$empty and $s_!=$ws and $t_>$now and $sm!=#
 - 
 
78 
    <span class="wims_warning">$wims_name_warning</span>.
 - 
 
79 
    $U_examworking
 - 
 
80 
    !if $h_=$httpd_REMOTE_ADDR
 - 
 
81 
      !href session=$s_&module=adm/class/exam&job=student&exam=$n_ $U_examcont
 - 
 
82 
    !else
 - 
 
83 
      $U_examdouble
 - 
 
84 
      !sh rm -f ../sessions/$ws/var.stat >/dev/null
 - 
 
85 
    !endif
 - 
 
86 
    !goto end
 73 
    !goto end
87 
  !endif
 - 
 
88 
  !if $t_<$now or $r_=$empty
 - 
 
89 
    !writefile wimshome/log/classes/$wims_class/.parmreg/$wims_user.exam
 - 
 
90 
  !endif
 74 
  !endif
91 
!endif
 75 
!endif
92 
<p class="wims_greetings">$U_greet</p>
 76 
<p class="wims_greetings">$U_greet</p>
93 
 
 77 
 
94 
!if & isin $newmsgcnt or $newmsgcnt>0
 78 
!if & isin $newmsgcnt or $newmsgcnt>0