Subversion Repositories wimsdev

Rev

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_