Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1051 bpr 1
!!<html><head>
2
!!$wims_html_header
3
!!</head><body $wims_htmlbody>
4
!!!headmenu
1170 bpr 5
!read adm/css.phtml
1051 bpr 6
!header1
23 reyssat 7
!read names.phtml
8
 
9
!!if $cmd=help
10
 !!read help.phtml
11
 !!goto end
12
!!endif
13
 
1336 bpr 14
!read adm/title.phtml 1\
15
$classname\
16
Insérer un module dans une feuille
23 reyssat 17
 
18
!if $error!=$empty
19
 <p>
20
 !read msg.phtml
21
 <p>
1330 bpr 22
 !goto end1
23 reyssat 23
!endif
24
 
25
!if $cmd=new or $cmd=resume
26
 Vous voulez insérer l'objet de travail <tt>$dir</tt>
1401 bpr 27
 !if $iniparm!=$empty
23 reyssat 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
1396 bpr 39
  !if $se=$sheetcnt
40
   <option value=$se selected>Feuille $se: $ti
41
  !else
42
   <option value=$se>Feuille $se: $ti
43
  !endif
23 reyssat 44
 !next i
45
 </select>
1574 bpr 46
 <p>Vous pouvez aussi modifier le titre et le texte descriptif.
47
 <p>
728 bpr 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
23 reyssat 54
 !set title=!trim $title
55
 !default title=Exercice
1574 bpr 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>
23 reyssat 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
1574 bpr 66
 <p><center><input type=submit value="$wims_name_changeto"></center>
23 reyssat 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.
1330 bpr 74
 
23 reyssat 75
!endif
1330 bpr 76
:end1
1336 bpr 77
!set wims_menu_items=!append line sheetcheck,1, module=adm/class/sheet&sheet=$picksheet\
78
to $wims_menu_items
23 reyssat 79
 
80
:end
1542 bpr 81
!set wims_menu_items=!append line moduback,1,module=$dir\
1336 bpr 82
to $wims_menu_items
1542 bpr 83
 
23 reyssat 84
!tail
85
 
86
!set job=
87