Subversion Repositories wimsdev

Rev

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

Rev 9110 Rev 9174
Line 42... Line 42...
42 
wims_oefdefault_precw\
 42 
wims_oefdefault_precw\
43 
  into qnum,qcmlevel,scoredelay,intro_qcmpresent,intro_presentsol,intro_check,\
 43 
  into qnum,qcmlevel,scoredelay,intro_qcmpresent,intro_presentsol,intro_check,\
44 
  expow,sepow,precw
 44 
  expow,sepow,precw
45 
!endif
 45 
!endif
46 
 
 46 
 
47 
!! calcul du nombre d'exo dans le module.
 47 
!! calcul du nombre d'exercices
- 
 
 48 
!if /////classes/ isin /////$smodule
- 
 
 49 
    !! adresse du module d'exo d'une classe
- 
 
 50 
    dir_header=wimshome/log/classes/$wims_class
- 
 
 51 
!else
- 
 
 52 
    !! adresse d'un module public ou modtool
48 
exolist=!defof exolist in wimshome/public_html/modules/$smodule/Exindex
 53 
    dir_header=wimshome/public_html/modules/$smodule
- 
 
 54 
!endif
- 
 
 55 
exolist=!defof exolist in $dir_header/Exindex
49 
exolist=!char 17 to -2 of $exolist
 56 
exolist=!char 17 to -2 of $exolist
50 
exotitle=!defof titlelist in wimshome/public_html/modules/$smodule/Exindex
 57 
exotitle=!defof titlelist in $dir_header/Exindex
51 
exotitle=!char 17 to -2 of $exotitle
 58 
exotitle=!char 17 to -2 of $exotitle
52 
exocnt=!itemcnt $exolist
 59 
exocnt=!itemcnt $exolist
- 
 
 60 
 
53 
 
 61 
 
54 
!if $step=2
 62 
!if $step=2
55 
!! vérification des données de feuille.
 63 
!! vérification des données de feuille.
56 
 !if $picksheet=$empty
 64 
 !if $picksheet=$empty
57 
  error=no_pick
 65 
  error=no_pick
58 
  !exit
 66 
  !exit
59 
 !endif
 67 
 !endif
60 
 picksheet=$[floor($picksheet)]
 68 
 picksheet=$[floor($picksheet)]
61 
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
 69 
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
62 
  error=bad_sheet
 70 
  error=bad_sheet
63 
  !exit
 71 
  !exit
64 
 !endif
 72 
 !endif
65 
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
 73 
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
66 
 a=!line 1 of $sh
 74 
 a=!line 1 of $sh
67 
 !if $a>0
 75 
 !if $a>0
68 
  error=bad_sheet
 76 
  error=bad_sheet
69 
  !exit
 77 
  !exit
70 
 !endif
 78 
 !endif
Line 168... Line 176...
168 
 !endif
 176 
 !endif
169 
 last=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
 177 
 last=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
170 
 notadd=!itemcnt $listalready
 178 
 notadd=!itemcnt $listalready
171 
 addexo=$[$exocnt-$notadd]
 179 
 addexo=$[$exocnt-$notadd]
172 
 wims_module_log=class $class: add  No$[$last-$addexo+1] to No$last to worksheet $picksheet
 180 
 wims_module_log=class $class: add  No$[$last-$addexo+1] to No$last to worksheet $picksheet
- 
 
 181 
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
- 
 
 182 
 title=!line 3 of $sh
173 
!endif
 183 
!endif
174 
 
 184