Subversion Repositories wimsdev

Rev

Rev 2595 | Rev 3962 | 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 $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 [$N_help]
  52. </small>
  53. !if $quota_free<2
  54.  !if $quota_free<0
  55.   <p>
  56.    $wims_name_exceeded
  57.   <p>
  58.   !href cmd=close&module=home&lang=$lang $V_Quit
  59.   <p>
  60.   !goto end
  61.  !else
  62.   <br><b>$wims_name_warning</b>! $wims_name_reaching_limit
  63.  !endif
  64. !endif
  65. :nocheck
  66.  
  67. !if & isin $newmsgcnt or $newmsgcnt>0
  68.  <br>
  69.  !href module=adm/forum/mboard $U_newmsg
  70. !endif
  71. <p>
  72.  
  73. !if $class_type=4
  74.  <center>
  75.  !href module=adm/class/gateway $SU_Gateway
  76.  </center> <p>
  77.  !goto end
  78. !endif
  79.  
  80. !if $class_type=2
  81.  !if $subclasscnt>0
  82.   $table_header
  83.   $table_hdtr<th>$SU_shno</th><th>$SU_shti</th><th>$U_teacher</th>
  84.   !for i=1 to $subclasscnt
  85.    !let f_class=!record $i of wimshome/log/classes/$wims_class/.subclasses
  86.    !let f_aff=!item 4 of $f_class
  87.    !let f_name=!item 1 of $f_class
  88.    $table_tr
  89.     <td align=center>$ADD_class $i</td>
  90.     <td>
  91.     !href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
  92.     </td>
  93.     <td align=center>
  94.      !item 9 of $f_class
  95.     </td>
  96.    </tr>
  97.   !next i
  98.   $table_end
  99.   <p><p>
  100.  !endif
  101.  <center>
  102.  !href module=adm/class/regclass $ADD_3 $ADD_class
  103.  </center>
  104.  !goto end
  105. !endif
  106.  
  107. !set test=!replace / by , in $wims_class
  108. !if $(test[-1])=0
  109.   !set test_up=!replace internal /0- by in $wims_class-
  110.   !href module=adm/class/classes&type=authsupervisor&class=$test_up $SU_Bprogram
  111. !endif
  112.  
  113. !set ac_0=<small>$SU_Uprep</small>
  114. !set ac_1=$SU_Ac
  115. !set ac_2=$SU_Ex
  116. !set ac_3=$SU_Hi
  117. !set docpubliccnt=!recordcnt  wimshome/log/classes/$wims_class/doc/.docindex
  118. !if $sheetcnt+$examcnt+$doccnt+$docpubliccnt+$votecnt+$subclasscnt<=0
  119.  $SU_nosheet
  120. !else
  121.  $table_header
  122.  <caption>$SU_shlist &nbsp;
  123.  [
  124.  !href module=adm/class/sequence $wims_name_reorder
  125.  ]
  126.  </caption>
  127.  $table_hdtr<th>$SU_shno<th>$SU_shti<th>$SU_shst
  128.  !for i=1 to $subclasscnt
  129.   !let f_class=!record $i of wimshome/log/classes/$wims_class/.subclasses
  130.   !let f_aff=!item 4 of $f_class
  131.   !let f_name=!item 1 of $f_class
  132.   $table_tr
  133.    <td align=center>$ADD_class $i</td>
  134.    <td>
  135.    !href module=adm/class/classes&type=authsupervisor&class=$f_name $f_aff
  136.    </td>
  137.    <td align=center>-</td>
  138.   </tr>
  139.  !next i
  140.  !for i=1 to $doccnt
  141.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.index
  142.   !distribute lines $sh into s_,t_,bidon,bidon,bidon,o_
  143.   $table_tr<td align=center>$U_Doc</td>
  144.   <td>
  145.   !href module=adm/doc&job=read&doc=$s_&block=main $t_
  146.   </td>
  147.   <td align=center><small>
  148.   !item $[$o_ +1] of $U_Docstatus
  149.   </small></td>
  150.  !next i
  151.  !for i=1 to $docpubliccnt
  152.     !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
  153.     !distribute lines $sh into s_,t_,ti,d_,o_
  154.     $table_tr<td align=center>$U_Doc</td>
  155.    <td>
  156.    !href module=$s_&$t_ $ti
  157.    </td>
  158.    <td align=center><small>
  159.    !item $[$o_ +1] of $wims_name_status
  160.    [
  161.    !href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
  162.    ]
  163.   </small></td>
  164.  !next i
  165.  !for i=1 to $sheetcnt
  166.   !set sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  167.   !distribute lines $sh into ac,t_,ti
  168.   $table_tr<td align=center>$U_Sheet $i</td>
  169.   <td>
  170.   !href module=adm/class/sheet&sheet=$i $ti
  171.   </td>
  172.   <td align=center>$(ac_$[$ac])</td>
  173.  !next i
  174.  !for i=1 to $examcnt
  175.   !set sh=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  176.   !distribute lines $sh into ac,t_,d_,ti
  177.   $table_tr<td align=center>$U_Exam $i</td>
  178.   <td>
  179.   !href module=adm/class/exam&exam=$i $ti
  180.   </td>
  181.   <td align=center>$(ac_$[$ac])</td>
  182.  !next i
  183.  !for i=1 to $votecnt
  184.   !set sh=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  185.   !distribute lines $sh into st_,ti_,op_,re_
  186.   $table_tr<td align=center>$U_Vote</td>
  187.   <td>
  188.   !href module=adm/vote&job=read&vote=$i $ti_
  189.   </td>
  190.   <td align=center>$(ac_$[$st_])</td>
  191.  !next i
  192.  $table_end <p>
  193. !endif
  194. $ADD_1
  195. !href module=adm/doc&job=creat $ADD_doc
  196. !if $wims_supertype!=4 or $class_typename!=class
  197. ,
  198. !href module=adm/class/sheet&sheet=$[$sheetcnt+1] $ADD_sheet
  199. ,
  200. !href module=adm/class/exam&exam=$[$examcnt+1] $ADD_exam
  201. ,
  202. !href module=adm/createxo $ADD_exo
  203. !endif
  204. !if $class_type=2
  205. ,
  206. !href module=adm/class/regclass $ADD_class
  207. !endif
  208.  
  209.  $N_or
  210. !href module=adm/vote&job=creat $ADD_vote
  211. .
  212.  
  213. <p>
  214. !read ./form.phtml
  215. !read ./result.phtml
  216. !if $wims_supertype!=4 or $class_typename!=class
  217. <p>
  218. !href module=classes/$lang&special_parm=.nocache. $SU_classexo
  219. .&nbsp;
  220. !href module=adm/modtool Modtool
  221. .
  222. !endif
  223. :end
  224. <p><center>
  225. <table width="99%" border=0 cellspacing=0 cellpadding=3 bgcolor="$wims_ref_bgcolor">
  226. <tr><td align=left width="33%">&nbsp;&nbsp;
  227. !if $class_typename notsametext program
  228.  !href module=adm/class/userlist $SE_list
  229. !endif
  230. <br>&nbsp;&nbsp;
  231. !href module=adm/class/classes&type=supervisor $U_oclass
  232. <br>&nbsp;&nbsp;
  233. !href cmd=close&module=home&lang=$lang $V_Quit
  234. </td><td align=center width="33%">
  235. !href style=student $SE_part
  236. <br>
  237. !href module=adm/class/config $SE_config
  238. <br>
  239. !href module=adm/class/config&job=security $SE_secu
  240. !!href module=adm/light&phtml=useropts.phtml.$lang $V_Chpref
  241. </td><td align=right width="33%">
  242. !href target=wims_help module=help/main&chapter=3 $N_Help
  243. &nbsp;&nbsp;<br>
  244. !href module=adm/forum/mboard $N_Mboard
  245.  
  246. &nbsp;&nbsp;<br>
  247. !if $exist_cdt=yes
  248.  !href module=adm/class/cdt $ADD_cdt
  249.  &nbsp; / &nbsp;
  250. !endif
  251. !href module=adm/class/motd $SE_mod
  252. &nbsp;&nbsp;</td></tr></table></center>
  253. :end
  254. <p align=right><small>
  255. WIMS-$wims_version@$httpd_HTTP_HOST. $E_manager
  256. !mailurl $wims_site_manager\
  257. WIMS
  258. . <br>
  259. </small>
  260. </DIV></BODY>
  261. </HTML>
  262.  
  263.