Subversion Repositories wimsdev

Rev

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

Rev 9106 Rev 9108
Line 34... Line 34...
34 
 !distribute line $wims_oefdefault_qnum\
 34 
 !distribute line $wims_oefdefault_qnum\
35 
$wims_oefdefault_qcmlevel\
 35 
$wims_oefdefault_qcmlevel\
36 
$wims_oefdefault_scoredelay\
 36 
$wims_oefdefault_scoredelay\
37 
$wims_oefdefault_qcmpresent\
 37 
$wims_oefdefault_qcmpresent\
38 
$wims_oefdefault_presentsol\
 38 
$wims_oefdefault_presentsol\
- 
 
 39 
$wims_oefdefault_check\
- 
 
 40 
wims_oefdefault_expow\
- 
 
 41 
wims_oefdefault_sepow\
- 
 
 42 
wims_oefdefault_precw\
39 
$wims_oefdefault_check into qnum,qcmlevel,scoredelay,intro_qcmpresent,intro_presentsol,intro_check
 43 
  into qnum,qcmlevel,scoredelay,intro_qcmpresent,intro_presentsol,intro_check,\
40 
 
 - 
 
- 
 
 44 
  expow,sepow,precw
41 
!endif
 45 
!endif
42 
 
 46 
 
43 
!! calcul du nombre d'exo dans le module.
 47 
!! calcul du nombre d'exo dans le module.
44 
exolist=!defof exolist in wimshome/public_html/modules/$smodule/Exindex
 48 
exolist=!defof exolist in wimshome/public_html/modules/$smodule/Exindex
45 
exolist=!char 17 to -2 of $exolist
 49 
exolist=!char 17 to -2 of $exolist
46 
exotitle=!defof titlelist in wimshome/public_html/modules/$smodule/Exindex
 50 
exotitle=!defof titlelist in wimshome/public_html/modules/$smodule/Exindex
47 
exotitle=!char 17 to -2 of $exotitle
 51 
exotitle=!char 17 to -2 of $exotitle
48 
exocnt=!itemcnt $exolist
 52 
exocnt=!itemcnt $exolist
49 
 
 53 
 
50 
!if $step=2
 54 
!if $step=2
51 
!! vérification des données de feuille.
 55 
!! vérification des données de feuille.
52 
 !if $picksheet=$empty
 56 
 !if $picksheet=$empty
53 
  error=no_pick
 57 
  error=no_pick
54 
  !exit
 58 
  !exit
55 
 !endif
 59 
 !endif
56 
 picksheet=$[floor($picksheet)]
 60 
 picksheet=$[floor($picksheet)]
57 
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
 61 
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
58 
  error=bad_sheet
 62 
  error=bad_sheet
59 
  !exit
 63 
  !exit
60 
 !endif
 64 
 !endif
61 
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
 65 
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
62 
 a=!line 1 of $sh
 66 
 a=!line 1 of $sh
63 
 !if $a>0
 67 
 !if $a>0
Line 72... Line 76...
72 
 !if $scoring=yes
 76 
 !if $scoring=yes
73 
  require=$[$require]
 77 
  require=$[$require]
74 
  weight=$[$weight]
 78 
  weight=$[$weight]
75 
  !if NaN isin $require
 79 
  !if NaN isin $require
76 
   require=0
 80 
   require=0
77 
  !endif
 81 
  !endif
78 
  !if NaN isin $weight
 82 
  !if NaN isin $weight
79 
   weight=0
 83 
   weight=0
80 
  !endif
 84 
  !endif
81 
  !bound require between 0,$[10*$require_limit] default 0
 85 
  !bound require between 0,$[10*$require_limit] default 0
82 
  !bound weight between 0,10 default 0
 86 
  !bound weight between 0,10 default 0
83 
 !endif
 87 
 !endif
84 
!! vérification des données d'exécution du module d'exo
 88 
!! vérification des donnees d'execution du module d'exo
85 
 test_transl=!module translation_language $dir
 89 
 test_transl=!module translation_language $dir
86 
 !if $lang iswordof $test_transl
 90 
 !if $lang iswordof $test_transl
