Subversion Repositories wimsdev

Rev

Rev 4392 | Rev 8503 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !distribute item $wims_read_parm into n_,t_,l_,a_
  2. !if $t_ notwordof exercise doc href
  3.  !exit
  4. !endif
  5.  
  6. !if href iswordof $t_
  7.  !default a_=$l_
  8.  !set n_=!replace internal . by , in $l_
  9.  !set n_=!item -1 of $n_
  10.  !set n_=!lowercase $n_
  11.  !if $n_ notwordof jpeg jpg png gif pdf tex txt mp3 flv avi ggb ods
  12.   !set n_=cgi
  13.  !endif
  14.  
  15.   !set n_=!replace internal cgi? by $n_? in $m_filedir
  16.   <a href="$n_/$l_">$a_</a>
  17.  !exit
  18. !endif
  19.  
  20. !href session=$wims_session&$l_ $a_
  21.