Subversion Repositories wimsdev

Compare Revisions

Ignore whitespace Rev 1849 → Rev 1850

/trunk/wims/public_html/modules/home/Subclasses1.phtml
3,7 → 3,8
!set classcnt=!linecnt $classes
!if $classcnt>0
<p>
$(CL_Names[2]):
$(CL_Names[2]):<p>
!reset compt
!for i=1 to $classcnt
!set l=!line $i of $classes
!distribute items $l into c_,s_,t_
10,6 → 11,12
<span class="wims_classes_direct_class">
!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
</span>
!if $compt=9
!set compt=0
<p>
!else
!increase compt
!endif
!next i
!endif
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
16,7 → 23,8
!set progcnt=!linecnt $progs
!if $progcnt>0
<p>
$(CL_Names[3]):
$(CL_Names[3]):<p>
!reset compt
!for i=1 to $progcnt
!set l=!line $i of $progs
!distribute items $l into c_,s_,t_
23,6 → 31,12
<span class="wims_classes_direct_program">
!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
</span>
!if $compt=9
!set compt=0
<p>
!else
!increase compt
!endif
!next i
!endif
 
31,7 → 45,8
!set coursecnt=!linecnt $courses
!if $coursecnt>0
<p>
$(CL_Names[4]):
$(CL_Names[4]):<p>
!reset compt
!for i=1 to $coursecnt
!set l=!line $i of $courses
!distribute items $l into c_,s_,t_
38,6 → 53,12
<span class="wims_classes_direct_course">
!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
</span>
!if $compt=9
!set compt=0
<p>
!else
!increase compt
!endif
!next i
!endif
!set courses=!record 0 of wimshome/log/classes/$wims_class/icourses
44,7 → 65,8
!set coursecnt=!linecnt $courses
!if $coursecnt>0
<p>
$(CL_Names[5]):
$(CL_Names[5]):<p>
!reset compt
!for i=1 to $coursecnt
!set l=!line $i of $courses
!distribute items $l into c_,s_,t_
51,6 → 73,12
<span class="wims_classes_direct_course">
!href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
</span>
!if $compt=9
!set compt=0
<p>
!else
!increase compt
!endif
!next i
!endif
!endif