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