Subversion Repositories wimsdev

Rev

Rev 2795 | Rev 5696 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2795 Rev 2855
Line 36... Line 36...
36 
    $k :
 36 
    $k :
37 
    !line 3 of $t
 37 
    !line 3 of $t
38 
   </option>
 38 
   </option>
39 
  !next k
 39 
  !next k
40 
 </select>
 40 
 </select>
41 
  !reset wims_chooselist_checked
 41 
!let checked=$empty
- 
 
 42 
!set  select_option=style="width: 400px;" multiple="multiple" size="15"
42 
  !reset wims_chooselist_select
 43 
<center><table border="0" cellpadding="10" cellspacing="0">
43 
 
 44 
 <tr>
- 
 
 45 
  <td valign="top">
- 
 
 46 
   <select  $select_option name="select_sheet1" ondblclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'add')">
44 
  !for i in $asheets
 47 
  !for i in $asheets
45 
   !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 48 
   !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
46 
   !for j=1 to $t
 49 
   !for j=1 to $t
47 
    !if $i.$j isitemof $echoose
 50 
    !if $i.$j isitemof $echoose
48 
     !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
 51 
     !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
49 
     !distribute line $r into r1,r2,r3,r4,r5,r6
 52 
     !distribute line $r into r1,r2,r3,r4,r5,r6
50 
     !let wims_chooselist_checked=!append line <option value="$i.$j">$i.$j : $r5</option> to $wims_chooselist_checked
 53 
     !let checked=!append line <option value="$i.$j">$i.$j : $r5</option> to $checked
51 
    !else
 54 
    !else
52 
     !if $i isitemof $ltsheets
 55 
     !if $i isitemof $ltsheets
53 
      !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
 56 
      !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
54 
      !distribute line $r into r1,r2,r3,r4,r5,r6
 57 
      !distribute line $r into r1,r2,r3,r4,r5,r6
55 
      !let wims_chooselist_select=!append line <option value="$i.$j">$i.$j : $r5</option> to $wims_chooselist_select
 58 
      <option value="$i.$j">$i.$j : $r5 </option>
56 
     !endif
 59 
     !endif
57 
    !endif
 60 
    !endif
58 
   !next j
 61 
   !next j
59 
  !next i
 62 
  !next i
60 
 !set cnt_chooselist=!linecnt $wims_chooselist_checked\
 63 
  </select>
- 
 
 64 
  </td>
61 
 $wims_chooselist_select
 65 
  <td align="center">
62 
 !set wims_chooselist_option=style="width:200px;" multiple="multiple" size="$[max(min($cnt_chooselist,15),2)]"
 66 
   <input name="add" value=" &gt;&gt; " type="button" onclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'add'); return false;">
63 
 <center>
 67 
   <br>
64 
!read js/chooselist.phtml select_sheet1,select_sheet2,echoose
 68 
   <input name="remove" value=" &lt;&lt; " type="button" onclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'remove'); return false;">
65 
</center>
 69 
  </td>
- 
 
 70 
  <td valign="top">
- 
 
 71 
   <select $select_option name="select_sheet2" ondblclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'remove')">$checked</select>
- 
 
 72 
   <select style="overflow: hidden; visibility: hidden; width: 1px; height: 0;" name="echoose" multiple="multiple" size="10">$checked</select>
66 
 
 73 
  </td>
67 
 
 74 
 </tr>
- 
 
 75 
</table></center>