Subversion Repositories wimsdev

Rev

Rev 3962 | Rev 5426 | 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" border="0" 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.   <p><center>
  32.   !href module=adm/class/gateway $wims_name_SU_Gateway
  33.   </center> <p>
  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 $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.   <p>
  66.   !goto end
  67.  !else
  68.   <br><b>$wims_name_warning</b>! $wims_name_reaching_limit
  69.  !endif
  70. !endif
  71. :nocheck
  72.  
  73. !if & isin $newmsgcnt or $newmsgcnt>0
  74.  <br>
  75.  !href module=adm/forum/mboard $U_newmsg
  76. !endif
  77. <p>
  78.  
  79. !if $class_type=4
  80.  <center>
  81.  !href module=adm/class/gateway $wims_name_SU_Gateway
  82.  </center> <p>
  83.  !goto end
  84. !endif
  85.  
  86. !if $class_type=2
  87.  !if $subclasscnt>0
  88.   $table_header
  89.   $table_hdtr<th>$wims_name_number</th><th>$wims_name_title</th><th>$wims_name_nameteacher</th>
  90.   !for i=1 to $subclasscnt
  91.    !let f_class=!record $i of wimshome/log/classes/$wims_class/.subclasses
  92.    !let f_aff=!item 4 of $f_class
  93.    !let f_name=!item 1 of $f_class
  94.    $table_tr
  95.     <td align="center">$ADD_class $i</td>
  96.     <td>
  97.     !href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
  98.     </td>
  99.     <td align="center">
  100.      !item 9 of $f_class
  101.     </td>
  102.    </tr>
  103.   !next i
  104.   $table_end
  105.   <p><p>
  106.  !endif
  107.  <center>
  108.  !href module=adm/class/regclass $ADD_3 $ADD_class
  109.  </center>
  110.  !goto end
  111. !endif
  112.  
  113. !set test=!replace / by , in $wims_class
  114. !if $(test[-1])=0
  115.   !set test_up=!replace internal /0- by in $wims_class-
  116.   !href module=adm/class/classes&type=authsupervisor&class=$test_up $SU_Bprogram
  117. !endif
  118.  
  119. !set ac_0=<small>$(wims_name_shstatus[1])</small>
  120. !set ac_1=$(wims_name_shstatus[2])
  121. !set ac_2=$(wims_name_shstatus[3])
  122. !set ac_3=$(wims_name_shstatus[4])
  123. !set docpubliccnt=!recordcnt  wimshome/log/classes/$wims_class/doc/.docindex
  124. !if $sheetcnt+$examcnt+$doccnt+$docpubliccnt+$votecnt+$subclasscnt<=0
  125.  $SU_nosheet
  126. !else
  127.  $table_header
  128.  <caption>$SU_shlist &nbsp;
  129.  [
  130.  !href module=adm/class/sequence $wims_name_reorder
  131.  ]
  132.  </caption>
  133.  $table_hdtr<th>$wims_name_number<th>$wims_name_title<th>$wims_name_Status
  134.  !for i=1 to $subclasscnt
  135.   !let f_class=!record $i of wimshome/log/classes/$wims_class/.subclasses
  136.   !let f_aff=!item 4 of $f_class
  137.   !let f_name=!item 1 of $f_class
  138.   $table_tr
  139.    <td align="center">$ADD_class $i</td>
  140.    <td>
  141.    !href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
  142.    </td>
  143.    <td align="center">-</td>
  144.   </tr>
  145.  !next i
  146.  !for i=1 to $doccnt
  147.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.index
  148.   !distribute lines $sh into s_,t_,bidon,bidon,bidon,o_
  149.   $table_tr<td align="center">$wims_name_doc</td>
  150.   <td>
  151.   !href module=adm/doc&job=read&doc=$s_&block=main $t_
  152.   </td>
  153.   <td align="center"><small>
  154.   !item $[$o_ +1] of $wims_name_Docstatus
  155.   </small></td>
  156.  !next i
  157.  !for i=1 to $docpubliccnt
  158.     !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  159.     !distribute lines $sh into s_,t_,ti,d_,o_
  160.     $table_tr<td align="center">$wims_name_doc</td>
  161.    <td>
  162.    !href module=$s_&$t_ $ti
  163.    </td>
  164.    <td align="center"><small>
  165.    !item $[$o_ +1] of $wims_name_status
  166.    [
  167.    !href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
  168.    ]
  169.   </small></td>
  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.  !next i
  198.  $table_end <p>
  199. !endif
  200. $ADD_1
  201. !href module=adm/doc&job=creat $ADD_doc
  202. !if $wims_supertype!=4 or $class_typename!=class
  203. ,
  204. !href module=adm/class/sheet&sheet=$[$sheetcnt+1] $ADD_sheet
  205. ,
  206. !href module=adm/class/exam&exam=$[$examcnt+1] $ADD_exam
  207. ,
  208. !href module=adm/createxo $ADD_exo
  209. !endif
  210. !if $class_type=2
  211. ,
  212. !href module=adm/class/regclass $ADD_class
  213. !endif
  214.  
  215.  $wims_name_or
  216. !href module=adm/vote&job=creat $ADD_vote
  217. .
  218.  
  219. <p>
  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. !endif
  229. :end
  230. <p><center>
  231. <table width="99%" border="0" cellspacing="0" cellpadding="3" bgcolor="$wims_ref_bgcolor">
  232. <tr><td align="left" width="33%">&nbsp;&nbsp;
  233. !if $class_typename notsametext program
  234.  !href module=adm/class/userlist $wims_name_SE_list
  235. !endif
  236. <br>&nbsp;&nbsp;
  237. !href module=adm/class/classes&type=supervisor $wims_name_U_oclass
  238. <br>&nbsp;&nbsp;
  239. !href cmd=close&module=home&lang=$lang $wims_name_visitor
  240. </td><td align="center" width="33%">
  241. !href style=student $wims_name_n_participant
  242. <br>
  243. !href module=adm/class/config $wims_name_SE_config
  244. <br>
  245. !href module=adm/class/config&job=security $wims_name_SE_secu
  246. !!href module=adm/light&phtml=useropts.phtml.$lang $wims_name_pref
  247. </td><td align="right" width="33%">
  248. !href target=wims_help module=help/main&chapter=3 $wims_name_help
  249. &nbsp;&nbsp;<br>
  250. !href module=adm/forum/mboard $wims_name_forum
  251.  
  252. &nbsp;&nbsp;<br>
  253. !if $exist_cdt=yes
  254.  !href module=adm/class/cdt $wims_name_cdt
  255.  &nbsp; / &nbsp;
  256. !endif
  257. !href module=adm/class/motd $wims_name_SE_mod
  258. &nbsp;&nbsp;</td></tr></table></center>
  259. :end
  260. <p align="right"><small>
  261. WIMS-$wims_version@$httpd_HTTP_HOST. $E_manager
  262. !mailurl $wims_site_manager\
  263. WIMS
  264. . <br>
  265. </small>
  266. </DIV></BODY>
  267. </HTML>
  268.  
  269.