Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
common=userlist,oef,doc
2
 
3
!if $class_type=4
4
 !bound job2 within structure,teacherlist,$common default $
5
!else
6
 !if $class_type=2
7
  !bound job2 within teacherlist,$common default $
8
 !else
9
  !bound job2 within $common default $
10
 !endif
11
!endif
12
 
13
!if $job2=$empty
14
 job=list
15
 !changeto $job.proc
16
!endif
17
 
18
!if $job2=structure
19
 !read adm/gateway/mkindex
20
 lcnt=!linecnt $ldata
21
 ccnt=!linecnt $cdata
22
 pcnt=!linecnt $pdata
23
 icnt=!linecnt $idata
24
 result=$lcnt levels, $ccnt classes, $pcnt programs, $icnt interlevel courses found.
25
 !exit
26
!endif
27
 
28
!if $job2=teacherlist
29
 !read adm/gateway/mkteacherlist
30
 result=!record 0 of wimshome/log/classes/$wims_class/.teacherlist
31
 result=!linecnt $result
1459 bpr 32
 result=$result teachers found in $wims_class.
23 reyssat 33
 !exit
34
!endif
35
 
36
!if $job2=userlist
37
 !read adm/class/mkuserlist
38
 result=!recordcnt wimshome/log/classes/$wims_class/.userlist
1459 bpr 39
 result=$result participants found in $wims_class.
40
 !if $wims_superclass!=$wims_class
41
  !exit
42
 !else
43
  !if $class_type=4
44
   !for j_ in classes,courses,icourses
45
    list=!record 0 of wimshome/log/classes/$wims_superclass/$j_
46
    list=!column 1 of $list
47
    !for cl_ in $list
48
     !read adm/class/mkuserlist $wims_superclass/$cl_
49
     Result=!recordcnt wimshome/log/classes/$wims_superclass/$cl_/.userlist
50
     result=$result \
51
$Result participants found in $cl_.
52
    !next
53
   !next
54
   !exit
55
  !else
56
   classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses
57
   !for c_=1 to $classcnt
58
    cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses
59
    cl_=!item 1 of $cl_
60
    !read adm/class/mkuserlist $cl_
61
     Result=!recordcnt wimshome/log/classes/$cl_/.userlist
62
     result=$result \
63
$Result participants found in $cl_.
64
   !next
65
  !endif
66
 !endif
23 reyssat 67
 !exit
68
!endif
69
 
70
!if $job2=oef
71
 result=!sh cd $wims_home/log/classes/$wims_class\
72
  src2def oef
73
 !exit
74
!endif
75
 
76
!if $job2=doc
77
 Docdir=log/classes/$wims_class/doc
78
 docdir=wimshome/$Docdir
79
 !read adm/docindex.proc
80
 result=!recordcnt $docdir/.index
81
 result=$result documents found.
82
 !exit
83
!endif
84