Subversion Repositories wimsdev

Rev

Rev 16126 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16126 Rev 16131
Line 36... Line 36...
36
<ul class="wims_subclasses">
36
<ul class="wims_subclasses">
37
!if $(don[1])=program
37
!if $(don[1])=program
38
  !read adm/class/graphprog $classrad
38
  !read adm/class/graphprog $classrad
39
!endif
39
!endif
40
!if $(don[1])=class
40
!if $(don[1])=class
41
    !read adm/class/graphclsprog $classrad
41
  !read adm/class/graphclsprog $classrad
42
!endif
42
!endif
43
!for j1=1 to $col1cnt
43
!for j1=1 to $col1cnt
44
  !set cls1=!nospace $classrad/$(col1[$j1])
44
  !set cls1=!nospace $classrad/$(col1[$j1])
45
  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
45
  !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
46
  !reset tmp
46
  !reset tmp