!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Audio insertion with dewplayer
slib_parms=3\
,URL of the data file\
,option for the audio insertion (use dewplayer : http://www.alsacreations.fr/dewplayer)\
,option=rename imagedir document
slib_author=Bernadette Perrin-Riou
slib_out=Audio insertion in html page
slib_comment=default option :height="17" width="40" autostart="false" loop="false"\
the option "imagedir" is to use if dewplayer is not on wims but in the module.
slib_example=\imagedir/exemple.mp3\
http://packs.shtooka.net/eng-balm-verbs/mp3/eng-I_bought.mp3

!exit

:proc
!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
!! !exit
!! !endif

!distribute items $wims_read_parm into slib_son,slib_option,slib_option2

!default slib_option=height="17" width="100" autostart="false" loop="false"
slib_option2 = !getopt option in $slib_option2


slib_mod = $module_category
slib_mod = !items2words $slib_mod
!if imagedir iswordof $slib_option2 
  !if document iswordof $slib_mod
    slib_image_dir=$Docdir/$doc/files
  !else
    slib_adresse=$imagedir
  !endif
!endif
!default slib_adresse=flash

slib_son=!words2items $slib_son
slib_Son=
!if rename iswordof $slib_option2
  !for slib_s_ in $slib_son
    slib_S=!rename $slib_s_
    slib_Son=!append item $slib_S to $slib_son
  !next
!endif
!if $slib_Son!=
  slib_son=$slib_Son
!endif
slib_son=!replace internal , by | in $slib_son
slib_son=!nospace $slib_son

####attention = pas d'espace et mettre sur une seule ligne, sinon il y a 
#### un problme dans les exos de correspondance
slib_out =<object type="application/x-shockwave-flash" data="$slib_adresse/dewplayer-multi.swf?mp3=$slib_son" $slib_option alt="audio"><param name="movie" value="$slib_adresse/dewplayer-multi.swf?mp3=$slib_son"/></object>
