Subversion Repositories wimsdev

Rev

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

Rev 10981 Rev 12411
Line 2... Line 2...
2 
 
 2 
 
3 
!if $class_type=4
 3 
!if $class_type=4
4 
 !bound job2 within structure,teacherlist,$common default $
 4 
  !bound job2 within structure,teacherlist,$common default $
5 
!else
 5 
!else
6 
 !if $class_type=2
 6 
  !if $class_type=2
7 
  !bound job2 within teacherlist,$common default $
 7 
    !bound job2 within teacherlist,$common default $
8 
 !else
 8 
  !else
9 
  !bound job2 within $common default $
 9 
    !bound job2 within $common default $
10 
 !endif
 10 
  !endif
11 
!endif
 11 
!endif
12 
 
 12 
 
13 
!if $job2=$empty
 13 
!if $job2=$empty
14 
 job=list
 14 
  job=list
15 
 !changeto $job.proc
 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
 16 
!endif
27 
 
 17 
 
28 
!if $job2=teacherlist
 18 
!if $job2=structure
29 
 !read adm/gateway/mkteacherlist
 19 
  !read adm/gateway/mkindex
30 
 result=!record 0 of wimshome/log/classes/$wims_class/.teacherlist
 20 
  lcnt=!linecnt $ldata
31 
 result=!linecnt $result
 21 
  ccnt=!linecnt $cdata
32 
 result=$result teachers found in $wims_class.
 22 
  pcnt=!linecnt $pdata
33 
 !if $wims_superclass!=$wims_class
 23 
  icnt=!linecnt $idata
- 
 
 24 
  result=$lcnt levels, $ccnt classes, $pcnt programs, $icnt interlevel courses found.
34 
  !exit
 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
- 
 
 32 
  result=$result teachers found in $wims_class.
- 
 
 33 
  !if $wims_superclass!=$wims_class
- 
 
 34 
    !exit
35 
 !else
 35 
  !else
36 
  !if $class_type=4
 36 
   !if $class_type=4
37 
   !for j_ in classes,courses,icourses
 37 
      !for j_ in classes,courses,icourses
38 
    list=!record 0 of wimshome/log/classes/$wims_superclass/$j_
 38 
        list=!record 0 of wimshome/log/classes/$wims_superclass/$j_
39 
    list=!column 1 of $list
 39 
        list=!column 1 of $list
40 
    !for cl_ in $list
 40 
        !for cl_ in $list
41 
!!FIXME I am not sure it is useful !read adm/gateway/mkteacherlist already does it
 41 
         !!FIXME I am not sure it is useful !read adm/gateway/mkteacherlist already does it
42 
     !read adm/gateway/mkteacherlist $wims_superclass/$cl_
 42 
          !read adm/gateway/mkteacherlist $wims_superclass/$cl_
43 
     Result=!record 0 of wimshome/log/classes/$wims_superclass/$cl_/.teacherlist
 43 
          Result=!record 0 of wimshome/log/classes/$wims_superclass/$cl_/.teacherlist
44 
     Result=!linecnt $Result
 44 
          Result=!linecnt $Result
45 
     result=$result \
 45 
          result=$result \
46 
$Result teachers found in $cl_.
 46 
$Result teachers found in $cl_.
- 
 
 47 
        !next
47 
    !next
 48 
    !next
48 
   !next
 - 
 
49 
   !exit
 49 
    !exit
50 
  !else
 50 
  !else
51 
   classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses
 51 
    classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses
52 
   !for c_=1 to $classcnt
 52 
    !for c_=1 to $classcnt
53 
    cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses
 53 
      cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses
54 
    cl_=!item 1 of $cl_
 54 
      cl_=!item 1 of $cl_
55 
!!FIXME I am not sure it is useful !read adm/gateway/mkteacherlist already does it
 55 
      !!FIXME I am not sure it is useful !read adm/gateway/mkteacherlist already does it
56 
    !read adm/gateway/mkteacherlist $cl_
 56 
      !read adm/gateway/mkteacherlist $cl_
57 
     Result=!record 0 of wimshome/log/classes/$cl_/.teacherlist
 57 
      Result=!record 0 of wimshome/log/classes/$cl_/.teacherlist
58 
     Result=!linecnt $Result
 58 
      Result=!linecnt $Result
