Subversion Repositories wimsdev

Rev

Rev 2217 | Rev 3069 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1 
 
1726 bpr 2 
!set form_titlename=$wims_name_title
3 
!set form_caption=$name_levelproperties
23 reyssat 4 
!set title=$class_description
5 
!set sup=$class_Supervisor
6 
!set alevel=$class_level
7 
!read scripts/levelform.phtml
8 
<p>
9 
!if $classcnt=0
1726 bpr 10 
 $name_level1
2215 bpr 11 
 !href cmd=reply&job=addclass $wims_name_addclass
23 reyssat 12 
.<sup>
1290 bpr 13 
 !href cmd=help&special_parm=structure#class $wims_name_help
23 reyssat 14 
</sup>
15 
!else
16 
 $table_header
1726 bpr 17 
 <caption>$name_level4<sup>
1290 bpr 18 
 !href cmd=help&special_parm=structure#class $wims_name_help
1726 bpr 19 
 </sup> <small>
1290 bpr 20 
 !href cmd=reply&job=addclass $wims_name_addclass
23 reyssat 21 
 </small></caption>
22 
 $table_hdtr
1726 bpr 23 
 <th>$name_code<th>$wims_name_name</th><th>-</th><th>$name_supervisor2</th>
24 
 <th><small>$wims_name_course</small></th>
25 
 <th><small>$name_participant</small></th>
23 reyssat 26 
 </tr>
27 
 !for i=1 to $classcnt
28 
   !set l=!line $i of $classes
29 
   !distribute items $l into l_,s_,t_,n_
30 
   !set c=!record 0 of $classdir1/$l_/courses
31 
   !set c=!nonempty lines $c
32 
   !set c=!linecnt $c
3049 bpr 33 
   $table_tr<td align="center">$l_</td>
34 
   <td align="center">
23 reyssat 35 
   !href cmd=reply&job=class&class=$l_ $t_
3049 bpr 36 
   </td><td align="center"><small>
1545 bpr 37 
    !href cmd=reply&job=delclass&del=$l_ $wims_name_erase
23 reyssat 38 
   </small>
3049 bpr 39 
   </td><td align="center">
23 reyssat 40 
   !if $s_!=$empty
41 
    !if $s_=supervisor
1726 bpr 42 
     $wims_name_supervisor
23 reyssat 43 
    !else
44 
     !default n_=$s_
45 
     !href cmd=reply&job=modteacher&teacher=$s_ $n_
46 
    !endif
47 
   !else
1726 bpr 48 
    $name_nonavailable
23 reyssat 49 
   !endif
3049 bpr 50 
   </td><td align="center">$c</td>
23 reyssat 51 
   !set c=!recordcnt $classdir1/$l_/.userlist
3049 bpr 52 
   <td align="center">$c</td>
23 reyssat 53 
 !next i
54 
 $table_end
55 
 
56 
!endif
57 
 
58 
<p>
59 
!if $progcnt=0
1726 bpr 60 
$name_level2
1290 bpr 61 
 !href cmd=reply&job=addprog $wims_name_addprog
23 reyssat 62 
.<sup>
1290 bpr 63 
 !href cmd=help&special_parm=structure#program $wims_name_help
23 reyssat 64 
 </sup>
65 
!else
66 
 $table_header
1726 bpr 67 
 <caption>$name_level3<sup>
1290 bpr 68 
 !href cmd=help&special_parm=structure#program $wims_name_help
1726 bpr 69 
 </sup> <small>
1290 bpr 70 
 !href cmd=reply&job=addprog $wims_name_addprog
23 reyssat 71 
 </small></caption>
72 
 $table_hdtr
1726 bpr 73 
 <th>$name_code<th>$wims_name_name</th><th>-</th><th>$name_supervisor2</th>
74 
 <th><small>$wims_name_course</small></th>
23 reyssat 75 
 </tr>
76 
 !for i=1 to $progcnt
77 
   !set l=!line $i of $programs
78 
   !distribute items $l into l_,s_,t_,n_
79 
   !set c=!record 0 of $classdir1/$l_/courses
80 
   !set c=!nonempty lines $c
81 
   !set c=!linecnt $c
3049 bpr 82 
   $table_tr<td align="center">$l_</td>
83 
   <td align="center">
23 reyssat 84 
   !href cmd=reply&job=prog&prog=$l_ $t_
3049 bpr 85 
   </td><td align="center"><small>
1545 bpr 86 
    !href cmd=reply&job=delprog&del=$l_ $wims_name_erase
23 reyssat 87 
   </small>
3049 bpr 88 
   </td><td align="center">
23 reyssat 89 
   !if $s_!=$empty
90 
    !if $s_=supervisor
1726 bpr 91 
     $wims_name_supervisor
23 reyssat 92 
    !else
93 
     !default n_=$s_
94 
     !href cmd=reply&job=modteacher&teacher=$s_ $n_
95 
    !endif
96 
   !else
1726 bpr 97 
    $name_nonavailable
23 reyssat 98 
   !endif
3049 bpr 99 
   </td><td align="center">$c
23 reyssat 100 
 !next i
101 
 $table_end
1336 bpr 102 
!set wims_menu_items=!append line addclass,1,cmd=reply&job=addclass\
1290 bpr 103 
addprog,1,cmd=reply&job=addprog\
1336 bpr 104 
to $wims_menu_items
23 reyssat 105 
!endif
106 
 
107 
!reset title
108