WebSVN – wimsdev – Diff – /trunk/wims/public_html/modules/adm/quicktool/var.proc

 !if robot isin $session
   !exit
 !endif
 !readproc auth
-   !if $wims_developer=$empty
+!if $wims_developer=$empty
-    !exit
+  !exit
-   !endif
+!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=
+  error=
-   dossier=type
+  dossier=type
-   !if $example=0 or $example=
+  !if $example=0 or $example=
-      !if $debut=1
+    !if $debut=1
-         !reset mtype N M source
+      !reset mtype N M source
-          compute=no
+       compute=no
-      !else
+    !else
-          !for a in title,author,email,file,source
+      !for a in title,author,email,file,source
-              !if $($a)=$empty
+        !if $($a)=$empty
-                 error= $error $a
+          error= $error $a
-              !endif
+        !endif
-          !next
+      !next
-           compute=yes
+      compute=yes
-      !endif
+    !endif
-   !else
+  !else
-      !for a in type_exo,title,author,email,file,N,MAX1,M,try,\
+    !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
+      $(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
+    !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
+      taille_corr=$size
     !endif
     !if $type_exo iswordof ORDONNE \
-     or ($type_exo iswordof SELECTWORD SELECTWORDA GAP and ($format iswordof dragfill clickfill))
+        or ($type_exo iswordof SELECTWORD SELECTWORDA GAP and ($format iswordof dragfill clickfill))
-      size=$taille_drag
+      taille_drag=$size
     !endif
     !if $type_exo iswordof SELECTWORD SELECTWORDA GAP and $format=case
-       size=$taille_case
+      taille_case=$size
     !endif
     !if $type_exo iswordof COMPOSE
-       size=$taille_compose
+      taille_compose=$size
     !endif
     !if $type_exo iswordof TRUEFALSE
-      choice=$choice_tf
+      choice_tf=$choice
     !endif
     !if $type_exo iswordof GAP
-      choice=$choice_gap
+      choice_gap=$choice
     !endif
     !if $type_exo iswordof QUIFAITQUOI
-      choice=$taille_qq
+      choice_qq=$choice
     !endif
     !if $type_exo iswordof QCMIII
-       choice=$choice_fd
+      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 =
+  liste =
-    !for a in reading, audio, image, video
+  !for a in reading, audio, image, video
-      !if $($(a)_file1)=no
+    !if $($(a)_file1)=no
-        $(a)_file=no
+      $(a)_file=no
-      !else
+    !else
-        $(a)_file=!trim $($(a)_file0)
+      $(a)_file=!trim $($(a)_file0)
-      !endif
+    !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\
+    modele= $name_warning\
 %% $date\
+\
 $modele
-   !for a in $Type_exo
+    !for a in $Type_exo
-     mod=!record 0 of $dossier/$a
+      mod=!record 0 of $dossier/$a
-     modele =$modele\
+      modele =$modele\
-     $mod
+      $mod
-   !next
+    !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
+    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
+    !for a in title,email,author
-    b=!trim $($a)
+      b=!trim $($a)
-    modele=!replace internal \$a{} by \$a{$b} in $modele
+      modele=!replace internal \$a{} by \$a{$b} in $modele
-  !next
+    !next
-  !setdef quick_title=$title in wimshome/$sesdir/var.stat
+    !setdef quick_title=$title in wimshome/$sesdir/var.stat
-  !setdef quick_source=$source 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,\
+    !for a in file, reading_file, audio_file, image_file, video_file,N, M, MAX,try,alea,\
-      instruction,instruction2,\
+        instruction,instruction2,\
-      choice,answer_given,format,format0,common,second_step,first_step,pos_rep,percent,\
+        choice,answer_given,format,format0,common,second_step,first_step,pos_rep,percent,\
-      size,qcm_prompt1,qcm_prompt2,sens,aucune,partialscore,paste,\
+        size,qcm_prompt1,qcm_prompt2,sens,aucune,partialscore,paste,\
-      specialhelp1,specialhelp2,specialhelp3,specialhelp4,helpprompt,reaccent,packs,player,\
+        specialhelp1,specialhelp2,specialhelp3,specialhelp4,helpprompt,reaccent,packs,player,\
-        good_answer_text,bad_answer_text,incomplete_answer_text
+      good_answer_text,bad_answer_text,incomplete_answer_text
-    b=!trim $($a)
+      b=!trim $($a)
-    !setdef quick_$a=$b in wimshome/$sesdir/var.stat
+      !setdef quick_$a=$b in wimshome/$sesdir/var.stat
-    modele=!replace internal \text{$a=} by \text{$a=$b} in $modele
+      modele=!replace internal \text{$a=} by \text{$a=$b} in $modele
-  !next
+    !next
-  !for a in style_question,style_reponse,style_oef,style_css
+    !for a in style_question,style_reponse,style_oef,style_css
-    b=!replace internal $\
+      b=!replace internal $\
 $ by 	 in $($a)
-    b=!trim $b
+      b=!trim $b
-    !setdef quick_$a=$b in wimshome/$sesdir/var.stat
+      !setdef quick_$a=$b in wimshome/$sesdir/var.stat
-    modele=!replace internal _$a by $b in $modele
+      modele=!replace internal _$a by $b in $modele
-   !next
+    !next
-  modele=!replace internal \text{player_option=} by \text{player_option=$player_option} in $modele
+    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{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{instruction2=asis()} by \text{instruction2=asis($instruction2)} in $modele
-  modele=!replace internal \text{file=randitem()} by \text{file=randitem($($file))} in $modele
+    modele=!replace internal \text{file=randitem()} by \text{file=randitem($($file))} in $modele
-  !if yes iswordof $reading_file1 $image_file1
+    !if yes iswordof $reading_file1 $image_file1
-    help = !record 0 of $dossier/HELP
+      help = !record 0 of $dossier/HELP
-    !if $raw=1
+      !if $raw=1
-      help=!replace internal RAW(reading) by \special{expandlines \reading} in  $help
+        help=!replace internal RAW(reading) by \special{expandlines \reading} in  $help
-    !else
+      !else
-      help=!replace internal RAW(reading) by \reading in $help
+        help=!replace internal RAW(reading) by \reading in $help
+      !endif
     !endif
-  !endif
-  modele = $modele $help
+    modele = $modele $help
-  exo=$modele
+    exo=$modele
-  exo1 = !replace internal & by &amp; in $exo
+    exo1 = !replace internal & by &amp; in $exo
-  example=
+    example=
-  !if $wims_developer!=$empty
+    !if $wims_developer!=$empty
-    list_mod=!sh ls $wims_home/public_html/modules/devel/$wims_developer
+      list_mod=!sh ls $wims_home/public_html/modules/devel/$wims_developer
-    list_mod=!words2items $list_mod
+      list_mod=!words2items $list_mod
-    list_module=
+      list_module=
-    !for a in $list_mod
+      !for a in $list_mod
-      category = !module category devel/$wims_developer/$a
+        category = !module category devel/$wims_developer/$a
-      !if oef isin $category
+        !if oef isin $category
-        list_module=!append item $a to $list_module
+          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
-    !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 $transfert=yes and $target!=$empty
-    !if / isin $target or .. isin $target
+      !if / isin $target or .. isin $target
+        error=$error nom_fichier
+      !exit
+    !endif
+    !if / isin $source or .. isin $source
       error=$error nom_fichier
-    !exit
+      !exit
-  !endif
-  !if / isin $source or .. isin $source
-    error=$error nom_fichier
-    !exit
-  !endif
+    !endif
-  dir=$wims_home/public_html/modules/devel/$wims_developer/$target
+    dir=$wims_home/public_html/modules/devel/$wims_developer/$target
-  !setdef common_images=yes\
+    !setdef common_images=yes\
-  class_importation=no in wimshome/public_html/modules/devel/$wims_developer/$target/var.proc
+    class_importation=no in wimshome/public_html/modules/devel/$wims_developer/$target/var.proc
-  !!debug $modele
-  !filewrite getfile/$source.oef $modele
+    !filewrite getfile/$source.oef $modele
-  !sh rm $dir/src/.oef\
+    !sh rm $dir/src/.oef\
-   find $dir -name .DS_Store -exec rm {} \; \
+      find $dir -name .DS_Store -exec rm {} \; \
-   cp $wims_home/$wims_sesdir/getfile/$source.oef $dir/src\
+      cp $wims_home/$wims_sesdir/getfile/$source.oef $dir/src\
-   cd $dir\
+      cd $dir\
-   src2def
+      src2def
-  !readproc listefile
+    !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 \

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/modules/adm/quicktool/var.proc – Rev 12520 → 14218