Subversion Repositories wimsdev

Rev

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

  1. !!<html><head>
  2. !!$wims_html_header
  3. !!</head><body $wims_htmlbody>
  4. !!!headmenu
  5. !read adm/css.phtml
  6. !header1
  7. !read names.phtml
  8.  
  9. !!if $cmd=help
  10.  !!read help.phtml
  11.  !!goto end
  12. !!endif
  13.  
  14. !read adm/title.phtml 1\
  15. $classname\
  16. Insérer un module dans une feuille
  17.  
  18. !if $error!=$empty
  19.  <p>
  20.  !read msg.phtml
  21.  <p>
  22.  !goto end1
  23. !endif
  24.  
  25. !if $cmd=new or $cmd=resume
  26.  Vous voulez insérer l'objet de travail <tt>$dir</tt>
  27. !if $iniparm!=$empty
  28.  avec des paramètres d'initialisation <tt>$iniparm</tt>
  29.  !endif
  30. . <p>
  31.  
  32.  !form reply
  33.  Choisissez la feuille dans laquelle vous voulez insérer le travail :
  34.  <select name=picksheet>
  35.  !for i=1 to $sheetcnt
  36.   !set sh=!line $i of $sheets
  37.   !set se=!item 1 of $sh
  38.   !set ti=!item 2 to -1 of $sh
  39.   !if $se=$sheetcnt
  40.    <option value=$se selected>Feuille $se: $ti
  41.   !else
  42.    <option value=$se>Feuille $se: $ti
  43.   !endif
  44.  !next i
  45.  </select>
  46.  <p>Vous pouvez aussi modifier le titre et le texte descriptif.
  47.  <p>
  48.  !set iniparm1=!replace internal & by $ $ in $iniparm
  49.  !set exo=!getopt exo in $iniparm1
  50.  !set title1=!lookup $exo in wimshome/public_html/modules/$dir/Extitles
  51.  !if $title1!=$empty
  52.    !set title=$title1
  53.  !endif
  54.  !set title=!trim $title
  55.  !default title=Exercice
  56.  $wims_name_title: <input size=50 name=title value="$title"> <p>
  57.  $wims_name_Description: <textarea name=new_desc rows=5 cols=50>$desc</textarea>
  58.  !if $scoring=yes
  59.   <p>Nombre de points que vous demandez à chaque participant d'obtenir sur
  60.  ce travail : <input size=4 name=require value="$require"> <small>(chaque
  61.  exercice totalement réussi donne 10 points; mettez donc plus que 10 points
  62.  ici si vous voulez que le participant répète l'exercice.)</small> <p>
  63.   Poids des points obtenus sur ce travail (pour le calcul de la moyenne) :
  64.   <input size=6 name=weight value="$weight">.
  65.  !endif
  66.  <p><center><input type=submit value="$wims_name_change"></center>
  67.  </form>
  68.  !goto end
  69. !endif
  70.  
  71. !if $cmd=reply
  72.  L'application ``<tt>$title</tt>'' a été insérée avec succès dans la feuille
  73. $picksheet de votre classe.
  74.  
  75. !endif
  76. :end1
  77. !set wims_menu_items=!append line sheetcheck,1, module=adm/class/sheet&sheet=$picksheet\
  78. to $wims_menu_items
  79.  
  80. :end
  81. !set wims_menu_items=!append line moduback,1,module=$dir\
  82. to $wims_menu_items
  83.  
  84. !tail
  85.  
  86. !set job=
  87.  
  88.