Subversion Repositories wimsdev

Rev

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

Rev 14336 Rev 16257
Line -... Line 1...
- 
 
 1 
!if $checkexo=file
- 
 
 2 
  logfile=$wims_checkfile
- 
 
 3 
!else
- 
 
 4 
  !bound checkexo within $exos default $
- 
 
 5 
  !if $checkexo=$empty
- 
 
 6 
    error=bad_exo
- 
 
 7 
    !exit
- 
 
 8 
  !endif
- 
 
 9 
  checkexo=!item -1 of $checkexo
- 
 
 10 
  cexo=!translate . to , in $checkexo
- 
 
 11 
  !distribute item $cexo into exam,exo
- 
 
 12 
!endif
1 
!if wimshome/ notin $logfile
 13 
!if wimshome/ notin $logfile
2 
  logfile=wimshome/log/$logfile
 14 
  logfile=wimshome/log/$logfile
3 
!endif
 15 
!endif
4 
!bound checkexo within $exos default $
 - 
 
5 
!if $checkexo=$empty
 - 
 
6 
  error=bad_exo
 - 
 
7 
  !exit
 16 
 
8 
!endif
 17 
 
9 
checkexo=!item -1 of $checkexo
 - 
 
10 
cexo=!translate . to , in $checkexo
 - 
 
11 
!distribute item $cexo into exam,exo
 - 
 
12 
score=!getdef w_module_score in $logfile
 18 
score=!getdef w_module_score in $logfile
13 
!if exam isin $logfile
 19 
!if exam isin $logfile
14 
  !default score=!sh awk '/^E/ && $$2=="$checksession" && $$3==$exam && $$4==$exo && $$5=="score" {print $$6}' $wims_home/log/classes/$wims_class/noscore/$checkuser
 20 
  !default score=!sh awk '/^E/ && $$2=="$checksession" && $$3==$exam && $$4==$exo && $$5=="score" {print $$6}' $wims_home/log/classes/$wims_class/noscore/$checkuser
15 
!endif
 21 
!endif
16 
!default score=00.0
 22 
!default score=00.0