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