Subversion Repositories wimsdev

Rev

Rev 14347 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !default search_lang=$lang
  2. !if $gotcnt=0
  3.   !if $srch=$empty
  4.     !exit
  5.   !endif
  6.   !if $module!=home
  7.     Désolé, rien n'est trouvé pour <span class="wims_emph">
  8.    $search</span>.
  9.  !endif
  10.  <p>
  11.  Aucun outil rapide n'existe encore sur ce sujet.
  12.   </p>
  13.   !exit
  14. !endif
  15. !set gotm=!lines2items $gotm
  16. !set gotm=!item 1 to 20 of $gotm
  17. !if .. isin $gotm
  18.   !reset gotm
  19. !endif
  20. !for s in $gotm
  21.   !set vars=!record 5 of $formdir/$s.def
  22.   !set vars=!nonempty lines $vars
  23.   !if $vars!=$empty
  24.     !set n_=!linecnt $vars
  25.     !for i=1 to $n_
  26.       !set l_=!line $i of $vars
  27.       !set var_$i=!randitem $l_
  28.     !next i
  29.   !endif
  30.   !set ops=!record 2 of $formdir/$s.def
  31.   !set submits=!record 3 of $formdir/$s.def
  32.   !set content=!record 4 of $formdir/$s.def
  33.   !set ops=!nonempty lines $ops
  34.   !set ocnt=!linecnt $ops
  35.   !reset oplist
  36.   !for op=1 to $ocnt
  37.     !set ol=!line $op of $ops
  38.     !distribute items $ol into n_,v_,w_
  39.     !set n_=!word 1 of $n_
  40.     !if $n_!=$empty and $w_$v_!=$empty
  41.       !set op_$n_=$v_
  42.       !if $w_!=
  43.         !set op_$n_=$(op_n_),$w_
  44.       !endif
  45.       !set oplist=!append item $n_ to $oplist
  46.     !endif
  47.   !next op
  48.   !set oplist=!listcomplement module,size,color,precision in $oplist
  49.   !set submits=!translate internal " to $ $ in $submits
  50.  !set submits=!nonempty lines $submits
  51.  !set scnt=!linecnt $submits
  52.  !for su=1 to $scnt
  53.    !set sl=!line $su of $submits
  54.    !distribute items $sl into n_,v_,w_
  55.    !set n_=!word 1 of $n_
  56.    !if $v_!=$empty
  57.      !if $n_!=$empty
  58.        !set N_=name="$n_"
  59.      !else
  60.        !reset N_
  61.      !endif
  62.      !set submit$su=<input type="submit" value="$v_" $jsdef />
  63.      !if $w_!=$empty
  64.        !set submit$su=$(submit$su)\
  65.        <input type="hidden" $N_ value="$v_,$w_" />
  66.      !endif
  67.    !endif
  68.  !next su
  69.  !default op_size=$default_size
  70.  !default op_module=$default_module
  71.  !default op_color=$default_color
  72.  !default op_precision=$default_precision
  73.  !set content=!nonempty lines $content
  74.  <!--     Independent calculator form: $s     -->
  75.  <form target="$winname" name="calcform" action="$wims_ref_name">
  76.  <div style="background-color:$op_color;padding:10pt;
  77.   border-collapse:collapse; border:1px solid gray;margin:10px;width:90%">
  78.  <input type="hidden" name="session" value="popup" /> $sizeinput
  79.  <input type="hidden" name="module" value="$op_module" />
  80.  <input type="hidden" name="precision" value="$op_precision" />
  81.  !for o in $oplist
  82.    <input type="hidden" name="$o" value="$(op_$o)" />
  83.  !next o
  84.   $content
  85.  </div></form>
  86.  !reset op_module, op_color, op_size, op_precision
  87. !next s
  88. <!--     End of Independent calculator form     -->
  89.  
  90. !if noremark notwordof $wims_read_parm
  91.  <span class="wims_warning">Remarque.</span>
  92.  Tous les formulaires ci-dessus sont indépendants l'un de l'autre. Ils
  93.  peuvent aussi fonctionner dans vos propres pages web (mais seulement
  94.  en ligne) : recopiez la partie correspondante du texte source de
  95.  cette page et collez-la dans votre propre page, avec ou sans
  96.  modifications.
  97.  
  98. !endif
  99.