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 |