Subversion Repositories wimsdev

!if $step=$empty
    step=1
!endif

max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
title_limit=50
desc_limit=255

!if $scoring=yes
 !default require=10
 !default weight=1
!else
 require=0
 weight=0
!endif

!if $step=1
 sheets=
 !for i=1 to $sheettot
  sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  !distribute lines $sh into a_,t_,title
  !if $a_<1
   sheets=!append line $i,$title to $sheets
  !endif
 !next i
 sheetcnt=!linecnt $sheets
 !ifval $sheetcnt=0
  error=no_sheet
  !exit
 !endif
 special_parm2=expert
 smodule=$dir
 !distribute line $wims_oefdefault_qnum\
$wims_oefdefault_qcmlevel\
$wims_oefdefault_scoredelay\
$wims_oefdefault_qcmpresent\
$wims_oefdefault_presentsol\
$wims_oefdefault_check into qnum,qcmlevel,scoredelay,intro_qcmpresent,intro_presentsol,intro_check

!endif

!! calcul du nombre d'exo dans le module.
exolist=!defof exolist in wimshome/public_html/modules/$smodule/Exindex
exolist=!char 17 to -2 of $exolist
exotitle=!defof titlelist in wimshome/public_html/modules/$smodule/Exindex
exotitle=!char 17 to -2 of $exotitle
exocnt=!itemcnt $exolist

!if $step=2
!! vérification des données de feuille.
 !if $picksheet=$empty
  error=no_pick
  !exit
 !endif
 picksheet=$[floor($picksheet)]
 !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)
  error=bad_sheet
  !exit
 !endif
 sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets
 a=!line 1 of $sh
 !if $a>0
  error=bad_sheet
  !exit
 !endif
 shexocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
 !if $exocnt+$shexocnt>$max_exos
  error=too_many_exos
  !exit
 !endif
 !if $scoring=yes
  require=$[$require]
  weight=$[$weight]
  !if NaN isin $require
   require=0
  !endif
  !if NaN isin $weight
   weight=0
  !endif
  !bound require between 0,$[10*$require_limit] default 0
  !bound weight between 0,10 default 0
 !endif
!! vérification des données d'exécution du module d'exo
 test_transl=!module translation_language $dir
 !if $lang iswordof $test_transl
   tr_lang=yes
   title=!module title_$lang $dir
   desc=!module description_$lang $dir
 !endif
 !default title=!module title $dir
 !default desc=!module description $dir
 cat=!module category $dir
 !if exercise notin $cat and oef notin $cat
  error=not_exo
  !exit
 !endif
 !bound qnum between integer 1 and 9 default $wims_oefdefault_qnum
 !bound qcmlevel between integer 1 and 9 default $wims_oefdefault_qcmlevel
 !bound intro_qcmpresent between integer 2 and 8 default $wims_oefdefault_qcmpresent
 !bound intro_presentsol between integer 0 and 2 default $wims_oefdefault_presentsol
 intro_check=!listintersect $intro_check and 1,2,3,4
 !bound random within 0,1 default 0
 !if $scoredelay!=$empty and $scoredelay!=0
  d_=!items2words $scoredelay
  !distribute words $d_ into delay1,delay2
  !bound delay1 between integer 0 and 2000 default 0
  !bound delay2 between integer $delay1 and 2000
  scoredelay=$delay1 $delay2
 !endif
 iniparm=$empty
 !if $intro_check!=$empty
        !for k in $intro_check
                iniparm=$(iniparm)&intro_check=$k
        !next k
 !endif
 iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expert=yes
!! ------  write data in the sheet file.
 !! analyse series already in the sheet
 listmod=$empty
 listiniparm=$empty
 !for i=1 to $shexocnt
        e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
        !distribute lines $e into wdi,win
        listmod=!append line $wdi to $listmod
        listiniparm=!append line $win to $listiniparm
 !next i
 !! Ecriture
 writedon=$empty
 listalready=$empty
 !for j=1 to $exocnt
         ex=!item $j of $exolist
         lerror=0
         exoiniparm=exo=$ex&$iniparm
         !for i=1 to $shexocnt
                wdi=!line $i of $listmod
                win=!line $i of $listiniparm
                !if $smodule=$wdi and $exoiniparm=$win
                        lerror=1
                !endif
         !next i
         !if $lerror=1
                listalready=!append item $ex to $listalready
         !else
                writedon=!append line :$smodule\
$exoiniparm\
$require\
$weight\
$(exotitle[$j])\
$desc\
 to $writedon
         !endif
 !next j
 !if $writedon!=$empty
  !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$picksheet $writedon
 !endif
 last=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
 notadd=!itemcnt $listalready
 addexo=$[$exocnt-$notadd]
 wims_module_log=class $class: add  No$[$last-$addexo+1] to No$last to worksheet $picksheet
!endif