Subversion Repositories wimsdev

Rev

Rev 3070 | Rev 5953 | 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. <p><center>
  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. </center> <p>
  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>$wims_name_name</th><th>$wims_name_action</th><th>$name_supervisor2</th>
  46.  <th><small>$name_participant</small></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 align="center">$l_</td>
  52.    <td align="center">
  53.    !href cmd=reply&job=course&cparent=prog&course=$l_ $t_
  54.    </td><td 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 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 align="center">$c</td>
  70.  !next i
  71.  $table_end
  72. !endif
  73. <p>
  74.  
  75. !if $icoursecnt=0
  76. $name_prog9
  77.  !href cmd=reply&cparent=prog&job=addicourse $wims_name_addicourse
  78. &nbsp;
  79. !set wims_ref_class=wims_button_help
  80.  !href cmd=help&special_parm=structure#icourse $wims_name_help
  81. &nbsp;
  82. !else
  83.  $table_header
  84.  <caption>$wims_name_icourse
  85.  &nbsp;
  86. !set wims_ref_class=wims_button_help
  87.  !href cmd=help&special_parm=structure#icourse $wims_name_help
  88. &nbsp;
  89.  !href cmd=reply&cparent=prog&job=addicourse $wims_name_addcourse
  90.  </caption>
  91.  $table_hdtr
  92.  <th>$name_code<th>$wims_name_name</th><th>$wims_name_action</th><th>$name_supervisor2</th>
  93.  <th><small>$name_participant</small></th>
  94.  </tr>
  95.  !for i=1 to $icoursecnt
  96.    !set l=!line $i of $icourses
  97.    !distribute items $l into l_,s_,t_,n_
  98.    $table_tr<td align="center">$l_</td>
  99.    <td align="center">
  100.    !href cmd=reply&job=icourse&cparent=prog&course=$l_ $t_
  101.    </td><td align="center">
  102.    !set wims_ref_class=wims_button
  103.     !href cmd=reply&job=delcourse&cparent=prog&del=$l_ $wims_name_erase
  104.  
  105.    </td><td align="center">
  106.    !if $s_!=$empty
  107.     !if $s_=supervisor
  108.      $s_
  109.     !else
  110.      !default n_=$s_
  111.      !href cmd=reply&job=modteacher&teacher=$s_ $n_
  112.     !endif
  113.    !else
  114.     $name_nonavailable
  115.    !endif
  116.    !set c=!recordcnt $classdir1/$l_/.userlist
  117.    </td><td align="center">$c</td>
  118.  !next i
  119.  $table_end
  120. !endif
  121.  
  122. !if $recsharable!=$empty
  123.  <p>
  124.  $table_header
  125.  <caption>$name_prog6</caption>
  126.  $table_hdtr
  127.  <th>Code</th>
  128.  <th>$wims_name_level</th>
  129.  <th>$wims_name_program</th>
  130.  </tr>
  131.  !set n=!linecnt $recsharable
  132.  !for i=1 to $n
  133.   $table_tr
  134.   !set l=!line $i of $recsharable
  135.   !distribute items $l into add,name
  136.   !set l_=!translate / to , in $add
  137.   !set l_=!item 1 of $l_
  138.   !set l_=!defof class_description in $classdir1/$l_/.def
  139.   <td align="center"><tt>$add</tt></td>
  140.   <td align="center">$l_</td>
  141.   <td align="left">
  142.   !href cmd=reply&job=progshare&prog=$prog&shareprog=$add $name
  143.   </td></tr>
  144.  !next i
  145.  $table_end
  146. !endif
  147.  
  148. !if $class_recshare!=$empty
  149.  <p>
  150.  !if $class_recshare=main
  151.   $name_prog7
  152.  !else
  153.   !set l_=!translate / to , in $class_recshare
  154.   !set shareprog=!defof class_description in $classdir1/$class_recshare/.def
  155.   !set sharelevel=!defof class_description in $classdir1/$(l_[1])/.def
  156.   $name_prog8
  157.   <em>$shareprog</em> ($name_level <em>$sharelevel</em>).
  158.  !endif
  159. !endif
  160.  
  161. !set wims_menu_items=!append line addcourse,1,cmd=reply&cparent=prog&job=addcourse\
  162. addicourse,1,cmd=reply&cparent=prog&job=addicourse\
  163. to $wims_menu_items
  164.  
  165. !reset title
  166.  
  167.