Subversion Repositories wimsdev

Rev

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

  1. <div class="wims_content">
  2.  
  3. !if $clcnt<=0
  4.  $name_example1
  5.  !exit
  6. !endif
  7.  
  8. !if $lacnt<=0
  9.  $name_example2
  10.  $name_example3b ($listla).
  11.  !exit
  12. !else
  13.   $name_example3
  14. !endif
  15. !if $othercnt>0
  16. $name_example3b ($listla).
  17. !endif
  18. <ol>
  19. <li>$name_example4
  20. $name_instruction
  21. </li><li>$name_example41
  22. !set tmp=!replace internal XXXXX by , in $name_sheet_example
  23. $(tmp[1])
  24. !href module=home&search_keywords=&search_category=S $wims_name_Sheets
  25. $ $(tmp[2])
  26. !reset tmp
  27. </li></ol>
  28. !!href module=adm/class/regclass $wims_name_classcreate
  29. !let nb=!itemcnt $classification
  30. !bound exampletype between 1 and $nb default 3
  31. <div class="wimscenter">
  32.  !for k=1 to $nb
  33.   !let titre=!item $k of $classification
  34.    !if $k!=$exampletype
  35.     !set wims_ref_class=wims_button
  36.     !href cmd=reply&exampletype=$k $titre
  37.     &nbsp;
  38.    !else
  39.    <span class="wims_button disabled">
  40.     $titre
  41.   </span>
  42.    !endif
  43.  !next k
  44. </div>
  45.  $table_header
  46.  <caption>$(classification[$exampletype])</caption>
  47.   $table_hdtr<th>$wims_name_name</th>
  48.   <th>$name_connexion</th><th>$name_register</th>
  49.   !!<th>$name_copy</th>
  50.   </tr>
  51.   !for i=1 to $clcnt
  52.   !reset class_archived
  53.    !set l=!line $i of $classes
  54.    !distribute items $l into code,expire,inst,cl
  55.    !defread wimshome/log/classes/$code/.def
  56.    !distribute char $class_level into l_,y_
  57.  
  58.    !let clsty=!positionof item $class_level in E1,E2,E3,E4,E5,E6,H1,H2,H3,H4,H5,H6,U1,U2,U3,U4,U5,U6,Lang
  59.    !if $clsty!=$empty
  60.     !let clsty=!item $clsty of 1,1,1,1,1,2,2,2,2,3,3,3,4,4,4,4,4,4,5
  61.    !endif
  62.    !if $class_archived=yes
  63.       !let clsty=6
  64.    !endif
  65.    !if $exampletype=$clsty or ($clsty=$empty and $exampletype=$nb)
  66.     $table_tr
  67.      <td>$inst <br /> $cl
  68.      !if $class_info!=$empty
  69.      <br /> $class_info
  70.      !endif
  71.      </td>
  72.      <td>
  73.      !set wims_ref_class=wims_button
  74.       !href module=home&user=anonymous,$code,anonymous $name_anonymous
  75.       &nbsp;
  76.       !set wims_ref_class=wims_button
  77.       !href module=$module&type=authparticipant&class=$code $name_registered
  78.      </td>
  79.      <td>
  80.      !set wims_ref_class=wims_button
  81.       !href module=adm/class/reguser&class=$code $name_register
  82.      </td>
  83.      !!<td>
  84.      !!!set wims_ref_class=wims_button
  85.      !! !href module=adm/class/regclass&job=cloneexemple&sourcecls=$code $name_copy
  86.      !!</td>
  87.     </tr>
  88.    !endif
  89.   !next i
  90.  $table_end
  91. </div>
  92.