Rev 14272 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 677 | bpr | 1 | !if $wims_read_parm!=slib_header |
| 2 | !goto proc |
||
| 3 | !endif |
||
| 4158 | bpr | 4 | |
| 13291 | obado | 5 | !! translated text (title, comment...) are in scripts/help/$lang/slib/... |
| 6 | |||
| 4349 | bpr | 7 | slib_author=Bernadette, Perrin-Riou |
| 5436 | bpr | 8 | ADDRESS=!record 0 of data/swac/packs |
| 677 | bpr | 9 | slib_example=\imagedir/exemple.mp3\ |
| 14272 | obado | 10 | https://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3 |
| 677 | bpr | 11 | |
| 12 | !exit |
||
| 13 | |||
| 14 | :proc |
||
| 2096 | bpr | 15 | !!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty |
| 16 | !! !exit |
||
| 17 | !! !endif |
||
| 677 | bpr | 18 | |
| 19 | !distribute items $wims_read_parm into slib_son,slib_option,slib_option2 |
||
| 20 | |||
| 2096 | bpr | 21 | !default slib_option=height="17" width="100" autostart="false" loop="false" |
| 677 | bpr | 22 | slib_option2 = !getopt option in $slib_option2 |
| 23 | |||
| 24 | |||
| 25 | slib_mod = $module_category |
||
| 26 | slib_mod = !items2words $slib_mod |
||
| 7692 | bpr | 27 | !if imagedir iswordof $slib_option2 |
| 677 | bpr | 28 | !if document iswordof $slib_mod |
| 29 | slib_image_dir=$Docdir/$doc/files |
||
| 30 | !else |
||
| 31 | slib_adresse=$imagedir |
||
| 32 | !endif |
||
| 33 | !endif |
||
| 34 | !default slib_adresse=flash |
||
| 35 | |||
| 1443 | bpr | 36 | slib_son=!words2items $slib_son |
| 37 | slib_Son= |
||
| 38 | !if rename iswordof $slib_option2 |
||
| 39 | !for slib_s_ in $slib_son |
||
| 40 | slib_S=!rename $slib_s_ |
||
| 41 | slib_Son=!append item $slib_S to $slib_son |
||
| 42 | !next |
||
| 677 | bpr | 43 | !endif |
| 1443 | bpr | 44 | !if $slib_Son!= |
| 45 | slib_son=$slib_Son |
||
| 46 | !endif |
||
| 47 | slib_son=!replace internal , by | in $slib_son |
||
| 48 | slib_son=!nospace $slib_son |
||
| 4765 | bpr | 49 | slib_sontest=!replace internal . by , in $slib_son |
| 50 | slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son |
||
| 677 | bpr | 51 | |
| 7692 | bpr | 52 | ####attention = pas d'espace et mettre sur une seule ligne, sinon il y a |
| 677 | bpr | 53 | #### un problème dans les exos de correspondance |
| 17173 | bpr | 54 | 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> |
| 4765 | bpr | 55 | |
| 17173 | bpr | 56 | <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> |