Rev 11566 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !set exo=$special_parm |
2 | !if $exo!=$empty |
||
16204 | bpr | 3 | !if $special_parm2=select |
4 | !! !set oldparm=$exo |
||
5 | !set test=!lower $exo |
||
6 | !set test=!deaccent $test |
||
7 | !set test=!text select abcdefghijklmnopqrstuvwxyz1234567890 $ in $test |
||
8 | !set test=!singlespace $test |
||
9 | !set test=!trim $test |
||
10 | !reset elist,vlist |
||
11 | !set tlist=!lower $titlelist |
||
12 | !set tlist=!deaccent $tlist |
||
13 | !set tlist=!text select abcdefghijklmnopqrstuvwxyz1234567890 , in $tlist |
||
14 | !set tlist=!singlespace $tlist |
||
15 | !for i=0 to $exocnt |
||
16 | !set n_=!item $i of $exolist |
||
17 | !set t_=!item $i of $tlist |
||
18 | !if $test isin $t_ |
||
19 | !set elist=!append item $n_ to $elist |
||
20 | !set t_=!item $i of $titlelist |
||
21 | !set vlist=!append item $t_ to $vlist |
||
22 | !endif |
||
23 | !next i |
||
24 | !if $elist!=$empty |
||
25 | !set exolist=$elist |
||
26 | !set titlelist=$vlist |
||
27 | <input type="hidden" name="defaultlist" value="$elist" /> |
||
28 | !endif |
||
29 | !else |
||
30 | !set exolist=!listuniq $exo,$exolist |
||
31 | !set exolist=!replace , by , $ in $exolist |
||
32 | !set dictionary=$module_dir/Extitles |
||
33 | !set translator_unknown=leave |
||
34 | !set titlelist=!exec translator $exolist |
||
20 | reyssat | 35 | !endif |
36 | !endif |
||
37 | !set ecnt=!itemcnt $exolist |
||
11566 | bpr | 38 | !set wims_formselect_switch=multiple="multiple" size="$[min(6,$ecnt)]" |
20 | reyssat | 39 | !formselect exo list $exolist prompt $titlelist |
40 | !set wims_formselect_switch= |