Subversion Repositories wimsdev

Rev

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

Rev 17471 Rev 17491
Line 63... Line 63...
63 
  score=$sprime
 63 
  score=$sprime
64 
!endif
 64 
!endif
65 
 
 65 
 
66 
!writefile wimshome/$wims_sesdir/examdata.$exam $sdure $sprime
 66 
!writefile wimshome/$wims_sesdir/examdata.$exam $sdure $sprime
67 
registered=!record 0 of wimshome/$wims_sesdir/examreg.$exam
 67 
registered=!record 0 of wimshome/$wims_sesdir/examreg.$exam
68 
now=$wims_nowseconds
 68 
wims_exam_remain=$[60*$sdure-($wims_nowseconds-$registered)]
69 
 
 - 
 
70 
!if $registered=$empty
 - 
 
71 
  !! calcul uniquement lorsque l'examen n'est pas lancé (sinon c'est le c qui détermine la fin de la session)
 - 
 
72 
  !! TODO il faudrait une commande c qui calcule tout seul cette date....
 69 
!! TODO il faudrait une commande c qui calcule tout seul cette date....
73 
  !! le temps restant affiche ne peut pas aller au dela de la limitation fixee par la limitation de feuille.
 70 
!! le temps restant affiche ne peut pas aller au dela de la limitation fixee par la limitation de feuille.
74 
  !set expir_user=!record 0 of wimshome/log/classes/$wims_class/.E$exam
 71 
!set expir_user=!record 0 of wimshome/log/classes/$wims_class/.E$exam
75 
  !set cle=!word 1 of $expir_user
 72 
!set cle=!word 1 of $expir_user
76 
  !! process for technical variable definition (replace expir_user by value given by the technical variable)
 73 
!! process for technical variable definition (replace expir_user by value given by the technical variable)
77 
  !if \ isin $cle
 74 
!if \ isin $cle
78 
    !set idtechvar=!line 1 of $expir_user
 75 
  !set idtechvar=!line 1 of $expir_user
79 
    !set idtechvar=!char 2 to -1 of $idtechvar
 76 
  !set idtechvar=!char 2 to -1 of $idtechvar
80 
    !readproc adm/class/userdef ,$wims_class,$wims_user
 77 
  !readproc adm/class/userdef ,$wims_class,$wims_user
81 
    !set val=!defof user_techvar_$(idtechvar) in $userdef
 78 
  !set val=!defof user_techvar_$(idtechvar) in $userdef
82 
    !default val=EMPTY
 79 
  !default val=EMPTY
83 
    !reset expir_user
 80 
  !reset expir_user
84 
    !set expir_user=!defof techvar_$val in wimshome/log/classes/$wims_class/.E$exam
 81 
  !set expir_user=!defof techvar_$val in wimshome/log/classes/$wims_class/.E$exam
85 
    !default expir_user=none
 82 
  !default expir_user=none
86 
  !endif
 83 
!endif
87 
  !! end process technical variable
 84 
!! end process technical variable
88 
  !if $expir_user!=none
 85 
!if $expir_user!=none
89 
    expir_user=!words2items $expir_user
 86 
  expir_user=!words2items $expir_user
90 
    nb=!itemcnt $expir_user
 87 
  nb=!itemcnt $expir_user
91 
    fin=$empty
 88 
  fin=$empty
92 
    c=<
 89 
  c=<
93 
    !for k=1 to $nb
 90 
  !for k=1 to $nb
94 
      !if $c isin $(expir_user[$k])
 91 
    !if $c isin $(expir_user[$k])
95 
        fin=!char 2 to -1 of $(expir_user[$k])
 92 
      fin=!char 2 to -1 of $(expir_user[$k])
96 
        fin=!text select 0123456789.: in $fin
 93 
      fin=!text select 0123456789.: in $fin
97 
      !endif
 - 
 
98 
    !next k
 - 
 
99 
    !if $fin!=$empty
 - 
 
100 
      date=!char 1 to 14 of $fin
 - 
 
101 
      !read date.phtml $date,noprint
 - 
 
102 
      time_end=$slib_out
 - 
 
103 
    !endif
 94 
    !endif
- 
 
 95 
  !next k
- 
 
 96 
  !if $fin!=$empty
- 
 
 97 
    date=!char 1 to 8 of $fin
- 
 
 98 
    time=!char 10 to 14 of $fin
- 
 
 99 
    !read date.phtml $date$time,noprint
- 
 
 100 
    time_end=$slib_out
- 
 
 101 
    left=!sh date -d"$date $time" +%s
- 
 
 102 
    left=$[max(0,$left-$wims_nowseconds)]
- 
 
 103 
    wims_exam_remain=$[min($left,$wims_exam_remain)]
104 
  !endif
 104 
  !endif
105 
  !! fin des modifications qui decoule de la limitation fixee par la feuille
 - 
 
106 
!else
 105 
!endif
107 
  tmp=!record 0 of wimshome/$wims_sesdir/examdepend.$exam
 106 
!! fin des modifications qui decoule de la limitation fixee par la feuille
108 
  !if $tmp!=$empty
 107 
!if $registered=$empty
109 
    wims_exam_remain=$[$tmp-$wims_nowseconds]
 108 
  !reset wims_exam_remain
110 
    time_end=!sh date -d "@$tmp" +%H:%M;
 - 
 
111 
  !else
 - 
 
112 
    wims_exam_remain=$[60*$sdure-($now-$registered)]
 - 
 
113 
  !endif
 - 
 
114 
!endif
 109 
!endif
115 
 
 110 
 
116 
l=!examscore
 111 
l=!examscore
117 
lastscore=!word $exam of $l
 112 
lastscore=!word $exam of $l
118 
!default lastscore=0
 113 
!default lastscore=0