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\
http://$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

!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
slib_sontest=!replace internal . by , in $slib_son
slib_son=!replace internal cgi? by $(slib_sontest[-1])? 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 type="application/x-shockwave-flash" data="$slib_adresse/dewplayer-multi.swf" $slib_option alt="audio"><param name="movie" value="$slib_adresse/dewplayer-multi.swf"/><param name="flashvars" value="mp3=$slib_son"/></object>

<object type="application/x-shockwave-flash" data="dewplayer-multi.swf" width="240" height="20" id="dewplayer" name="dewplayer"> <param name="wmode" value="transparent" /><param name="movie" value="dewplayer-multi.swf" /> <param name="flashvars" value="mp3=test.mp3" /> </object>