Rev 12294 | Rev 12493 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12294 | Rev 12348 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !if $special_parm!=$empty |
2 | !if $special_parm!=$empty |
3 | !set exo=$special_parm |
3 | !set exo=$special_parm |
4 | !endif |
4 | !endif |
5 | 5 | ||
6 | !if $exo=__user__ and select iswordof $special_parm2 |
6 | !if $exo=__user__ and select iswordof $special_parm2 |
7 | !if $wims_user!=$empty and $wims_user!=supervisor |
7 | !if $wims_user!=$empty and $wims_user!=supervisor |
8 | !set test=$wims_user. |
8 | !set test=$wims_user. |
9 | !goto dir |
9 | !goto dir |
10 | !else |
10 | !else |
11 | !reset exo |
11 | !reset exo |
12 | !endif |
12 | !endif |
13 | !endif |
13 | !endif |
14 | !if $exo!=$empty |
14 | !if $exo!=$empty |
15 | !if select iswordof $special_parm2 |
15 | !if select iswordof $special_parm2 |
16 | !set oldparm=$exo |
16 | !set oldparm=$exo |
17 | !set test=!lower $exo |
17 | !set test=!lower $exo |
18 | !set test=!deaccent $test |
18 | !set test=!deaccent $test |
19 | !set test=!text select abcdefghijklmnopqrstuvwxyz1234567890 $ in $test |
19 | !set test=!text select abcdefghijklmnopqrstuvwxyz1234567890 $ in $test |
20 | !set test=!singlespace $test |
20 | !set test=!singlespace $test |
21 | !set test=!trim $test |
21 | !set test=!trim $test |
22 | :dir |
22 | :dir |
23 | !reset elist,vlist |
23 | !reset elist,vlist |
24 | !set tlist=!lower $titlelist |
24 | !set tlist=!lower $titlelist |
25 | !set tlist=!deaccent $tlist |
25 | !set tlist=!deaccent $tlist |
26 | !set tlist=!text select abcdefghijklmnopqrstuvwxyz1234567890 , in $tlist |
26 | !set tlist=!text select abcdefghijklmnopqrstuvwxyz1234567890 , in $tlist |
27 | !set tlist=!singlespace $tlist |
27 | !set tlist=!singlespace $tlist |
28 | !for i=0 to $exocnt |
28 | !for i=0 to $exocnt |
29 | !set n_=!item $i of $exolist |
29 | !set n_=!item $i of $exolist |
30 | !set t_=!item $i of $tlist |
30 | !set t_=!item $i of $tlist |
31 | !if $test isin $t_ $n_ |
31 | !if $test isin $t_ $n_ |
32 | !set elist=!append item $n_ to $elist |
32 | !set elist=!append item $n_ to $elist |
33 | !set t_=!item $i of $titlelist |
33 | !set t_=!item $i of $titlelist |
34 | !set vlist=!append item $t_ to $vlist |
34 | !set vlist=!append item $t_ to $vlist |
35 | !endif |
35 | !endif |
36 | !next i |
36 | !next i |
37 | !if $elist!=$empty |
37 | !if $elist!=$empty |
38 | !set exolist=$elist |
38 | !set exolist=$elist |
39 | !set titlelist=$vlist |
39 | !set titlelist=$vlist |
40 | <input type="hidden" name="defaultlist" value="$elist" /> |
40 | <input type="hidden" name="defaultlist" value="$elist" /> |
41 | !endif |
- | |
42 | !else |
- | |
43 | !set exolist=!listuniq $exolist |
- | |
44 | !set exolist=!replace , by , $ in $exolist |
- | |
45 | !if $class_header!=wimshome/log/classes/$wims_class/ |
- | |
46 | !if $class_header!= |
- | |
47 | !set dictionary=scripts/$(class_header)Extitles |
- | |
48 | !else |
- | |
49 | !set dictionary=$module_dir/$(class_header)Extitles |
- | |
50 | !endif |
41 | !endif |
51 | !else |
42 | !else |
- | 43 | !set exolist=!listuniq $exolist |
|
- | 44 | !set exolist=!replace , by , $ in $exolist |
|
- | 45 | !if $class_header!=wimshome/log/classes/$wims_class/ |
|
- | 46 | !if $class_header!= |
|
- | 47 | !set dictionary=scripts/$(class_header)Extitles |
|
- | 48 | !else |
|
- | 49 | !set dictionary=$module_dir/$(class_header)Extitles |
|
- | 50 | !endif |
|
- | 51 | !else |
|
52 | !set dictionary=$wims_home/log/classes/$wims_class/Extitles |
52 | !set dictionary=$wims_home/log/classes/$wims_class/Extitles |
- | 53 | !endif |
|
- | 54 | !set translator_unknown=leave |
|
- | 55 | !set titlelist=!exec translator $exolist |
|
53 | !endif |
56 | !endif |
54 | !set translator_unknown=leave |
- | |
55 | !set titlelist=!exec translator $exolist |
- | |
56 | !endif |
- | |
57 | !endif |
57 | !endif |
58 | !!set ecnt=!itemcnt $exolist |
58 | !!set ecnt=!itemcnt $exolist |
59 | !if $lang notsametext $module_language and $(titlelist_$lang) notsametext $empty |
59 | !if $lang notsametext $module_language and $(titlelist_$lang) notsametext $empty |
60 | !set titlelist=$(titlelist_$lang) |
60 | !set titlelist=$(titlelist_$lang) |
61 | !endif |
61 | !endif |
62 | 62 | ||
63 | <label for="exo">$name_chooseexo:</label> |
63 | <label for="exo">$name_chooseexo:</label> |
64 | !set wims_formselect_switch=multiple="multiple" size="$qcnt" |
64 | !set wims_formselect_switch=multiple="multiple" size="$qcnt" |
65 | !formselect exo list $exolist prompt $titlelist |
65 | !formselect exo list $exolist prompt $titlelist |