Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Audio insertion with hbs_mp3_player 
slib_parms=3\
,URL of the data file\
,option for the audio insertion (use hbs_mp3_player)\
,option=rename imagedir document
slib_author=Bernadette Perrin-Riou
slib_out=  Audio insertion in html page
slib_comment=default option :height="16" width="60" autostart="false" loop="false" width="0"  height="0"\
the option "imagedir" is to use if hbs_mp3_player 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

!reset slib_out
!default slib_option=width="60" height="16" 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

!if rename iswordof $slib_option2 
   slib_son=!rename $slib_son
!endif

####attention = pas d'espace et mettre sur une seule ligne, sinon il y a 
#### un problème dans les exos de correspondance

slib_out=<object data="$slib_adresse/hbs_mp3_player.swf" $slib_option type="application/x-shockwave-flash"><param name="type" value="application/x-shockwave-flash" /><param name="src" value="$slib_adresse/hbs_mp3_player.swf" /><param name="data" value="$slib_adresse/hbs_mp3_player.swf" /><param name="codebase" value="$slib_adresse/hbs_mp3_player.swf" /><param name="FlashVars" value="TheSound=$slib_son" /><param name="allowScriptAccess" value="sameDomain" /><param name="movie" value="$slib_adresse/hbs_mp3_player.swf" /><param name="loop" value="false" /><param name="quality" value="high" /><param name="wmode" value="transparent" /><a href="$slib_son">$slib_son</a></object>