Subversion Repositories wimsdev

Rev

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

Rev 10132 Rev 10981
Line 36... Line 36...
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 
     !read adm/gateway/mkteacherlist $wims_superclass/$cl_
 42 
     !read adm/gateway/mkteacherlist $wims_superclass/$cl_
42 
     Result=!record 0 of wimshome/log/classes/$wims_superclass/$cl_/.teacherlist
 43 
     Result=!record 0 of wimshome/log/classes/$wims_superclass/$cl_/.teacherlist
43 
     Result=!linecnt $Result
 44 
     Result=!linecnt $Result
44 
     result=$result \
 45 
     result=$result \
45 
$Result teachers found in $cl_.
 46 
$Result teachers found in $cl_.
Line 49... Line 50...
49 
  !else
 50 
  !else
50 
   classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses
 51 
   classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses
51 
   !for c_=1 to $classcnt
 52 
   !for c_=1 to $classcnt
52 
    cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses
 53 
    cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses
53 
    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
54 
    !read adm/gateway/mkteacherlist $cl_
 56 
    !read adm/gateway/mkteacherlist $cl_
55 
     Result=!record 0 of wimshome/log/classes/$cl_/.teacherlist
 57 
     Result=!record 0 of wimshome/log/classes/$cl_/.teacherlist
56 
     Result=!linecnt $Result
 58 
     Result=!linecnt $Result
57 
     result=$result \
 59 
     result=$result \
58 
$Result teachers found in $cl_.
 60 
$Result teachers found in $cl_.