87 
   tr_lang=yes
 91 
   tr_lang=yes
88 
   title=!module title_$lang $dir
 92 
   title=!module title_$lang $dir
89 
   desc=!module description_$lang $dir
 93 
   desc=!module description_$lang $dir
Line 92... Line 96...
92 
 !default desc=!module description $dir
 96 
 !default desc=!module description $dir
93 
 cat=!module category $dir
 97 
 cat=!module category $dir
94 
 !if exercise notin $cat and oef notin $cat
 98 
 !if exercise notin $cat and oef notin $cat
95 
  error=not_exo
 99 
  error=not_exo
96 
  !exit
 100 
  !exit
97 
 !endif
 101 
 !endif
98 
 !bound qnum between integer 1 and 9 default $wims_oefdefault_qnum
 102 
 !bound qnum between integer 1 and 9 default $wims_oefdefault_qnum
99 
 !bound qcmlevel between integer 1 and 9 default $wims_oefdefault_qcmlevel
 103 
 !bound qcmlevel between integer 1 and 9 default $wims_oefdefault_qcmlevel
100 
 !bound intro_qcmpresent between integer 2 and 8 default $wims_oefdefault_qcmpresent
 104 
 !bound intro_qcmpresent between integer 2 and 8 default $wims_oefdefault_qcmpresent
101 
 !bound intro_presentsol between integer 0 and 2 default $wims_oefdefault_presentsol
 105 
 !bound intro_presentsol between integer 0 and 2 default $wims_oefdefault_presentsol
- 
 
 106 
 !bound intro_expow between integer 1 and 3 default $wims_oefdefault_expow
- 
 
 107 
 !bound intro_sepow between integer 1 and 3 default $wims_oefdefault_sepow
- 
 
 108 
 !bound intro_precw between integer 1 and 3 default $wims_oefdefault_precw
- 
 
 109 
 
102 
 intro_check=!listintersect $intro_check and 1,2,3,4
 110 
 intro_check=!listintersect $intro_check and 1,2,3,4
103 
 !bound random within 0,1 default 0
 111 
 !bound random within 0,1 default 0
104 
 !if $scoredelay!=$empty and $scoredelay!=0
 112 
 !if $scoredelay!=$empty and $scoredelay!=0
105 
  d_=!items2words $scoredelay
 113 
  d_=!items2words $scoredelay
106 
  !distribute words $d_ into delay1,delay2
 114 
  !distribute words $d_ into delay1,delay2
107 
  !bound delay1 between integer 0 and 2000 default 0
 115 
  !bound delay1 between integer 0 and 2000 default 0
108 
  !bound delay2 between integer $delay1 and 2000
 116 
  !bound delay2 between integer $delay1 and 2000
109 
  scoredelay=$delay1 $delay2
 117 
  scoredelay=$delay1 $delay2
110 
 !endif
 118 
 !endif
111 
 iniparm=$empty
 119 
 iniparm=$empty
- 
 
 120 
 !if $expert_=yes
112 
 !if $intro_check!=$empty
 121 
  !if $intro_check!=$empty
113 
 	!for k in $intro_check
 122 
 	!for k in $intro_check
114 
		iniparm=$(iniparm)&intro_check=$k
 123 
		iniparm=$(iniparm)&intro_check=$k
115 
	!next k
 124 
	!next k
116 
 !endif
 125 
  !endif
117 
 iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expert=yes
 126 
    iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expow=$intro_expow&intro_sepow=$intro_sepow&intro_precw=$intro_precw&intro_expert=yes
- 
 
 127 
!else
- 
 
 128 
  iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay
- 
 
 129 
!endif
118 
!! ------  write data in the sheet file.
 130 
!! ------  write data in the sheet file.
119 
 !! analyse series already in the sheet
 131 
 !! analyse series already in the sheet
120 
 listmod=$empty
 132 
 listmod=$empty
121 
 listiniparm=$empty
 133 
 listiniparm=$empty
122 
 !for i=1 to $shexocnt
 134 
 !for i=1 to $shexocnt