Subversion Repositories wimsdev

Rev

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