Subversion Repositories wimsdev

Rev

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