Rev 8503 | Rev 14938 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8503 | Rev 14043 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !distribute item $wims_read_parm into n_,t_,l_,a_ |
1 | !distribute item $wims_read_parm into n_,t_,l_,a_ |
2 | !if $t_ notwordof exercise doc href |
2 | !if $t_ notwordof exercise doc href |
3 | !exit |
3 | !exit |
4 | !endif |
4 | !endif |
5 | 5 | ||
6 | !if href iswordof $t_ |
6 | !if href iswordof $t_ |
7 | !default a_=$l_ |
7 | !default a_=$l_ |
8 | !set n_=!replace internal . by , in $l_ |
8 | !set n_=!replace internal . by , in $l_ |
9 | !set n_=!item -1 of $n_ |
9 | !set n_=!item -1 of $n_ |
10 | !set n_=!lowercase $n_ |
10 | !set n_=!lowercase $n_ |
11 | !if $n_ notwordof jpeg jpg png gif pdf tex txt mp3 flv avi ggb ods |
11 | !if $n_ notwordof jpeg jpg png gif pdf tex txt mp3 flv avi ggb ods |
12 | !set n_=cgi |
12 | !set n_=cgi |
13 | !endif |
13 | !endif |
14 | 14 | ||
15 | !set n_=!replace internal cgi? by $n_? in $m_filedir |
15 | !set n_=!replace internal cgi? by $n_? in $m_filedir |
16 | <a target="wims_internal" href="$n_/$l_">$a_</a> |
16 | <a target="wims_internal" href="$n_/$l_">$a_</a> |
17 | !exit |
17 | !exit |
18 | !endif |
18 | !endif |
19 | 19 | ||
20 | !href session=$wims_session&$l_ $a_ |
20 | !href session=$wims_session&$l_ $a_ |