Subversion Repositories wimsdev

Rev

Rev 14938 | 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. !!  !set n_=!replace internal cgi? by $n_? in $m_filedir
  15. !!  <a target="wims_internal" href="$n_/$l_" >$a_</a>
  16.   <a target="wims_internal" href="$m_filedir/$l_" download="$l_">$a_</a>
  17.   !exit
  18. !endif
  19.  
  20. !href session=$wims_session&$l_ $a_
  21.