!! this process allow to generate a
list (echoose
) of series of exercices taken in active sheet
!!
!! to work this script need
!! asheets
: list of active sheets
!! echoose
: list of actual series selected
!! name_All, name_selectsheet
!! add to main
.phtml before
header !! !let js=!record 0 of js/chooselist.js
!! !let wims_html_header=!append line $js to $wims_html_header
!! in
var.def echoose and ltsheets need to be
define to any
!!
!! output
!! variable echoose contain
list of series selected format
$sheet.$exo !!
$name_selectsheet
<select name="ltsheets" onchange="submit()" value="$ltsheets">
!let ltsheets=!listintersect $asheets and $ltsheets
!if $ltsheets=$empty
!let ltsheets=$asheets
!endif
!if $ltsheets=$asheets
<option value="$asheets" selected="selected">$name_All</option>
!else
<option value="$asheets">$name_All</option>
!endif
!for k in $asheets
!if $ltsheets=$k
<option value="$k" selected="selected">
!else
<option value="$k">
!endif
!let t
=!record
$k of wimshome
/log/classes
/$wims_class/sheets
/.sheets
$k :
!line 3 of $t
</option>
</select>
!let checked=$empty
!set select_option=style="width: 400px;" multiple="multiple" size="15"
<table class="wimscenter wimsnoborder">
<tr>
<td valign="top">
<select $select_option name="select_sheet1" ondblclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'add')">
!for i in $asheets
!set t
=!recordcnt wimshome
/log/classes
/$wims_class/sheets
/.sheet
$i !for j=1 to $t
!if $i.$j isitemof $echoose
!set r
=!record
$j of wimshome
/log/classes
/$wims_class/sheets
/.sheet
$i !distribute line $r into r1,r2,r3,r4,r5,r6
!let checked=!append line <option value="$i.$j">$i.$j : $r5</option> to $checked
!else
!if $i isitemof $ltsheets
!set r
=!record
$j of wimshome
/log/classes
/$wims_class/sheets
/.sheet
$i !distribute line $r into r1,r2,r3,r4,r5,r6
<option value="$i.$j">$i.$j : $r5 </option>
!endif
!endif
</select>
</td>
<td>
<input name="add" value=" >> " type="button" onclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'add'); return false;"/>
<br/>
<input name="remove" value=" << " type="button" onclick="moveSelections(this.form.elements['select_sheet1'], this.form.elements['select_sheet2'], this.form.elements['echoose'], 'remove'); return false;"/>
</td>
<td valign="top">
<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>
<select style="overflow: hidden; visibility: hidden; width: 1px; height: 0;" name="echoose" multiple="multiple" size="10">$checked</select>
</td>
</tr>
</table>