Subversion Repositories wimsdev

Rev

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=