Subversion Repositories wimsdev

Rev

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

  1. !! supervisor page definition.
  2. !nocache
  3. !if $module!=home
  4.  !exit
  5. !endif
  6.  
  7. !set home_theme=yes
  8. !readproc tabletheme
  9. !read classlogo.phtml
  10. !if $class_logo!=
  11. <table border="0" cellspacing="0" cellpadding="8" align="$class_logoside">
  12. <tr><td align="center" valign="middle">
  13. <img src="$class_logo" alt="logo" align="left"/>
  14. </td></tr></table>
  15. <center>
  16. <br/> <br/>
  17. !endif
  18.  <b><font size="+1">$wims_classname, $wims_institutionname</font></b>
  19. <br/><small>($SU_log)</small></center>
  20. <br clear="all"/> <br/></div><div class="wimsbody">
  21.  
  22. !if _tool isin $wims_session
  23.  !read ./tools.phtml
  24.  !goto end
  25. !endif
  26.  
  27. !if $class_type isin 3
  28.  $SU_greet.
  29.  !read Subclasses1.phtml
  30.  !if $class_typename=level
  31.   <div class="wimscenter">
  32.   !href module=adm/class/gateway $wims_name_SU_Gateway
  33.   </div>
  34.   !goto end
  35.  !else
  36.   !goto nocheck
  37.  !endif
  38. !endif
  39. !if $class_type notin 13
  40. $SU_greet
  41. <small>$SU_exp1
  42. !set d_=!char 7,8 of $class_expiration
  43. !set m_=!char 5,6 of $class_expiration
  44. !set y_=!char 1 to 4 of $class_expiration
  45. !read adm/date.phtml date,$y_,$m_,$d_
  46. !href module=adm/class/config $c_date_out
  47. $SU_exp2.
  48. !else
  49. $SU_greet.
  50. !endif
  51. !href target=wims_help module=help/main&chapter=3&open=3_sheet#sheet [$wims_name_help]
  52. </small>
  53. <br/>
  54. !if $wims_numpartconnected>0
  55.  $SU_numpartconnected
  56. !else
  57.  $SU_nopartconnected
  58. !endif
  59. !if $quota_free<2
  60.  !if $quota_free<0
  61.   <p>
  62.    $wims_name_exceeded
  63.   </p>
  64.   !href cmd=close&module=home&lang=$lang $wims_name_visitor
  65.   !goto end
  66.  !else
  67.   <br/><b>$wims_name_warning</b>! $wims_name_reaching_limit
  68.  !endif
  69. !endif
  70. :nocheck
  71.  
  72. !if & isin $newmsgcnt or $newmsgcnt>0
  73.  <br/>
  74.  !href module=adm/forum/mboard $U_newmsg
  75. !endif
  76.  
  77.  
  78. !if $class_type=4
  79.  <center>
  80.  !href module=adm/class/gateway $wims_name_SU_Gateway
  81.  </center>
  82.  !goto end
  83. !endif
  84.  
  85. !if $class_type=2
  86.  !if $subclasscnt>0
  87.   $table_header
  88.   $table_hdtr<th>$wims_name_number</th><th>$wims_name_title</th><th>$wims_name_nameteacher</th></tr>
  89.   !for i=1 to $subclasscnt
  90.    !let f_class=!record $i of wimshome/log/classes/$wims_class/.subclasses
  91.    !let f_aff=!item 4 of $f_class
  92.    !let f_name=!item 1 of $f_class
  93.    $table_tr
  94.     <td align="center">$ADD_class $i</td>
  95.     <td>
  96.     !href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
  97.     </td>
  98.     <td align="center">
  99.      !item 9 of $f_class
  100.     </td>
  101.    </tr>
  102.   !next i
  103.   $table_end
  104.  !endif
  105.  <center>
  106.  !href module=adm/class/regclass $ADD_3 $ADD_class
  107.  </center>
  108.  !goto end
  109. !endif
  110.  
  111. !set test=!replace / by , in $wims_class
  112. !if $(test[-1])=0
  113.   !set test_up=!replace internal /0- by in $wims_class-
  114.   !href module=adm/class/classes&type=authsupervisor&class=$test_up $SU_Bprogram
  115. !endif
  116.  
  117. !set ac_0=<small>$(wims_name_shstatus[1])</small>
  118. !set ac_1=$(wims_name_shstatus[2])
  119. !set ac_2=$(wims_name_shstatus[3])
  120. !set ac_3=$(wims_name_shstatus[4])
  121. !set docpubliccnt=!recordcnt  wimshome/log/classes/$wims_class/doc/.docindex
  122. !if $sheetcnt+$examcnt+$doccnt+$docpubliccnt+$votecnt+$subclasscnt<=0
  123.  $SU_nosheet
  124. !else
  125.  $table_header
  126.  <caption>$SU_shlist &nbsp;
  127.  [
  128.  !href module=adm/class/sequence $wims_name_reorder
  129.  ]
  130.  </caption>
  131.  $table_hdtr<th>$wims_name_number</th><th>$wims_name_title</th><th>$wims_name_Status</th></tr>
  132.  !for i=1 to $subclasscnt
  133.   !let f_class=!record $i of wimshome/log/classes/$wims_class/.subclasses
  134.   !let f_aff=!item 4 of $f_class
  135.   !let f_name=!item 1 of $f_class
  136.   $table_tr
  137.    <td align="center">$ADD_class $i</td>
  138.    <td>
  139.    !href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
  140.    </td>
  141.    <td align="center">-</td>
  142.   </tr>
  143.  !next i
  144.  !for i=1 to $doccnt
  145.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.index
  146.   !distribute lines $sh into s_,t_,bidon,bidon,bidon,o_
  147.   $table_tr<td align="center">$wims_name_doc</td>
  148.   <td>
  149.   !href module=adm/doc&job=read&doc=$s_&block=main $t_
  150.   </td>
  151.   <td align="center"><small>
  152.   !item $[$o_ +1] of $wims_name_Docstatus
  153.   </small></td>
  154.   </tr>
  155.  !next i
  156.  !for i=1 to $docpubliccnt
  157.     !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  158.     !distribute lines $sh into s_,t_,ti,d_,o_
  159.     $table_tr<td align="center">$wims_name_doc</td>
  160.    <td>
  161.    !href module=$s_&$t_ $ti
  162.    </td>
  163.    <td align="center"><small>
  164.    !item $[$o_ +1] of $wims_name_status
  165.    [
  166.    !href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
  167.    ]
  168.   </small></td>
  169. </tr>
  170.  !next i
  171.  !for i=1 to $sheetcnt
  172.   !set sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  173.   !distribute lines $sh into ac,t_,ti
  174.   $table_tr<td align="center">$wims_name_Sheet $i</td>
  175.   <td>
  176.   !href module=adm/class/sheet&sheet=$i $ti
  177.   </td>
  178.   <td align="center">$(ac_$[$ac])</td>
  179.  !next i
  180.  !for i=1 to $examcnt
  181.   !set sh=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  182.   !distribute lines $sh into ac,t_,d_,ti
  183.   $table_tr<td align="center">$wims_name_Examen $i</td>
  184.   <td>
  185.   !href module=adm/class/exam&exam=$i $ti
  186.   </td>
  187.   <td align="center">$(ac_$[$ac])</td>
  188.  !next i
  189.  !for i=1 to $votecnt
  190.   !set sh=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  191.   !distribute lines $sh into st_,ti_,op_,re_
  192.   $table_tr<td align="center">$wims_name_Vote</td>
  193.   <td>
  194.   !href module=adm/vote&job=read&vote=$i $ti_
  195.   </td>
  196.   <td align="center">$(ac_$[$st_])</td>
  197. </tr>
  198.  !next i
  199.  $table_end
  200. !endif
  201. $ADD_1
  202. !href module=adm/doc&job=creat $ADD_doc
  203. !if $wims_supertype!=4 or $class_typename!=class
  204. ,
  205. !href module=adm/class/sheet&sheet=$[$sheetcnt+1] $ADD_sheet
  206. ,
  207. !href module=adm/class/exam&exam=$[$examcnt+1] $ADD_exam
  208. ,
  209. !href module=adm/createxo $ADD_exo
  210. !endif
  211. !if $class_type=2
  212. ,
  213. !href module=adm/class/regclass $ADD_class
  214. !endif
  215.  
  216.  $wims_name_or
  217. !href module=adm/vote&job=creat $ADD_vote
  218. .
  219.  
  220. !read ./form.phtml
  221. !read ./result.phtml
  222. !if $wims_supertype!=4 or $class_typename!=class
  223. <p>
  224. !href module=classes/$lang&special_parm=.nocache. $wims_name_classexo
  225. .&nbsp;
  226. !href module=adm/modtool Modtool
  227. .
  228. </p>
  229. !endif
  230. :end
  231.  
  232. <table class="wimscenter" width="99%" border="0" cellspacing="0" cellpadding="3" bgcolor="$wims_ref_bgcolor">
  233. <tr><td align="left" width="33%">&nbsp;&nbsp;
  234. !if $class_typename notsametext program
  235.  !href module=adm/class/userlist $wims_name_SE_list
  236. !endif
  237. <br/>&nbsp;&nbsp;
  238. !href module=adm/class/classes&type=supervisor $wims_name_U_oclass
  239. <br/>&nbsp;&nbsp;
  240. !href cmd=close&module=home&lang=$lang $wims_name_visitor
  241. </td><td align="center" width="33%">
  242. !href style=student $wims_name_n_participant
  243. <br/>
  244. !href module=adm/class/config $wims_name_SE_config
  245. <br/>
  246. !href module=adm/class/config&job=security $wims_name_SE_secu
  247. !!href module=adm/light&phtml=useropts.phtml.$lang $wims_name_pref
  248. </td><td align="right" width="33%">
  249. !href target=wims_help module=help/main&chapter=3 $wims_name_help
  250. &nbsp;&nbsp;<br/>
  251. !href module=adm/forum/mboard $wims_name_forum
  252.  
  253. &nbsp;&nbsp;<br/>
  254. !if $exist_cdt=yes
  255.  !href module=adm/class/cdt $wims_name_cdt
  256.  &nbsp; / &nbsp;
  257. !endif
  258. !href module=adm/class/motd $wims_name_SE_mod
  259. &nbsp;&nbsp;</td></tr></table></center>
  260. :end
  261. <p align="right"><small>
  262. WIMS-$wims_version@$httpd_HTTP_HOST. $E_manager
  263. !mailurl $wims_site_manager\
  264. WIMS
  265. . <br/>
  266. </small>
  267. </div></body>
  268. </html>
  269.  
  270.