Subversion Repositories wimsdev

Rev

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

Rev 14867 Rev 16309
Line 1... Line 1...
1 
!! process control page for view student work and type=3
 1 
!! process control page for view student work in type=3
2 
 
 2 
 
3 
!if $loadwork!=1 or $userv notitemof $ulist
 3 
!if $loadwork!=1
4 
  error=badallows
 4 
  error=badallows
5 
  emptypage=yes
 5 
  emptypage=yes
6 
  !exit
 6 
  !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
- 
 
 9 
!if $userv notitemof $ulist
- 
 
 10 
  error=exolog-nouser
- 
 
 11 
  job=configfw
- 
 
 12 
  !changeto $job.proc
- 
 
 13 
  !exit
- 
 
 14 
!endif
9 
!! ---- read structure of the freework
 15 
!! ---- read structure of the freework
10 
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone
 16 
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone
11 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
 17 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
12 
!for k=1 to $nb
 18 
!for k=1 to $nb
13 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
 19 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
Line 30... Line 36...
30 
!next k
 36 
!next k
31 
!!if $putiworkco=1
 37 
!!if $putiworkco=1
32 
!!  iedit_activated=1
 38 
!!  iedit_activated=1
33 
!!endif
 39 
!!endif
34 
 
 40 
 
- 
 
 41 
!if $nbrezonestudent=0
- 
 
 42 
  error=noinlineanswer
- 
 
 43 
  job=configfw
- 
 
 44 
  !changeto $job.proc
- 
 
 45 
!endif
35 
 
 46 
 
36 
!set appletnum=0
 47 
!set appletnum=0
37 
 
 48 
 
38 
!! ------- preparing date format
 49 
!! ------- preparing date format
39 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
 50 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)