59 
     result=$result \
 59 
      result=$result \
60 
$Result teachers found in $cl_.
 60 
$Result teachers found in $cl_.
61 
   !next
 61 
     !next
62 
  !endif
 62 
    !endif
63 
 !endif
 63 
  !endif
64 
 !exit
 64 
  !exit
65 
!endif
 65 
!endif
66 
 
 66 
 
67 
!if $job2=userlist
 67 
!if $job2=userlist
68 
 !read adm/class/mkuserlist
 68 
  !read adm/class/mkuserlist
69 
 result=!recordcnt wimshome/log/classes/$wims_class/.userlist
 69 
  result=!recordcnt wimshome/log/classes/$wims_class/.userlist
70 
 result=$result participants found in $wims_class.
 70 
  result=$result participants found in $wims_class.
71 
 !if $wims_superclass!=$wims_class
 71 
  !if $wims_superclass!=$wims_class
72 
  !read adm/class/stat
 72 
    !read adm/class/stat
73 
  !exit
 73 
    !exit
74 
 !else
 74 
  !else
75 
  !if $class_type=4
 75 
    !if $class_type=4
76 
   !for j_ in classes,courses,icourses
 76 
      !for j_ in classes,courses,icourses
77 
    list=!record 0 of wimshome/log/classes/$wims_superclass/$j_
 77 
        list=!record 0 of wimshome/log/classes/$wims_superclass/$j_
78 
    list=!column 1 of $list
 78 
        list=!column 1 of $list
79 
    !for cl_ in $list
 79 
        !for cl_ in $list
80 
     !read adm/class/mkuserlist $wims_superclass/$cl_
 80 
          !read adm/class/mkuserlist $wims_superclass/$cl_
81 
     Result=!recordcnt wimshome/log/classes/$wims_superclass/$cl_/.userlist
 81 
          Result=!recordcnt wimshome/log/classes/$wims_superclass/$cl_/.userlist
82 
     result=$result \
 82 
          result=$result \
83 
$Result participants found in $cl_.
 83 
$Result participants found in $cl_.
84 
    !next
 84 
        !next
85 
   !next
 85 
      !next
86 
   !read adm/class/stat
 86 
      !read adm/class/stat
87 
   !exit
 87 
      !exit
88 
  !else
 88 
    !else
89 
   classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses
 89 
      classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses
90 
   !for c_=1 to $classcnt
 90 
      !for c_=1 to $classcnt
91 
    cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses
 91 
        cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses
92 
    cl_=!item 1 of $cl_
 92 
        cl_=!item 1 of $cl_
93 
    !read adm/class/mkuserlist $cl_
 93 
        !read adm/class/mkuserlist $cl_
94 
     Result=!recordcnt wimshome/log/classes/$cl_/.userlist
 94 
        Result=!recordcnt wimshome/log/classes/$cl_/.userlist
95 
     result=$result \
 95 
        result=$result \
96 
$Result participants found in $cl_.
 96 
$Result participants found in $cl_.
97 
   !next
 97 
      !next
- 
 
 98 
    !endif
98 
  !endif
 99 
  !endif
99 
 !endif
 - 
 
100 
 !read adm/class/stat
 100 
  !read adm/class/stat
101 
 !exit
 101 
  !exit
102 
!endif
 102 
!endif
103 
 
 103 
 
104 
!if $job2=oef
 104 
!if $job2=oef
105 
 result=!sh cd $wims_home/log/classes/$wims_class\
 105 
  result=!sh cd $wims_home/log/classes/$wims_class\
106 
  src2def oef
 106 
  src2def oef
107 
 !exit
 107 
  !exit
108 
!endif
 108 
!endif
109 
 
 109 
 
110 
!if $job2=doc
 110 
!if $job2=doc
111 
 Docdir=log/classes/$wims_class/doc
 111 
  Docdir=log/classes/$wims_class/doc
112 
 docdir=wimshome/$Docdir
 112 
  docdir=wimshome/$Docdir
113 
 !read adm/docindex.proc
 113 
  !read adm/docindex.proc
114 
 result=!recordcnt $docdir/.index
 114 
  result=!recordcnt $docdir/.index
115 
 result=$result documents found.
 115 
  result=$result documents found.
116 
 !exit
 116 
  !exit
117 
!endif
 117 
!endif
118 
 
 118