Subversion Repositories wimsdev

Rev

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

  1. !read adm/language names.phtml
  2. !read lang/names.phtml.$modu_lang
  3.  
  4. !read adm/css.phtml
  5. !header1
  6.  
  7. !!if $cmd=help
  8.  !!read help.phtml
  9.  !!goto end
  10. !!endif
  11.  
  12. !read adm/title.phtml 1\
  13. WIMS $httpd_HTTP_HOST\
  14. $name_title
  15.  
  16. !if $cltype iswordof 2 4 and $classcnt>0
  17.  <center>
  18.  ($name_reserved)
  19.  </center>
  20. !endif
  21.  
  22. !if $error!=$empty
  23.  <p>
  24.  !read lang/msg.phtml.$modu_lang
  25.  <p>
  26.  !goto end1
  27. !endif
  28.  
  29. !if $classcnt=0
  30.   $name_warning1
  31.  !goto end
  32. !endif
  33.  
  34. !if $class=$empty
  35.  $name_inscription
  36.  <p>
  37.  $table_header
  38.  !if $ctype=0
  39.   $table_hdtr
  40.   <th>$wims_name_name<th>$wims_name_nameteacher<th>$wims_name_level<th>$wims_name_Language</th>
  41.   <th>$name_remainig<th>$wims_name_Status
  42.  !else
  43.   <caption>$institution_name</caption>
  44.   $table_hdtr
  45.   <th>$wims_name_name<th>$wims_name_Supervisor<th>$wims_name_level
  46.   <th>$wims_name_Status
  47.  !endif
  48.  !for cl in $classlist
  49.   !reset class_supervisor,class_email,class_level,class_lang,class_institution,class_description,class_password,class_limit
  50.   !defread wimshome/log/classes/$cl/.def
  51.   !distribute char $class_level into l1,l2
  52.   !set part=!recordcnt wimshome/log/classes/$cl/.userlist
  53.   $table_tr<td align="center">
  54.   !if $ctype=0
  55.    !href module=$module&cmd=reply&class=$cl $class_institution<br>$class_description
  56.   !else
  57.    !href module=$module&cmd=reply&class=$cl $class_description
  58.   !endif
  59.   <td align="center">
  60.   !mailurl $class_email $class_supervisor
  61.   </td>
  62.   !if $class_level=$empty
  63.    !set pname=!defof class_description in wimshome/log/classes/$class_parent/.def
  64.     <td align="center">$pname</td>
  65.   !else
  66.     <td align="center">$(level$l1)<br>$name_year $l2</td>
  67.   !endif
  68.   !if $ctype=0
  69.    <td align="center">$(lang_$class_lang)</td>
  70.    <td align="right">
  71.    !if $class_limit-$part>$site_dispo
  72.     $site_dispo
  73.    !else
  74.     $[$class_limit-$part]
  75.    !endif
  76.   !endif
  77.   !if $class_password=$empty
  78.    <td align="center">$(name_statut[1])</td>
  79.   !else
  80.    <td align="center">$(name_statut[2])</td>
  81.   !endif
  82.  !next cl
  83.  $table_end <p>
  84.  $name_remark1
  85.  !goto end1
  86. !endif class=empty
  87.  
  88. !set classname=<b><font color=green>$description</font></b>\
  89.   - <b><font color=green>$institution</font></b>
  90.  
  91. !if $password!=$empty and $passverify=$empty
  92.  !if $cltype iswordof 2 4
  93.   $name_classessss
  94.   !href module=adm/class/classes&type=authparticipant&class=$class <b>$description</b>
  95.  !else
  96.   $name_classessss
  97.   !href module=adm/class/classes&type=authparticipant&class=$class <b>$description</b>
  98.  !endif
  99.  (<b><font color=green>$institution</font></b>)
  100.  !if $cltype iswordof 4 2
  101.   $name_warning_protected
  102.   !if $classcnt>0
  103.   $name_inscription_student
  104.   !href cmd=new&module=$module&class=$class&subclass=yes $name_inyourclass
  105. .
  106.   !endif
  107.  !else
  108.   $name_isprotected
  109.   !endif
  110.  <p> $name_writepasswd
  111.  !if $cltype iswordof 2 4
  112.   $name_asateacher.
  113.  !else
  114.   $name_asaparticipant.
  115.  !endif
  116.  !form reply
  117.  <input type=hidden name="step" value=1>
  118.  <center> <p><label for="classpass">$wims_name_Password</label>
  119.  <input type=password name="classpass" id="classpass">
  120.  <p>
  121.  <input type=submit value="$wims_name_send">
  122.  </center></form> <p>
  123.  <b>$wims_name_warning</b>.
  124.  !if $cltype iswordof 2 4
  125.   $name_access1
  126.  !else
  127.   $name_access2
  128.  !endif
  129.  $name_obtainpasswd
  130. (
  131.  !if $cltype iswordof 2 4
  132.   !mailurl $smail $name_write_adm
  133.  !else
  134.   !mailurl $smail $wims_name_wsup
  135.  !endif
  136. ).
  137.  !if $cltype iswordof 2 4
  138.   $name_warning_direct
  139.   !href cmd=new&module=$module&class=$class&subclass=yes $name_inyourclass
  140. .
  141.   <p>
  142.   !endif
  143.  !goto end1
  144. !endif
  145.  
  146. !if $step=$empty or $step<2
  147.  !if $superclass!=$empty and $wims_class!=$superclass and $wims_user=supervisor
  148.   !form reply
  149.   <input type=hidden name="step" value=1>
  150.   <label for="search">$name_research:</label>
  151.   <input size=20 name="search" id="search" value="$search">
  152.   <input type=submit value="$wims_name_tosave">
  153.   </form> <p>
  154.   !default foundcnt=0
  155.   !if $foundcnt>0
  156.    $table_header
  157.    <caption>$name_clickname</caption>
  158.    $table_hdtr<th>$wims_name_name</th><th>$wims_name_Login</th></tr>
  159.    !for i=1 to $foundcnt
  160.     !set l=!line $i of $found
  161.     !distribute item $l into l_,f_,L_
  162.     $table_tr<td>
  163.     !href cmd=reply&step=2&login=$L_ $l_, $f_
  164.     </td>
  165.     <td>$L_</td></tr>
  166.    !next i
  167.    $table_end
  168.    !goto end1
  169.   !endif
  170.   !if $search!=$empty and $foundcnt=0
  171.    ($name_nofound) <p>
  172.   !endif
  173.   $name_newparticipant
  174.  !else
  175.   $name_inscription2
  176.  !endif
  177.   !form reply
  178.  <input type=hidden name="step" value=2>
  179.  <ul>
  180.  <li><label for="lastn">$wims_name_lastname</label> <input size=20 name="lastn" id="lastn" value="$lastn">
  181. <label for="firstn">$wims_name_firstname</label> <input size=20 name="firstn" id="firstn" value="$firstn">
  182.   <p>
  183.  <li><label for="login">$wims_name_Login</label>
  184.   <input size=16 name="login" id="login" value="$login"> <br>
  185.   $name_warning_login. $name_passwd_warning
  186.   <p>
  187.  <li><label for="pass">$wims_name_Password</label>
  188.   <input type=password size=16 name="pass" id="pass"> <br>
  189.   $name_passwd_warning
  190.   <p>
  191.  <li><label for="email">$wims_name_email ($name_optional) :</label><br>
  192.   <input size=60 name="email" id="email" value="$email">
  193.   <p>
  194.  !if $wims_user=supervisor and $class=$wims_class and $cltype iswordof 2 4
  195.   <li>$name_accounttype:
  196.   !default utype=0
  197.   !formradio utype list 0,1 prompt $wims_name_namestudent,$wims_name_nameteacher
  198.  !endif
  199.  </ul>
  200.  <center><input type=submit value="$wims_name_tosave"></center>
  201.  </form>
  202.  !goto end1
  203. !endif
  204.  
  205. !if $step=2
  206.  $name_hello, $name_student!<p>
  207.  $name_inscription3 <tt><b><font color=green>$login</font></b></tt>. <p>
  208.  !if $email=$empty
  209.   $name_passwd_nonvalid <p>
  210.  !else
  211.   $wims_name_email: <tt>$email</tt> <p>
  212.  !endif
  213.  <label for="pass2">$name_passwd_exact:</label>
  214.  !form reply
  215.  <input type=hidden name="step" value=3>
  216.  <p><center><input type=password size=16 name="pass2" id="pass2">
  217.  <p><input type=submit value="$wims_name_send"></center>
  218.  </form> <p>
  219.  !goto end1
  220. !endif
  221.  
  222. !if $step=3
  223.  !if $wims_user=supervisor
  224.   $name_studentadded
  225.   <p>
  226.   !if $wims_supertype=4
  227.    !readproc adm/gateway/transfer $login test
  228.    !if $transfer_test>0
  229.     <p>
  230.     $name_otheractivities
  231.     !href module=adm/class/userlist&job=transfer&getuser=$login $name_transfer1
  232.     <p>
  233.    !endif
  234.   !endif
  235.  !set wims_menu_items=!append line part_list,1,module=adm/class/userlist\
  236.  addstudent,1,module=$module&step=1\
  237.  to wims_menu_items
  238.   !goto end
  239.  !endif
  240.  $name_hello, $name_student!<p>
  241.  $name_welcome
  242.  <tt class="d"><b><font color=green>$login</font></b></tt>. <p>
  243.  $name_youcan
  244.  !if $wims_class!=$empty
  245.   !href module=adm/class/classes&type=authparticipant&class=$class&auth_user=$login $name_gotowork
  246. .
  247.  !else
  248.   <a href="http://$httpd_HTTP_HOST$httpd_SCRIPT_NAME?lang=$lang&+module=adm/class/classes&+type=authparticipant&+class=$class&+auth_user=$login">
  249.   $name_gotowork</a>.
  250.   ($name_bookmark)
  251.  !goto end
  252. !endif
  253.  
  254. :end1
  255. !if $wims_user=supervisor
  256.  !goto end
  257. !endif
  258. <p>
  259. !if $cltype iswordof 2 4
  260.  !set wims_menu_items=!append line classlist,1,module=adm/class/classes&type=supervisor\
  261. to $wims_menu_items
  262. !else
  263.  !set wims_menu_items=!append line classlist,1,module=adm/class/classes&type=participant\
  264. to $wims_menu_items
  265. !endif
  266. :end
  267. !tail
  268.  
  269. !reset step, subclass
  270.  
  271.