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