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|https://$ADDRESS/eng-balm-verbs/mp3/eng-I_brought.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="200" height="20" 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 $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 problème dans les exos de correspondance

slib_out=<object data="$slib_adresse/player_mp3_multi.swf" $slib_option type="application/x-shockwave-flash"><param name="type" value="application/x-shockwave-flash" /><param name="movie" value="player_mp3_multi.swf" /><param name="FlashVars" value="mp3=$slib_son" /></object>