Rev 11566 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 11566 | Rev 16204 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !set exo=$special_parm |
1 | !set exo=$special_parm |
2 | !if $exo!=$empty |
2 | !if $exo!=$empty |
3 | !if $special_parm2=select |
3 | !if $special_parm2=select |
4 | !! !set oldparm=$exo |
4 | !! !set oldparm=$exo |
5 | !set test=!lower $exo |
5 | !set test=!lower $exo |
6 | !set test=!deaccent $test |
6 | !set test=!deaccent $test |
7 | !set test=!text select abcdefghijklmnopqrstuvwxyz1234567890 $ in $test |
7 | !set test=!text select abcdefghijklmnopqrstuvwxyz1234567890 $ in $test |
8 | !set test=!singlespace $test |
8 | !set test=!singlespace $test |
9 | !set test=!trim $test |
9 | !set test=!trim $test |
10 | !reset elist,vlist |
10 | !reset elist,vlist |
11 | !set tlist=!lower $titlelist |
11 | !set tlist=!lower $titlelist |
12 | !set tlist=!deaccent $tlist |
12 | !set tlist=!deaccent $tlist |
13 | !set tlist=!text select abcdefghijklmnopqrstuvwxyz1234567890 , in $tlist |
13 | !set tlist=!text select abcdefghijklmnopqrstuvwxyz1234567890 , in $tlist |
14 | !set tlist=!singlespace $tlist |
14 | !set tlist=!singlespace $tlist |
15 | !for i=0 to $exocnt |
15 | !for i=0 to $exocnt |
16 | !set n_=!item $i of $exolist |
16 | !set n_=!item $i of $exolist |
17 | !set t_=!item $i of $tlist |
17 | !set t_=!item $i of $tlist |
18 | !if $test isin $t_ |
18 | !if $test isin $t_ |
19 | !set elist=!append item $n_ to $elist |
19 | !set elist=!append item $n_ to $elist |
20 | !set t_=!item $i of $titlelist |
20 | !set t_=!item $i of $titlelist |
21 | !set vlist=!append item $t_ to $vlist |
21 | !set vlist=!append item $t_ to $vlist |
22 | !endif |
22 | !endif |
23 | !next i |
23 | !next i |
24 | !if $elist!=$empty |
24 | !if $elist!=$empty |
25 | !set exolist=$elist |
25 | !set exolist=$elist |
26 | !set titlelist=$vlist |
26 | !set titlelist=$vlist |
27 | <input type="hidden" name="defaultlist" value="$elist" /> |
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 |
|
28 | !endif |
35 | !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 |
- | |
35 | !endif |
- | |
36 | !endif |
36 | !endif |
37 | !set ecnt=!itemcnt $exolist |
37 | !set ecnt=!itemcnt $exolist |
38 | !set wims_formselect_switch=multiple="multiple" size="$[min(6,$ecnt)]" |
38 | !set wims_formselect_switch=multiple="multiple" size="$[min(6,$ecnt)]" |
39 | !formselect exo list $exolist prompt $titlelist |
39 | !formselect exo list $exolist prompt $titlelist |
40 | !set wims_formselect_switch= |
40 | !set wims_formselect_switch= |