Rev 18148 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!read adm/class/classlang names.phtml
wims_prefix=class user tmp techvar
!default activeexo=10
optionlist=autogen
!if $wims_class=$empty
!reset job name_title
error=noclass
!exit
!endif
!read tabletheme
sh=!itemcnt $asheets
!if $sh<1
error=no_sheet
!exit
!endif
scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
!if $scnt=0
!sh mkdir -p $wims_home/log/classes/$wims_class/exams
!endif
!if $exam>$scnt
wims_infoshow=yes
!setdef wims_infoshow=$wims_infoshow in wimshome/sessions/$wims_session/var.stat
!endif
!if $cmd=resume
!bound infoshow within yes,no default $wims_infoshow
wims_infoshow=$infoshow
!setdef wims_infoshow=$wims_infoshow in wimshome/sessions/$wims_session/var.stat
!endif
tmp=!defof MAX_EXAMS\
MIN_WEIGHT\
MAX_WEIGHT\
DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
!distribute line $tmp into max_exams,min_weight,max_weight,df_severity
df_weight=!word 1 of $df_severity
title_limit=80
desc_limit=4000
etitle_limit=100
edesc_limit=400
duration_min=2
duration_max=600
duration_default=90
tries_min=1
tries_max=100
tries_default=3
minscore_min=0
minscore_max=100
minscore_default=100
!default duration=$duration_default
wims_helper=chapter=3
!if $wims_user!=supervisor
!bound job within student, score, scorereg default student
!endif
!!if $job iswordof student score or $cmd=resume
wims_ariane_self=no
!!endif
!if $seq>0
wims_sequence=$seq
!endif
!if $job isitemof duplicate,coursewatch
!changeto $job.proc
!endif
today=!char 1 to 8 of $wims_now
thisyear=!char 1 to 4 of $today
!if $class_expiration=$empty or $class_creation=$empty
!defread wimshome/log/classes/$wims_class/.def
!if $wims_superclass!=$empty
class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
!endif
!endif
!if $class_expiration=$empty
error=bad_class
!exit
!endif
sharers=
sharing1=!defof sharable_sheet in wimshome/log/classes/$wims_class/neighbors
!for c in $sharing1
d=!defof sharing_sheet in wimshome/log/classes/$c/neighbors
!if $d issametext $wims_class
sharers=!append item $c to $sharers
!endif
!next c
jquery_defined=!defof jquery_defined in themes/$wims_theme/header.phtml
default_expdate=!record $exam of wimshome/log/classes/$wims_class/exams/.exams
default_expdate=!line 2 of $default_expdate
expdate=!text select char 0123456789 in $expdate
!default expdate=$default_expdate
expmon=!char 5 to 6 of $expdate
expday=!char 7 to 8 of $expdate
expyear=!char 1 to 4 of $expdate
expmon=!char 2,3 of $[abs(floor($expmon))+100]
expday=!char 2,3 of $[abs(floor($expday))+100]
expyear=!char -4 to -1 of $[abs(floor($expyear))+100000]
!if $expday>=1 and $expday<=31 and $expmon>=1 and $expmon<=12 \
and $expyear>=$thisyear and $expyear<=$thisyear+1 \
and $expyear$expmon$expday>$today \
and $expyear$expmon$expday<=$class_expiration \
and N notin $expmon$expday$expyear
expiration=$expyear$expmon$expday
!else
expiration=$class_expiration
!endif
expdate=$expiration
!if $exam<1 or $exam>$max_exams
error=bad_exam
!exit
!endif
# menu preparation
!if $job!=$empty and $job iswordof \
prep_activate prep_erase prep_expire
title=!record $exam of wimshome/log/classes/$wims_class/exams/.exams
title=!line 4 of $title
error=$job
!exit
!endif
!if $job=erase and $exam>=1 and $exam<=$scnt
test=
!for s=$exam+1 to $scnt
l=!record $s of wimshome/log/classes/$wims_class/exams/.exams
l=!line 1 of $l
!if $l>0
test=notclean
!endif
!next s
!if $test=$empty
update_field=0
!read update.exam
!endif
!readproc adm/updatesequence.proc exam,$exam
!restart module=home
!endif
!if $job=expire
!distribute item 1,2 into update_field,update_content
!read update.exam
job=
!endif
!if $job=hide
!distribute item 1,3 into update_field,update_content
!read update.exam
job=
!endif
!if $job=reactivate
!distribute item 1,1 into update_field,update_content
!read update.exam
job=
!endif
activetest=!record $exam of wimshome/log/classes/$wims_class/exams/.exams
a_=!line 1 of $activetest
a_=!trim $a_
expp=!line 2 of $activetest
!default expiration=$expp
!if $expiration>$class_expiration
expiration=$class_expiration
!endif
ecnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam
activetest=!replace line 4 by $ecnt in $activetest
!if $job=putsource and $a_=0
source=!trim $source
!writefile $srcname $source
putcnt=!recordcnt $srcname
!for i=1 to $putcnt
s_=!record $i of $srcname
n_=!linecnt $s_
bad_source=$i
!if $n_>=5 and $n_<10
!distribute lines $s_ into di,pa,re,we,ti,de
!for k in re,we,di,pa,ti,de
$k=!trim $($k)
w$k=!wordcnt $($k)
!next k
!if NaN isin $[$re]$[$we] or $[$wre*$wwe*$wdi]!=1 or $wpa>1 or $ti=$empty \
or isin $di or $re<0 or $we<0 or ($re>0 and $we=0)
error=bad_source
!exit
!endif
ti=!char 1 to $etitle_limit of $ti
de=!char 1 to $edesc_limit of $de
source_$i=$s_
last=$i
!else
# last record may be empty
!if $i!=$putcnt
error=bad_source
!exit
!endif
!endif
!next i
!for i=1 to $last
!appendfile wimshome/log/classes/$wims_class/exams/.exam$exam :$(source_$i)
!next i
!endif
!readproc adm/vfilter/listvarfilter.proc
!if $activetest!=$empty
exam_exist=yes
!default expiration=!line 2 of $activetest
exam_hidetechvar=!line 8 of $activetest
exam_mode=!line 9 of $activetest
!if $mode!=
exam_mode=$mode
!endif
!default exam_mode=0
activetest=!line 1 of $activetest
exocnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam
!if $job=student
!!relecture du fichier lang pour utiliser mode_exam
!read lang/names.phtml.$moduclass_lang
!if $wims_exrandomlist=$empty or $(wims_exrandomlist[2;])!=$exam
!if exrandomlist iswordof $class_option and $exam_mode!=1
wims_exrandomlist=!shuffle $exocnt
!else
wims_exrandomlist=!makelist x for x = 1 to $exocnt
!endif
wims_exrandomlist=$wims_exrandomlist;$exam;$exam_mode
!setdef wims_exrandomlist=$wims_exrandomlist in wimshome/sessions/$wims_session/var.stat
!endif
!set tmp_examstatus=!getsheetstatus exam=$exam
!if $tmp_examstatus=3
activetest=-1
exocnt=0
error=exam_hidden
!default expiration=$class_expiration
exam_exist=no
!exit
!endif
!endif
!else
exam_exist=no
activetest=-1
exocnt=0
!default expiration=$class_expiration
!endif
!!----desactivation d'examen soumis à condition :
!!pas de partage, pas de score élève,
!! certains types de classe (FG).
!!----desactivation possible dans un programme sans cours
!! tests faits differemment dans adm/class/sheet ...
testsharing=!defof sharable_exam\
sharing_exam in wimshome/log/classes/$wims_class/neighbors
testsharing=!lines2items $testsharing
testsharing=!nonempty items $testsharing
!! test for main class or program in a class group or a portal
testrecshare=!defof class_recshare in wimshome/log/classes/$wims_class/.def
deactivate=yes
!if $testsharing!=$empty or main isin $testrecshare or $activetest<1
deactivate=sharing
!else
!if $class_type!=0 and ($class_type!=1 or $wims_superclass!=$class_parent) \
and /0// notin $wims_class//
!if $class_typename=program
test1=!record 0 of wimshome/log/classes/$wims_class/courses
test2=!record 0 of wimshome/log/classes/$wims_class/icourses
!if $test1$test2!=$empty
deactivate=badstructure
!endif
!else
deactivate=badstructure
!endif
!else
test=!sh cd $wims_home/log/classes/$wims_class/;\
list=`ls noscore | grep -v supervisor`;\
cd noscore;\
awk 'length($$1)==18{if($$3==$exam){print "no";exit};}' $$list;
!if no isin $test
deactivate=score
!endif
!endif
!endif
!if $job=deactivate
!if yes isin $deactivate
!distribute item 1,0 into update_field,update_content
!read update.exam
job=
!read var.proc
!else
error=nodeactivate
!endif
!endif
!! ---------------------------
!readproc adm/scorerestriction get
!if $allow=yes and $wims_user=supervisor
!if $tv_listname=$empty
!bound allowtype within all,simulation,none,select default all
!else
!bound allowtype within all,simulation,none,select,techvar default all
!endif
!if $sharers!=$empty and $allowshare=1
!if $allowtype=techvar
!readproc adm/vfilter/validtechvar.proc $allowtechvar\
$sharers
!if $output=1
setclass=$wims_class,$sharers
!else
error=badallowshare
allowshare=0
setclass=$wims_class
!endif
!else
setclass=$wims_class,$sharers
!endif
!else
setclass=$wims_class
!endif
!if $allowtype=simulation
!for c in $setclass
!writefile wimshome/log/classes/$c/.E$exam #
!next c
!else
IPlist=!translate ,;\
* to $ $ in $_output
IPlist=!trim $IPlist
!if $allowtype=select and $IPlist=$empty and $save!=$empty
allowtype=all
!endif
!if $allowtype=all
allow_parm=
!endif
!if $allowtype=none
allow_parm=none
!endif
!if $allowtype=select
allow_parm=$IPlist
!endif
!if $allowtype=techvar
!readproc adm/vfilter/shexselect.proc E$exam
!endif
!! --- save modification of allow parameters
!if $save!=$empty
!if $allow_parm=$empty
setclass=!items2words $setclass
!sh for c in $setclass; do rm -f $wims_home/log/classes/$$c/.E$exam; done
!else
!for c in $setclass
!writefile wimshome/log/classes/$c/.E$exam $allow_parm
!next c
!endif
wims_class_log=exam $exam allow $allowtype $allowshare by $wims_realuser
!endif
!! --- end of saving
!if $cutt notsametext $cutt_save
cutt=!text select char 0123456789,.:; in $cutt
cutt=!translate ,; to $ $ in $cutt
cutt=!singlespace $cutt
!! --------------- format verification of cuttime
nbcutt=!wordcnt $cutt
fcutt=
!for k=1 to $nbcutt
tmp=!word $k of $cutt
tmp=!replace internal . by , in $tmp
n=!charcnt $(tmp[1])
!if $n!=8
!reset tmp
!else
ti=!replace internal : by , in $(tmp[2])
!distribute item $ti into h,m
h=$[$h*1]
m=$[$m*1]
!if $h<0 or $h>23 or $m<0 or $m>59 or NaN isin $h$m
!reset tmp
!else
h=!char 2 to 3 of $[100+$h]
m=!char 2 to 3 of $[100+$m]
fcutt=!append word $(tmp[1]).$h:$m to $fcutt
!endif
!endif
!next k
cutt=$fcutt
cutt=!sort words $cutt
!! --------------- end of format verification
!distribute lines 6\
$cutt into update_field,update_content
!read update.exam
cutt_save=$cutt
!endif
!endif
!endif
!! --------------- get/save weight parameter
rec=!record 0 of wimshome/log/classes/$wims_class/exams/.eseverity
!if $save!=$empty
!bound weight between $min_weight and $max_weight default $df_weight
nb=!linecnt $rec
!if $exam>$nb
!for k=$nb+1 to $exam
rec=!append line $df_weight to $rec
!next k
!endif
rec=!replace line number $exam by $weight in $rec
!writefile wimshome/log/classes/$wims_class/exams/.eseverity $rec
!endif
s_weight=!line $exam of $rec
!default weight=$s_weight
!if $allow=$empty or $save!=$empty
!! --- read saving configuration for allow parameters initial time and after saving
!readproc adm/vfilter/shexread.proc E$exam
!read adm/scorerestriction put\
$IPlist
!endif
old_allowtype=$allowtype
old_allowtechvar=$allowtechvar
!reset allow,save
!if $job iswordof student score
!if $wims_user=supervisor
allowtype=simulation
!else
simutest=!record 0 of wimshome/$wims_sesdir/examsimu.$exam
!if $allowtype!=simulation and yes iswordof $simutest
error=simuchange
!exit
!endif
!endif
!endif
!if $job!=text
!if $title_save$desc_save=$empty
rec=!record $exam of wimshome/log/classes/$wims_class/exams/.exams
!distribute lines $rec into bidon,bidon,setup_save,title_save,desc_save,cutt_save,comment_save,formal_hidden_condition_save,mode_save
!endif
setup=$setup_save
title=$title_save
desc=$desc_save
cutt=$cutt_save
comment=$comment_save
!readproc adm/vfilter/convertformat.proc human\
$formal_hidden_condition_save
!if $output_error!=$empty
error=hiddenbadtechvar
display=1
!endif
hidden_condition=$output_convertformat
mode=$mode_save
!else
!if $title=$empty
error=no_title
!exit
!endif
!if $hidden_condition!=$empty
!readproc adm/vfilter/convertformat.proc formal\
$hidden_condition
formal_hidden_condition=$output_convertformat
!readproc adm/vfilter/convertformat.proc human\
$formal_hidden_condition
hidden_condition=$output_convertformat
!if $output_error!=$empty
error=badtechvarname $output_error
!endif
!else
formal_hidden_condition=$empty
!endif
!ifval $activetest<=0
!bound duration between integer $duration_min and $duration_max default $duration_default
!bound tries between integer $tries_min and $tries_max default $tries_default
!bound minscore between integer $minscore_min and $minscore_max default $minscore_default
!if $mode=1
setup=$duration $tries $minscore
!else
setup=$duration $tries
!endif
!else
rec=!record $exam of wimshome/log/classes/$wims_class/exams/.exams
!distribute lines $rec into bidon,bidon,setup_save
setup=$setup_save
!endif
desc=!replace $\
$ by in $desc
title=!singlespace $title
desc=!singlespace $desc
title=!char 1 to $title_limit of $title
desc=!char 1 to $desc_limit of $desc
!if $activetest=0
!bound mode between 0 and 1 default $mode_save
!else
mode=$mode_save
!endif
!if $exam_exist=yes
!distribute lines 2\
$expiration into update_field,update_content
!read update.exam
!distribute lines 3\
$setup into update_field,update_content
!read update.exam
!distribute lines 4\
$title into update_field,update_content
!read update.exam
!distribute lines 5\
$desc into update_field,update_content
!read update.exam
!distribute lines 6\
$cutt into update_field,update_content
!read update.exam
!distribute lines 7\
$comment into update_field,update_content
!read update.exam
!distribute lines 8\
$formal_hidden_condition into update_field,update_content
!read update.exam
!if $activetest=0
!distribute lines 9\
$mode into update_field,update_content
!read update.exam
!endif
!else
!appendfile wimshome/log/classes/$wims_class/exams/.exams :0\
$expiration\
$setup\
$title\
$desc\
$cutt\
$comment\
$formal_hidden_condition\
$mode
exam_exist=yes
activetest=0
exam=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
!writefile wimshome/log/classes/$wims_class/exams/.exam$exam
!endif
title_save=$title
desc_save=$desc
setup_save=$setup
cutt_save=$cutt
comment_save=$comment
formal_hidden_condition_save=$formal_hidden_condition
mode_save=$mode
!endif
!if $mode=1
!distribute words $setup into sdure,stries,sminscore
!else
!distribute words $setup into sdure,stries,sprime
!endif
!default sprime=0
!default sminscore=100
duration=$sdure
minscore=$sminscore
!if $activetest>0 or $wims_user=supervisor
!! FIXME unuseless if one wants to create an exam ??
!read score.proc
!endif
!if $job=activate and $[$activetest]=0 or ($exam_mode=1 and $job=text and $[$activetest]=0)
!if $job=activate and $[$activetest]=0
!distribute item 1,1 into update_field,update_content
!read update.exam
!endif
!if $exam_mode=1 and $exocnt > 1
!! fix exercise dependancy in case of course mode to lock exercice order
!! and protect for adress hack
dataexam=$empty
dataexam=!record 1 of wimshome/log/classes/$wims_class/exams/.exam$exam
!if $dataexam!=$empty
!! if you move some other exercise in first position, need to clear
!! dependencies
dtlen=!linecnt $dataexam
!if $dtlen > 3
dataexam=!replace line number 4 by $empty in $dataexam
!endif
dataexam=:$dataexam
!for k=2 to $exocnt
dt=!record $k of wimshome/log/classes/$wims_class/exams/.exam$exam
dtlen=!linecnt $dt
!if $dtlen < 4
dt=$dt\
\
!endif
dt=!replace line number 4 by $[$k-1]:$minscore in $dt
dataexam=!append line :$dt to $dataexam
!next k
!writefile wimshome/log/classes/$wims_class/exams/.exam$exam $dataexam
!endif
!endif
!if $job=activate
activetest=1
!endif
!endif
!if $activetest=0
!readproc vfilter/listvarfilter.proc
# delete an item
!if $job=delete and $delete>0 and $delete<=$exocnt
!read adm/sheet/sheetexam.shift exam,$exam,,$delete
delete=
exocnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$exam
!endif
# move to specific position
!if $job=moveto and $movetarget>=1 and $movetarget<=$[$exocnt+1] \
and $movesource!=$movetarget and $movesource>=1 and $movesource<=$exocnt
!read adm/sheet/sheetexam.shift exam,$exam,$movetarget,$movesource
!endif
!endif
# modify an exercise
!if $job=exo
!if $activetest>0
error=active_exam
job=$empty
!exit
!endif
!bound $exo between integer 1 and $exocnt+1 default $exocnt+1
ee=!record $exo of wimshome/log/classes/$wims_class/exams/.exam$exam
!distribute lines $ee into w_,c_,n_,d_,o_,co_
!! !if $echoose$ename$eweight!=$empty
!if $save2!=$empty
!if $echoose=$empty
!if $c_!=$empty
echoose=$c_
!else
error=prep_noexercise
!reset save2
!exit
!endif
!endif
!bound eweight between 0,10 default 1
ename=!singlespace $ename
ename=!char 1 to $etitle_limit of $ename
!default ename=Ex
edep=!char 1 to 100 of $edep
eopt=!listintersect $eopt and $optionlist
update_content=$eweight\
$echoose\
$ename\
$edep\
$eopt\
$ecomment
update_field=0
!reset save2
!read update.exo
!reset job,sasheets
!if $error=$empty
msg_info=addexook
!endif
!changeto var.proc
!else
eweight=$w_
echoose=$c_
ename=$n_
edep=$d_
eopt=$o_
ecomment=$co_
!endif
!endif
erasable=no
!if $[$activetest]=0
erasable=yes
scnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
!for s=$exam+1 to $scnt
l=!record $s of wimshome/log/classes/$wims_class/exams/.exams
l=!line 1 of $l
!if $l>0
erasable=no
!endif
!next s
!endif
!if $back=1 and $error=$empty
!restart module=home
!endif
!if $job iswordof scorereg renew cpsheet cpexam
!read $job.proc
!endif