Subversion Repositories wimsdev

Rev

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

Rev 5874 Rev 12555
Line 13... Line 13...
13 
!!
 13 
!!
14 
!! output
 14 
!! output
15 
!! variable echoose contain list of series selected format $sheet.$exo
 15 
!! variable echoose contain list of series selected format $sheet.$exo
16 
!!
 16 
!!
17 
 
 17 
 
18 
  $name_selectsheet
 18 
$name_selectsheet
19 
  <select name="ltsheets" onchange="submit()" value="$ltsheets">
 19 
<select name="ltsheets" onchange="submit()" value="$ltsheets">
20 
  !let ltsheets=!listintersect $asheets and $ltsheets
 20 
!let ltsheets=!listintersect $asheets and $ltsheets
21 
  !if $ltsheets=$empty
 21 
!if $ltsheets=$empty
22 
   !let ltsheets=$asheets
 22 
  !let ltsheets=$asheets
23 
  !endif
 23 
!endif
24 
  !if $ltsheets=$asheets
 24 
!if $ltsheets=$asheets
25 
   <option value="$asheets" selected="selected">$name_All</option>
 25 
  <option value="$asheets" selected="selected">$name_All</option>
- 
 
 26 
!else
- 
 
 27 
  <option value="$asheets">$name_All</option>
- 
 
 28 
!endif
- 
 
 29 
!for k in $asheets
- 
 
 30 
  !if $ltsheets=$k
- 
 
 31 
    <option value="$k" selected="selected">
26 
  !else
 32 
  !else
27 
   <option value="$asheets">$name_All</option>  
 33 
    <option value="$k">
28 
  !endif
 34 
  !endif
29 
  !for k in $asheets
 - 
 
30 
   !if $ltsheets=$k
 - 
 
31 
    <option value="$k" selected="selected">
 - 
 
32 
   !else
 - 
 
33 
    <option value="$k">  
 - 
 
34 
   !endif
 - 
 
35 
    !let t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
 35 
  !let t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
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 
!let checked=$empty
 41 
!let checked=$empty
42 
!set  select_option=style="width: 400px;" multiple="multiple" size="15"
 42 
!set  select_option=style="width: 400px;" multiple="multiple" size="15"
43 
<table class="wimscenter wimsnoborder">
 43 
<table class="wimscenter wimsnoborder">
44 
 <tr>
 44 
 <tr>
45 
  <td valign="top">
 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')">
 46 
   <select  $select_option name="select_sheet1" ondblclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'add')">
47 
  !for i in $asheets
 47 
!for i in $asheets
48 
   !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
 48 
  !set t=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$i
49 
   !for j=1 to $t
 49 
  !for j=1 to $t
50 
    !if $i.$j isitemof $echoose
 50 
    !if $i.$j isitemof $echoose
51 
     !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
 - 
 
52 
     !distribute line $r into r1,r2,r3,r4,r5,r6
 - 
 
53 
     !let checked=!append line <option value="$i.$j">$i.$j : $r5</option> to $checked
 - 
 
54 
    !else
 - 
 
55 
     !if $i isitemof $ltsheets
 - 
 
56 
      !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
57 
      !distribute line $r into r1,r2,r3,r4,r5,r6
 52 
      !distribute line $r into r1,r2,r3,r4,r5,r6
- 
 
 53 
      !let checked=!append line <option value="$i.$j">$i.$j : $r5</option> to $checked
- 
 
 54 
    !else
- 
 
 55 
      !if $i isitemof $ltsheets
- 
 
 56 
        !set r=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$i
- 
 
 57 
        !distribute line $r into r1,r2,r3,r4,r5,r6
58 
      <option value="$i.$j">$i.$j : $r5 </option>
 58 
        <option value="$i.$j">$i.$j : $r5 </option>
59 
     !endif
 59 
      !endif
60 
    !endif
 60 
    !endif
61 
   !next j
 61 
  !next j
62 
  !next i
 62 
!next i
63 
  </select>
 63 
  </select>
64 
  </td>
 64 
  </td>
65 
  <td>
 65 
  <td>
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;"/>
 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;"/>
67 
   <br/>
 67 
   <br/>