Subversion Repositories wimsdev

Rev

Rev 227 | 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. <center>
  11. <br> <br>
  12.  <b><font size=+1>$wims_classname, $wims_institutionname</font></b>
  13. <br><small>($SU_log)</small></center>
  14. <br clear=all> <br></div><div class=wimsbody>
  15.  
  16. !if _tool isin $wims_session
  17.  !read ./tools.phtml
  18.  !goto end
  19. !endif
  20.  
  21. !if $class_type=3
  22.  $SU_greet.
  23.  !read Subclasses1.phtml
  24.  !if $class_typename=level
  25.   <p><center>
  26.   !href module=adm/class/gateway $SU_Gateway
  27.   </center> <p>
  28.   !goto end
  29.  !else
  30.   !goto nocheck
  31.  !endif
  32. !endif
  33. !if $class_type notin 13
  34. $SU_greet
  35. <small>$SU_exp1
  36. !set d_=!char 7,8 of $class_expiration
  37. !set m_=!char 5,6 of $class_expiration
  38. !set y_=!char 1 to 4 of $class_expiration
  39. !href module=adm/class/config $m_-$d_-$y_
  40. $SU_exp2.
  41. !else
  42. $SU_greet.
  43. !endif
  44. !href target=wims_help module=help/main&chapter=3&open=3_sheet#sheet [$N_help]
  45. </small>
  46. !if $quota_free<2
  47.  !if $quota_free<0
  48.   <p>
  49.   Your class has exceeded disk space allowance on the server. Class
  50.   management is no longer available. Sorry!
  51.   <p>
  52.   We suggest that you ask the site manager to increase the disk space
  53.   allowance for virtual classes.
  54.   <p>
  55.   !href cmd=close&module=home&lang=$lang $V_Quit
  56.   <p>
  57.   !goto end
  58.  !else
  59.   <br><b>Warning</b>! Your class is reaching the limit of disk space allowance.
  60.   Once this limit is exceeded, class management will be locked!
  61.  !endif
  62. !endif
  63. :nocheck
  64.  
  65. !if & isin $newmsgcnt or $newmsgcnt>0
  66.  <br>
  67.  !href module=adm/forum/mboard $U_newmsg
  68. !endif
  69. <p>
  70.  
  71. !if $class_type=4
  72.  <center>
  73.  !href module=adm/class/gateway $SU_Gateway
  74.  </center> <p>
  75.  !goto end
  76. !endif
  77.  
  78. !set ac_0=<small>$SU_Uprep</small>
  79. !set ac_1=$SU_Ac
  80. !set ac_2=$SU_Ex
  81. !set ac_3=$SU_Hi
  82.  
  83. !if $sheetcnt+$examcnt+$doccnt+$votecnt+$subclasscnt<=0
  84.  $SU_nosheet
  85. !else
  86.  $table_header
  87.  <caption>$SU_shlist &nbsp;
  88.  </caption>
  89.  $table_hdtr<th>$SU_shno<th>$SU_shti<th>$SU_shst
  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>-</td>
  100.   </tr>
  101.  !next i
  102.  !for i=1 to $doccnt
  103.   !set sh=!record $i of wimshome/log/classes/$wims_class/doc/.index
  104.   !distribute lines $sh into s_,t_
  105.   $table_tr<td align=center>$U_Doc
  106.   <td>
  107.   !href module=adm/doc&job=read&doc=$s_&block=main $t_
  108.   <td align=center>-
  109.  !next i
  110.  !for i=1 to $sheetcnt
  111.   !set sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  112.   !distribute lines $sh into ac,t_,ti
  113.   $table_tr<td align=center>$U_Sheet $i
  114.   <td>
  115.   !href module=adm/class/sheet&sheet=$i $ti
  116.   <td align=center>$(ac_$[$ac])
  117.  !next i
  118.  !for i=1 to $examcnt
  119.   !set sh=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  120.   !distribute lines $sh into ac,t_,d_,ti
  121.   $table_tr<td align=center>$U_Exam $i
  122.   <td>
  123.   !href module=adm/class/exam&exam=$i $ti
  124.   <td align=center>$(ac_$[$ac])
  125.  !next i
  126.  !for i=1 to $votecnt
  127.   !set sh=!record $i of wimshome/log/classes/$wims_class/vote/.votes
  128.   !distribute lines $sh into st_,ti_,op_,re_
  129.   $table_tr<td align=center>$U_Vote
  130.   <td>
  131.   !href module=adm/vote&job=read&vote=$i $ti_
  132.   <td align=center>$(ac_$[$st_])
  133.  !next i
  134.  $table_end <p>
  135. !endif
  136. $ADD_1
  137. !href module=adm/doc&job=creat $ADD_doc
  138. !if $wims_supertype!=4 or $class_typename!=class
  139. ,
  140. !href module=adm/class/sheet&sheet=$[$sheetcnt+1] $ADD_sheet
  141. ,
  142. !href module=adm/class/exam&exam=$[$examcnt+1] $ADD_exam
  143. ,
  144. !href module=adm/createxo $ADD_exo
  145. !endif
  146. !if $class_type=2
  147. ,
  148. !href module=adm/class/regclass $ADD_class
  149. !endif
  150.  
  151.  $N_or
  152. !href module=adm/vote&job=creat $ADD_vote
  153. .
  154.  
  155. <p>
  156. !read ./form.phtml
  157. !read ./result.phtml
  158. !if $wims_supertype!=4 or $class_typename!=class
  159. <p>
  160. !href module=classes/$lang&special_parm=.nocache. $SU_classexo
  161. .&nbsp;
  162. !href module=adm/modtool Modtool
  163. .
  164. !endif
  165. :end
  166. <p><center>
  167. <table width=99% border=0 cellspacing=0 cellpadding=3 bgcolor=$wims_ref_bgcolor>
  168. <tr><td align=left width=33%>&nbsp;&nbsp;
  169. !href module=adm/class/userlist $SE_list
  170. <br>&nbsp;&nbsp;
  171. !href module=adm/class/classes&type=supervisor $U_oclass
  172. <br>&nbsp;&nbsp;
  173. !href cmd=close&module=home&lang=$lang $V_Quit
  174. .
  175. </td><td align=center width=33%>
  176. !href style=student $SE_part
  177. <br>
  178. !href module=adm/class/config $SE_config
  179. <br>
  180. !href module=adm/class/config&job=security $SE_secu
  181. !!href module=adm/light&phtml=useropts.phtml.$lang $V_Chpref
  182. </td><td align=right width=33%>
  183. !href target=wims_help module=help/main&chapter=3 $N_Help
  184. &nbsp;&nbsp;<br>
  185. !href module=adm/forum/mboard $N_Mboard
  186.  
  187. &nbsp;&nbsp;<br>
  188. !if $exist_cdt=yes
  189.  !href module=adm/class/cdt $ADD_cdt
  190.  &nbsp; / &nbsp;
  191. !endif
  192. !href module=adm/class/motd $SE_mod
  193. &nbsp;&nbsp;</td></tr></table></center>
  194. :end
  195. <p align=right><small>
  196. WIMS-$wims_version@$httpd_HTTP_HOST. $E_manager
  197. !mailurl $wims_site_manager\
  198. WIMS
  199. . <br>
  200. </small>
  201. </DIV></BODY>
  202. </HTML>
  203.  
  204.