Rev 12520 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!!@#language independant
!read adm/language lang/names.phtml
!read tabletheme
!!!for the moment no language version, because only one example module
!set example_dir=lang/example.fr
wims_prefix=class user tmp
!if robot isin $session
!exit
!endif
!readproc auth
!if $wims_developer=$empty
!exit
!endif
sesdir=!translate internal _ to $ $ in $wims_sesdir
sesdir=!word 1 of $sesdir
!default author=!words2items $wims_name
author=!nonempty items $author
!default email=$wims_devemail
!if $cmd iswordof reply new resume renew
error=
dossier=type
!if $example=0 or $example=
!if $debut=1
!reset mtype N M source
compute=no
!else
!for a in title,author,email,file,source
!if $($a)=$empty
error= $error $a
!endif
!next
compute=yes
!endif
!else
!for a in type_exo,title,author,email,file,N,MAX1,M,try,\
instruction,instruction2,answer_given,alea,choice,format,format0,\
percent,pos_rep,common,second_step,first_step,\
file, reading_file, audio_file,image_file,video_file,size,source,\
style_question,style_reponse,style_oef,style_css,\
reading_tag,image_tag,video_tag,qcm_prompt1,qcm_prompt2,\
sens,aucune,raw,partialscore,paste,specialhelp1,specialhelp2,\
specialhelp3,specialhelp4,helpprompt,reaccent,packs,player,player_option,\
good_answer_text,bad_answer_text,incomplete_answer_text,\
$(a) =!getdef $a in $example_dir/$TYPE/$example
!next
!if $type_exo iswordof CORRESP
taille_corr=$size
!endif
!if $type_exo iswordof ORDONNE \
or ($type_exo iswordof SELECTWORD SELECTWORDA GAP and ($format iswordof dragfill clickfill))
taille_drag=$size
!endif
!if $type_exo iswordof SELECTWORD SELECTWORDA GAP and $format=case
taille_case=$size
!endif
!if $type_exo iswordof COMPOSE
taille_compose=$size
!endif
!if $type_exo iswordof TRUEFALSE
choice_tf=$choice
!endif
!if $type_exo iswordof GAP
choice_gap=$choice
!endif
!if $type_exo iswordof QUIFAITQUOI
choice_qq=$choice
!endif
!if $type_exo iswordof QCMIII
choice_fd=$choice
!endif
!for a in reading,audio,image,video
!if $($(a)_file) notsametext no and $($(a)_file)!=$empty
$(a)_file0=$($(a)_file)
$(a)_file1=yes
!else
$(a)_file1=no
!endif
!next
compute=no
example=
!endif example
!readproc values
!if $N issametext all
N=\cnt_question
!endif
!if $MAX1 issametext all or $MAX1=
MAX = \cnt_question
!else
MAX=$MAX1
!endif
!if $type_exo iswordof CORRESP
size=$taille_corr
!endif
!if $type_exo iswordof ORDONNE \
or ($type_exo iswordof SELECTWORD SELECTWORDA GAP and ($format iswordof dragfill clickfill))
size=$taille_drag
!endif
!if $type_exo iswordof SELECTWORD SELECTWORDA GAP and $format=case
size=$taille_case
!endif
!if $type_exo iswordof COMPOSE
size=$taille_compose
!endif
!if $type_exo iswordof TRUEFALSE
choice=$choice_tf
!endif
!if $type_exo iswordof GAP
choice=$choice_gap
!endif
!if $type_exo iswordof QUIFAITQUOI
choice=$taille_qq
!endif
!if $type_exo iswordof QCMIII
choice=$choice_fd
!endif
liste =
!for a in reading, audio, image, video
!if $($(a)_file1)=no
$(a)_file=no
!else
$(a)_file=!trim $($(a)_file0)
!endif
!next
Type_exo = $type_exo
!for a in file,source,reading_file,audio_file,image_file,video_file
$a=!nospace $($a)
$a=!deaccent $($a)
!next
modele=!record 0 of $dossier/COMMUN
date=!date '+%c'
modele= $name_warning\
%% $date\
\
$modele
!for a in $Type_exo
mod=!record 0 of $dossier/$a
modele =$modele\
$mod
!next
modele=!replace internal IMAGES by $image_tag in $modele
modele=!replace internal VIDEO by $video_tag in $modele
modele=!replace internal READING by $reading_tag in $modele
modele=!replace internal _image_dir by \imagedir in $modele
!for a in title,email,author
b=!trim $($a)
modele=!replace internal \$a{} by \$a{$b} in $modele
!next
!setdef quick_title=$title in wimshome/$sesdir/var.stat
!setdef quick_source=$source in wimshome/$sesdir/var.stat
!for a in file, reading_file, audio_file, image_file, video_file,N, M, MAX,try,alea,\
instruction,instruction2,\
choice,answer_given,format,format0,common,second_step,first_step,pos_rep,percent,\
size,qcm_prompt1,qcm_prompt2,sens,aucune,partialscore,paste,\
specialhelp1,specialhelp2,specialhelp3,specialhelp4,helpprompt,reaccent,packs,player,\
good_answer_text,bad_answer_text,incomplete_answer_text
b=!trim $($a)
!setdef quick_$a=$b in wimshome/$sesdir/var.stat
modele=!replace internal \text{$a=} by \text{$a=$b} in $modele
!next
!for a in style_question,style_reponse,style_oef,style_css
b=!replace internal $\
$ by in $($a)
b=!trim $b
!setdef quick_$a=$b in wimshome/$sesdir/var.stat
modele=!replace internal _$a by $b in $modele
!next
modele=!replace internal \text{player_option=} by \text{player_option=$player_option} in $modele
modele=!replace internal \text{instruction=asis()} by \text{instruction=asis($instruction)} in $modele
modele=!replace internal \text{instruction2=asis()} by \text{instruction2=asis($instruction2)} in $modele
modele=!replace internal \text{file=randitem()} by \text{file=randitem($($file))} in $modele
!if yes iswordof $reading_file1 $image_file1
help = !record 0 of $dossier/HELP
!if $raw=1
help=!replace internal RAW(reading) by \special{expandlines \reading} in $help
!else
help=!replace internal RAW(reading) by \reading in $help
!endif
!endif
modele = $modele $help
exo=$modele
exo1 = !replace internal & by & in $exo
example=
!if $wims_developer!=$empty
list_mod=!sh ls $wims_home/public_html/modules/devel/$wims_developer
list_mod=!words2items $list_mod
list_module=
!for a in $list_mod
category = !module category devel/$wims_developer/$a
!if oef isin $category
list_module=!append item $a to $list_module
!endif
!next
!if $list_module=$empty and $transfert=yes
error = $error oefempty
!endif
!if $target issametext $name_choice
target=$empty
!endif
!endif
!if $transfert=yes and $target!=$empty
!if / isin $target or .. isin $target
error=$error nom_fichier
!exit
!endif
!if / isin $source or .. isin $source
error=$error nom_fichier
!exit
!endif
dir=$wims_home/public_html/modules/devel/$wims_developer/$target
!setdef common_images=yes\
class_importation=no in wimshome/public_html/modules/devel/$wims_developer/$target/var.proc
!filewrite getfile/$source.oef $modele
!sh rm $dir/src/.oef\
find $dir -name .DS_Store -exec rm {} \; \
cp $wims_home/$wims_sesdir/getfile/$source.oef $dir/src\
cd $dir\
src2def
!readproc listefile
!if / isin $wims_deposit or .. isin $wims_deposit
!exit
!endif
!if $type_fichier > 0
!if $wims_deposit!=noname.file and $wims_deposit!=$empty \
and $wims_deposit!=.oef and $type_fichier > 0
!if $type_fichier=1
file_transfert=$file
!endif
!if $type_fichier=2
file_transfert=$reading_file
!endif
!if $type_fichier=3
file_transfert=images/$image_file
!endif
!if $type_fichier=4
file_transfert=images/$audio_file
!endif
!if $type_fichier=5
!sh cd $wims_home/$wims_sesdir\
mv user-deposit getfile/$wims_deposit\
cp getfile/$wims_deposit $dir/images/$wims_deposit
!else
!if $type_fichier<=2
!sh cd $wims_home/$wims_sesdir\
mv user-deposit getfile/$wims_deposit\
cd getfile\
dos2unix -o $wims_deposit\
cd ..\
cp getfile/$wims_deposit $dir/$file_transfert
!else
!sh cd $wims_home/$wims_sesdir\
mv user-deposit getfile/$wims_deposit\
cp getfile/$wims_deposit $dir/$file_transfert
!endif
!endif
!reset type_fichier
dir=$wims_home/public_html/modules/devel/$wims_developer/$target
!readproc listefile
!endif
!reset file_transfert
!endif
!endif transfert
!endif
!set wims_ariane=!append line modtool,1,module=adm/modtool\
to $wims_ariane
!if $type_exo!=$empty
!set wims_ariane=!append line quicktool,1,module=$module\
to $wims_ariane
!else
!set wims_ariane=!append line quicktool,8, to $wims_ariane
!endif
!set wims_ariane_self=no
!if $wims_theme=default
!set wims_menu_items=!append line $wims_ariane to $wims_menu_items
!reset wims_ariane
!endif
class_importation=no
wims_module_log= $cmd $Type_exo