Subversion Repositories wimsdev

Rev

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

Rev 14341 Rev 15602
Line 58... Line 58...
58 
!! tmp=!column 2 to -1 of $exe
 58 
!! tmp=!column 2 to -1 of $exe
59 
!! tmp=!lines2words $tmp
 59 
!! tmp=!lines2words $tmp
60 
!! dl=!replace word examexos by $tmp in $dl
 60 
!! dl=!replace word examexos by $tmp in $dl
61 
!!!else
 61 
!!!else
62 
!for i in $activexams
 62 
!for i in $activexams
- 
 
 63 
  !set nb_ses$i=!record $i of wimshome/log/classes/$wims_class/exams/.exams
- 
 
 64 
  !set nb_ses$i=!line 3 of $(nb_ses$i)
- 
 
 65 
  !set nb_ses$i=!word 2 of $(nb_ses$i)
63 
  !if examexo$i iswordof $dl
 66 
  !if examexo$i iswordof $dl
64 
    tmp=!select $exe where column 1 = $i
 67 
    tmp=!select $exe where column 1 = $i
65 
    dl=!replace word examexo$i by $(tmp[2..-1]) in $dl
 68 
    dl=!replace word examexo$i by $(tmp[2..-1]) in $dl
66 
    dl=!replace word examexo$i by  in $dl
 69 
    dl=!replace word examexo$i by  in $dl
67 
  !endif
 70 
  !endif
Line 103... Line 106...
103 
  dl4=$sep$dl4
 106 
  dl4=$sep$dl4
104 
  dl5=$sep$dl5
 107 
  dl5=$sep$dl5
105 
  dl=$dl$sep$dl_var
 108 
  dl=$dl$sep$dl_var
106 
!endif
 109 
!endif
107 
 
 110 
 
108 
tit=!replace internal , by $quote,$quote in $quote$tit$quote
 - 
 
109 
tit=!translate , to $sep in $dl
 111 
tit=!translate , to $sep in $dl
- 
 
 112 
!for i=1 to $examcnttot
- 
 
 113 
  tmp=!makelist : for x=1 to $(nb_ses$i)
- 
 
 114 
  tmp=!items2words $tmp
- 
 
 115 
  tit=!replace internal exam$i by exam$i$tmp$ in $tit
- 
 
 116 
!next
110 
!! quote the values (case of word groups)
 117 
!! quote the values (case of word groups)
111 
!for n in login,password,lastname,firstname,email,regnum,comments,\
 118 
!for n in login,password,lastname,firstname,email,regnum,comments,\
112 
  participate,supervise,supervisable,external_auth,average0,average1,average2
 119 
  participate,supervise,supervisable,external_auth,average0,average1,average2
113 
  dl2=!replace user_$n by $(quote)user_$n$quote in $dl2
 120 
  dl2=!replace user_$n by $(quote)user_$n$quote in $dl2
114 
!next n
 121 
!next n
Line 193... Line 200...
193 
          user_sheet$(i)_exo_$(k_)_I1=$[ceil(100*$b_/$dd_)]
 200 
          user_sheet$(i)_exo_$(k_)_I1=$[ceil(100*$b_/$dd_)]
194 
          user_sheet$(i)_exo_$(k_)_I2=$[$l_]
 201 
          user_sheet$(i)_exo_$(k_)_I2=$[$l_]
195 
        !next k_
 202 
        !next k_
196 
      !endif
 203 
      !endif
197 
    !next
 204 
    !next
198 
    !if _exexo_ isin $dl or examduration isin $dl
 205 
    !if _exexo_ isin $dl or examduration isin $dl or exam isin $dl
199 
      logdir=$wims_home/log/classes/$wims_class/examlog/$uu
 206 
      logdir=$wims_home/log/classes/$wims_class/examlog/$uu
200 
      checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls -tr; fi
 207 
      checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls -tr; fi
201 
      checksessions=!words2items $checksessions
 208 
      checksessions=!words2items $checksessions
202 
      !read adm/class/userscore1 $uu
 209 
      !read adm/class/userscore1 $uu
203 
    !endif
 210 
    !endif
204 
    !for i=1 to $examcnttot
 211 
    !for i=1 to $examcnttot
205 
      !if exam$i isitemof $dl and $i isitemof $activexams
 212 
      !if exam$i isitemof $dl and $i isitemof $activexams
206 
        user_exam$i=$[rint(10*$scoremax*$(es_$i))/100]
 213 
        user_exam$i=$[rint(10*$scoremax*$(es_$i))/100]
- 
 
 214 
        !set tmp=!listuniq $(sess_$i)
- 
 
 215 
        !for j in $tmp
- 
 
 216 
          !set user_exam$i=$(user_exam$i):$[$scoremax*$(score$(j)_$i)/10]
- 
 
 217 
        !next
- 
 
 218 
        !set tmp=!itemcnt $tmp
- 
 
 219 
        !for j= $tmp+1 to $(nb_ses$i)
- 
 
 220 
          !set user_exam$i=$(user_exam$i):
- 
 
 221 
        !next
207 
      !endif
 222 
      !endif
208 
      !if examduration$i isitemof $dl and $i isitemof $activexams
 223 
      !if examduration$i isitemof $dl and $i isitemof $activexams
209 
        user_examduration$i=!replace internal , by $ $ in $quote$(Dureeexam_$i)$quote
 224 
        user_examduration$i=!replace internal , by $ $ in $quote$(Dureeexam_$i)$quote
210 
      !endif
 225 
      !endif
211 
      !if exam$(i)_exexo isin $dl and $i isitemof $activexams
 226 
      !if exam$(i)_exexo isin $dl and $i isitemof $activexams