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_