Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif

!! translated text (title, comment...) are in scripts/help/$lang/slib/...

slib_author=Bernadette, Perrin-Riou
ADDRESS=!record 0 of data/swac/packs
slib_example=\imagedir/exemple.mp3\
https://$ADDRESS/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_adresse=$Docdir/$doc/files
  !else
    slib_adresse=$imagedir
  !endif
!endif
!default slib_adresse=flash

!if rename iswordof $slib_option2
   slib_son=!rename $slib_son
!endif
slib_son=!replace internal cgi? by mp3? in $slib_son
####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>