Subversion Repositories wimsdev

Rev

Rev 8817 | Rev 9108 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8817 Rev 9106
Line 4... Line 4...
4 
 
 4 
 
5 
max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf
 5 
max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf
6 
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
 6 
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
7 
title_limit=50
 7 
title_limit=50
8 
desc_limit=255
 8 
desc_limit=255
9 
 
 - 
 
10 
 
 - 
 
11 
 
 9 
 
12 
!if $scoring=yes
 10 
!if $scoring=yes
13 
 !default require=10
 11 
 !default require=10
14 
 !default weight=1
 12 
 !default weight=1
15 
!else
 13 
!else
16 
 require=0
 14 
 require=0
17 
 weight=0
 15 
 weight=0
18 
!endif
 16 
!endif
19 
 
 - 
 
20 
 
 17 
 
21 
!if $step=1
 18 
!if $step=1
22 
 sheets=
 19 
 sheets=
23 
 !for i=1 to $sheettot
 20 
 !for i=1 to $sheettot
24 
  sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
 21 
  sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
Line 49... Line 46...
49 
exotitle=!defof titlelist in wimshome/public_html/modules/$smodule/Exindex
 46 
exotitle=!defof titlelist in wimshome/public_html/modules/$smodule/Exindex
50 
exotitle=!char 17 to -2 of $exotitle
 47 
exotitle=!char 17 to -2 of $exotitle
51 
exocnt=!itemcnt $exolist
 48 
exocnt=!itemcnt $exolist
52 
 
 49 
 
53 
!if $step=2
 50 
!if $step=2
54 
!! vérification des données de feuille.
 51 
!! vérification des données de feuille.
55 
 !if $picksheet=$empty
 52 
 !if $picksheet=$empty
56 
  error=no_pick
 53 
  error=no_pick
57 
  !exit
 54 
  !exit
58 
 !endif
 55 
 !endif
59 
 picksheet=$[floor($picksheet)]
 56 
 picksheet=$[floor($picksheet)]
60 
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
 57 
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
61 
  error=bad_sheet
 58 
  error=bad_sheet
62 
  !exit
 59 
  !exit
63 
 !endif
 60 
 !endif
64 
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
 61 
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
65 
 a=!line 1 of $sh
 62 
 a=!line 1 of $sh
66 
 !if $a>0
 63 
 !if $a>0
67 
  error=bad_sheet
 64 
  error=bad_sheet
68 
  !exit
 65 
  !exit
69 
 !endif
 66 
 !endif
70 
 shexocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
 67 
 shexocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
71 
 !if $exocnt+shexocnt>$max_exos
 68 
 !if $exocnt+$shexocnt>$max_exos
72 
  error=too_many_exos
 69 
  error=too_many_exos
73 
  !exit
 70 
  !exit
74 
 !endif
 71 
 !endif
75 
 !if $scoring=yes
 72 
 !if $scoring=yes
76 
  require=$[$require]
 73 
  require=$[$require]
Line 82... Line 79...
82 
   weight=0
 79 
   weight=0
83 
  !endif
 80 
  !endif
84 
  !bound require between 0,$[10*$require_limit] default 0
 81 
  !bound require between 0,$[10*$require_limit] default 0
85 
  !bound weight between 0,10 default 0
 82 
  !bound weight between 0,10 default 0
86 
 !endif
 83 
 !endif
87 
!! vérification des données d'exécution du module d'exo
 84 
!! vérification des données d'exécution du module d'exo
88 
 test_transl=!module translation_language $dir
 85 
 test_transl=!module translation_language $dir
89 
 !if $lang iswordof $test_transl
 86 
 !if $lang iswordof $test_transl
90 
   tr_lang=yes
 87 
   tr_lang=yes
91 
   title=!module title_$lang $dir
 88 
   title=!module title_$lang $dir
92 
   desc=!module description_$lang $dir
 89 
   desc=!module description_$lang $dir
Line 107... Line 104...
107 
 !if $scoredelay!=$empty and $scoredelay!=0
 104 
 !if $scoredelay!=$empty and $scoredelay!=0
108 
  d_=!items2words $scoredelay
 105 
  d_=!items2words $scoredelay
109 
  !distribute words $d_ into delay1,delay2
 106 
  !distribute words $d_ into delay1,delay2
110 
  !bound delay1 between integer 0 and 2000 default 0
 107 
  !bound delay1 between integer 0 and 2000 default 0
111 
  !bound delay2 between integer $delay1 and 2000
 108 
  !bound delay2 between integer $delay1 and 2000
112 
  scoredelay=$delay1,$delay2
 109 
  scoredelay=$delay1 $delay2
113 
 !endif
110 
 !endif
114 
 iniparm=$empty
 111 
 iniparm=$empty
115 
 !if $intro_check!=$empty
 112 
 !if $intro_check!=$empty
116 
 	!for k in $intro_check
 113 
 	!for k in $intro_check
117 
		iniparm=$(iniparm)&intro_check=$k
 114 
		iniparm=$(iniparm)&intro_check=$k
118 
	!next k
 115 
	!next k
119 
 !endif
 116 
 !endif
120 
 iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expert=yes
 117 
 iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expert=yes
121 
!! ------  Ecriture des données dans le fichier de la feuille.
118 
!! ------  write data in the sheet file.
122 
 !! analyse des séries présentes dans la feuille
 119 
 !! analyse series already in the sheet
123 
 listmod=$empty
 120 
 listmod=$empty
124 
 listiniparm=$empty
 121 
 listiniparm=$empty
125 
 !for i=1 to $shexocnt
 122 
 !for i=1 to $shexocnt
126 
	e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
 123 
	e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
127 
	!distribute lines $e into wdi,win
 124 
	!distribute lines $e into wdi,win