Subversion Repositories wimsdev

Rev

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

  1.  
  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.