Subversion Repositories wimsdev

Rev

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

Rev 11243 Rev 12616
Line 1... Line 1...
1 
 
 1 
 
2 
!if $job=first
 2 
!if $job=first
3 
 this=$wims_superclass
 3 
  this=$wims_superclass
4 
!else
 4 
!else
5 
 icourse=$course
 5 
  icourse=$course
6 
 this=$wims_superclass/$($job)
 6 
  this=$wims_superclass/$($job)
7 
!endif
 7 
!endif
8 
teacherlist=!record 0 of $classdir1/.teacherlist
 8 
teacherlist=!record 0 of $classdir1/.teacherlist
9 
teachercnt=!linecnt $teacherlist
 9 
teachercnt=!linecnt $teacherlist
10 
!reset list1 list2 prompt
 10 
!reset list1 list2 prompt
11 
cnt1=0
 11 
cnt1=0
12 
cnt2=0
 12 
cnt2=0
13 
 
 13 
 
14 
!if $teachercnt<=0
 14 
!if $teachercnt<=0
15 
 !exit
 15 
  !exit
16 
!endif
 16 
!endif
17 
 
 17 
 
18 
!if $more!=$empty
 18 
!if $more!=$empty
19 
!! ??? Why ???
 19 
  !! ??? Why ???
20 
  !if $wims_class/ notin $this/
 20 
  !if $wims_class/ notin $this/
21 
    progtest=!defof sharing_exam in wimshome/log/classes/$this/neighbors
 21 
    progtest=!defof sharing_exam in wimshome/log/classes/$this/neighbors
22 
    !if $wims_class!=$progtest
 22 
    !if $wims_class!=$progtest
23 
      check=no
 23 
      check=no
24 
    !endif
 24 
    !endif