Subversion Repositories wimsdev

Rev

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

Rev 13147 Rev 16126
Line 34... Line 34...
34
!endif
34
!endif
35
 
35
 
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
-
 
40
!if $(don[1])=class
-
 
41
    !read adm/class/graphclsprog $classrad
39
!endif
42
!endif
40
!for j1=1 to $col1cnt
43
!for j1=1 to $col1cnt
41
  !set cls1=!nospace $classrad/$(col1[$j1])
44
  !set cls1=!nospace $classrad/$(col1[$j1])
42
  !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
43
  !reset tmp
46
  !reset tmp