Subversion Repositories wimsdev

# GetExamLog
# Fournit les logs des examens du user quser

#on commence par verifier la classe $qclass
!read scripts/check.class
!if $error!=$empty
  !exit
!endif

!read scripts/check.user
!if $error!=$empty
  !exit
!endif

eleveslist = !sh cd $wims_class_dir/examlog; ls | sort
nbeleves= !linecnt $eleveslist

!if $quser notlineof $eleveslist
        error=the user $quser hasn't any exam log in this class.
  !exit
!endif
sessionslist = !sh cd $wims_class_dir/examlog/$quser; ls | sort
nbsessions= !linecnt $sessionslist

session1= !line 1 of $sessionslist

exoslist = !sh cd $wims_class_dir/examlog/$quser/$session1; ls | sort
nbexos= !linecnt $exoslist