Subversion Repositories wimsdev

Rev

Rev 6149 | 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.   ±§Ç¸, ûÓÐÓÐ¹Ø <span class="wims_emph">$search</span> µÄÄÚÈÝ.
  8.  !endif
  9.   <p>
  10.  ´Ëµ¯³ö¼ÆËãÆ÷±í¸ñµÄÊý¾Ý¿âÉÐÔÚÊÔÑé½×¶Î. ·þÎñÆ÷ÒѾ­°ÑÕâ´Îʧ°Ü¼Ç¼ÏÂÀ´,
  11.  Ê¹µÃ×÷ÕßÖªµÀÓû§µÄÐèÇó, ÒÔ±ãÒÔºó¸Ä½ø. ¸ÐлÄãµÄÄÍÐÄ.
  12.  </p>
  13.  !exit
  14. !endif
  15. !set gotm1=!lines2items $gotm
  16. !set gotm1=!item 1 to 20 of $gotm1
  17. !if .. isin $gotm1
  18.  !reset gotm
  19. !endif
  20. !for s in $gotm1
  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.  
  31.  !set ops=!record 2 of $formdir/$s.def
  32.  !set submits=!record 3 of $formdir/$s.def
  33.  !set content=!record 4 of $formdir/$s.def
  34.  
  35.  !set ops=!nonempty lines $ops
  36.  !set ocnt=!linecnt $ops
  37.  !reset oplist
  38.  !for op=1 to $ocnt
  39.   !set ol=!line $op of $ops
  40.   !distribute items $ol into n_,v_
  41.   !set n_=!word 1 of $n_
  42.   !if $n_!=$empty and $v_!=$empty
  43.    !set op_$n_=$v_
  44.    !set oplist=!append item $n_ to $oplist
  45.   !endif
  46.  !next op
  47.  !set oplist=!listcomplement module,size,color,precision in $oplist
  48.  
  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_
  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" $N_ value="$v_" $jsdef/>
  63.  !endif
  64. !next su
  65.  
  66. !default op_size=$default_size
  67. !default op_module=$default_module
  68. !default op_color=$default_color
  69. !default op_precision=$default_precision
  70. !set content=!nonempty lines $content
  71. <!--     Independent calculator form: $s     -->
  72. <form target="$winname" name="calcform" action="$wims_ref_name">
  73. <input type="hidden" name="session" value="popup" /> $sizeinput
  74. <input type="hidden" name="module" value="$op_module" />
  75. <input type="hidden" name="precision" value="$op_precision" />
  76. !for o in $oplist
  77. <input type="hidden" name="$o" value="$(op_$o)" />
  78. !next o
  79. <table width="90%" style="background-color:$op_color;padding:10pt;
  80.         border-collapse:collapse;">
  81. <tr>$content
  82. </td></tr></table></form>
  83. !reset op_module, op_color, op_size, op_precision
  84. !next s
  85.  
  86. !if noremark notwordof $wims_read_parm
  87. <p class="small"><b>¸½×¢.</b>
  88. ÉÏÊö±í¸ñÊǶÀÁ¢ÓÚ Wims ·þÎñÆ÷µÄ, Ò²ÊÇÏ໥¶ÀÁ¢µÄ.
  89. ËùÒÔËüÃÇÒ²ÄÜÔÚÄã×Ô¼ºµÄÍøÒ³ÄÚÕý³£¹¤×÷ (µ«ÊÇÄãµÄ»úÆ÷±ØÐëÔÚÏß).
  90. Äã¿ÉÒÔ°ÑÕâ¸öÒ³Ãæ±£´æÏÂÀ´, ¸ù¾ÝÐèÒªÐÞ¸Ä, Ò²¿ÉÒÔ°ÑÆäÖеÄÄÚÈݽØÈ¡ÏÂÀ´·Åµ½×Ô¼ºµÄÍøÒ³ÉÏ.
  91. </p>
  92. !endif
  93.  
  94.  
  95.