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

 !!@#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
               !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
         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 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
 $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,\
        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 &amp; 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
       !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

Subversion Repositories wimsdev

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