Subversion Repositories wimsdev

Rev

Rev 6235 | Rev 7973 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1.  
  2. !set form_titlename=$wims_name_title
  3. !set form_caption=$name_programproperties
  4. !set title=$class_description
  5. !set sup=$class_Supervisor
  6. !read scripts/progform.phtml
  7.  <div class="wimscenter">
  8. !if $hastest=yes
  9.  $name_prog1
  10.  &nbsp;
  11. !set wims_ref_class=wims_button_help
  12.  !href cmd=help&special_parm=structure#test $wims_name_help
  13. !set wims_ref_class=wims_button
  14.  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$prog/0 $name_visit
  15. &nbsp;
  16. !set wims_ref_class=wims_button
  17.  !href cmd=reply&job=deltest $wims_name_erase
  18. !else
  19.  $name_prog2
  20.  &nbsp;
  21. !set wims_ref_class=wims_button_help
  22.  !href cmd=help&special_parm=structure#test $wims_name_help
  23. &nbsp;
  24.  !href cmd=reply&job=addtest $name_prog3
  25. .
  26. !endif
  27. </div>
  28. !if $coursecnt=0
  29.  $name_prog4
  30.  !href cmd=reply&cparent=prog&job=addcourse $wims_name_addcourse
  31. &nbsp;
  32. !set wims_ref_class=wims_button_help
  33.  !href cmd=help&special_parm=structure#course $wims_name_help
  34. &nbsp;
  35. !else
  36.  $table_header
  37.  <caption>$name_prog5
  38.  &nbsp;
  39. !set wims_ref_class=wims_button_help
  40.  !href cmd=help&special_parm=structure#course $wims_name_help
  41. &nbsp;
  42.  !href cmd=reply&cparent=prog&job=addcourse $wims_name_addcourse
  43.  </caption>
  44.  $table_hdtr
  45.  <th>$name_code</th><th>$wims_name_name</th><th>$wims_name_action</th><th>$name_supervisor2</th>
  46.  <th class="small">$name_participant</th>
  47.  </tr>
  48.  !for i=1 to $coursecnt
  49.    !set l=!line $i of $courses
  50.    !distribute items $l into l_,s_,t_,n_
  51.    $table_tr<td style="text-align:center">$l_</td>
  52.    <td style="text-align:center">
  53.    !href cmd=reply&job=course&cparent=prog&course=$l_ $t_
  54.    </td><td style="text-align:center">
  55.    !set wims_ref_class=wims_button
  56.     !href cmd=reply&job=delcourse&cparent=prog&del=$l_ $wims_name_erase
  57.    </td><td style="text-align:center">
  58.    !if $s_!=$empty
  59.     !if $s_=supervisor
  60.      $wims_name_supervisor
  61.     !else
  62.      !default n_=$s_
  63.      !href cmd=reply&job=modteacher&teacher=$s_ $n_
  64.     !endif
  65.    !else
  66.     $name_nonavailable
  67.    !endif
  68.    !set c=!recordcnt $classdir1/$l_/.userlist
  69.    </td><td style="text-align:center">$c</td>
  70.    </tr>
  71.  !next i
  72.  $table_end
  73. !endif
  74.  
  75.  
  76. !if $icoursecnt=0
  77. $name_prog9
  78.  !href cmd=reply&cparent=prog&job=addicourse $wims_name_addicourse
  79. &nbsp;
  80. !set wims_ref_class=wims_button_help
  81.  !href cmd=help&special_parm=structure#icourse $wims_name_help
  82. &nbsp;
  83. !else
  84.  $table_header
  85.  <caption>$wims_name_icourse
  86.  &nbsp;
  87. !set wims_ref_class=wims_button_help
  88.  !href cmd=help&special_parm=structure#icourse $wims_name_help
  89. &nbsp;
  90.  !href cmd=reply&cparent=prog&job=addicourse $wims_name_addcourse
  91.  </caption>
  92.  $table_hdtr
  93.  <th>$name_code</th><th>$wims_name_name</th><th>$wims_name_action</th><th>$name_supervisor2</th>
  94.  <th class="small">$name_participant</th>
  95.  </tr>
  96.  !for i=1 to $icoursecnt
  97.    !set l=!line $i of $icourses
  98.    !distribute items $l into l_,s_,t_,n_
  99.    $table_tr<td style="text-align:center">$l_</td>
  100.    <td style="text-align:center">
  101.    !href cmd=reply&job=icourse&cparent=prog&course=$l_ $t_
  102.    </td><td style="text-align:center">
  103.    !set wims_ref_class=wims_button
  104.     !href cmd=reply&job=delcourse&cparent=prog&del=$l_ $wims_name_erase
  105.  
  106.    </td><td style="text-align:center">
  107.    !if $s_!=$empty
  108.     !if $s_=supervisor
  109.      $s_
  110.     !else
  111.      !default n_=$s_
  112.      !href cmd=reply&job=modteacher&teacher=$s_ $n_
  113.     !endif
  114.    !else
  115.     $name_nonavailable
  116.    !endif
  117.    !set c=!recordcnt $classdir1/$l_/.userlist
  118.    </td><td style="text-align:center">$c</td>
  119.  !next i
  120.  $table_end
  121. !endif
  122.  
  123. !if $recsharable!=$empty
  124.  
  125.  $table_header
  126.  <caption>$name_prog6</caption>
  127.  $table_hdtr
  128.  <th>Code</th>
  129.  <th>$wims_name_level</th>
  130.  <th>$wims_name_program</th>
  131.  </tr>
  132.  !set n=!linecnt $recsharable
  133.  !for i=1 to $n
  134.   $table_tr
  135.   !set l=!line $i of $recsharable
  136.   !distribute items $l into add,name
  137.   !set l_=!translate / to , in $add
  138.   !set l_=!item 1 of $l_
  139.   !set l_=!defof class_description in $classdir1/$l_/.def
  140.   <td style="text-align:center"><span class="tt">$add</span></td>
  141.   <td style="text-align:center">$l_</td>
  142.   <td style="text-align:left">
  143.   !href cmd=reply&job=progshare&prog=$prog&shareprog=$add $name
  144.   </td></tr>
  145.  !next i
  146.  $table_end
  147. !endif
  148.  
  149. !if $class_recshare!=$empty
  150.  <p>
  151.  !if $class_recshare=main
  152.   $name_prog7
  153.  !else
  154.   !set l_=!translate / to , in $class_recshare
  155.   !set shareprog=!defof class_description in $classdir1/$class_recshare/.def
  156.   !set sharelevel=!defof class_description in $classdir1/$(l_[1])/.def
  157.   $name_prog8
  158.   <em>$shareprog</em> ($name_level <em>$sharelevel</em>).
  159.  !endif
  160.  </p>
  161. !endif
  162.  
  163. !set wims_menu_items=!append line addcourse,1,cmd=reply&cparent=prog&job=addcourse\
  164. addicourse,1,cmd=reply&cparent=prog&job=addicourse\
  165. to $wims_menu_items
  166.  
  167. !reset title
  168.  
  169.