Subversion Repositories wimsdev

Rev

Rev 7138 | Rev 9919 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7138 Rev 7320
Line 15... Line 15...
15 
:proc
 15 
:proc
16 
!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
 16 
!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
17 
!! !exit
 17 
!! !exit
18 
!!!endif
 18 
!!!endif
19 
ADDRESS=!record 0 of data/swac/packs
 19 
ADDRESS=!record 0 of data/swac/packs
20 
!reset slib_out
 20 
!reset slib_out slib_player slib_son slib_option slib_option1
21 
!distribute items $wims_read_parm into slib_son,slib_option,slib_option1
 21 
!distribute items $wims_read_parm into slib_son,slib_option,slib_option1
22 
 
 22 
 
23 
slib_option2 = !getopt option in $slib_option1
 23 
slib_option2 = !getopt option in $slib_option1
24 
slib_player=!getopt player in $slib_option1
 24 
slib_player=!getopt player in $slib_option1
25 
 
 25 
 
Line 28... Line 28...
28 
!endif
 28 
!endif
29 
slib_sontest=!replace internal . by , in $slib_son
 29 
slib_sontest=!replace internal . by , in $slib_son
30 
!if $(slib_sontest[-1]) notwordof mp3 ogg
 30 
!if $(slib_sontest[-1]) notwordof mp3 ogg
31 
  slib_sontest=mp3
 31 
  slib_sontest=mp3
32 
!endif
 32 
!endif
- 
 
 33 
!! laisser slib_out sur une seule ligne (pour correspondance)
33 
slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son
 34 
slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son
34 
!if $slib_player=
 35 
!if $slib_player=
35 
 slib_objecttag=<object><embed src="$slib_son" $slib_option>\
 36 
 slib_objecttag=<object><embed src="$slib_son" $slib_option>\
36 
    <noembed> <bgsound src="$slib_son" /></noembed>\
 37 
    <noembed> <bgsound src="$slib_son" /></noembed>\
37 
  </embed></object>
 38 
  </embed></object>
38
39 
 
39 
  slib_out=<audio controls="controls" class="wims_audio" $slib_option>
 40 
  slib_out=<audio controls="controls" class="wims_audio" $slib_option>
40 
 !if .mp3XXXX isin $(slib_son)XXXX
 41 
 !if .mp3XXXX isin $(slib_son)XXXX
41 
     slib_out=$slib_objecttag
 42 
     slib_out=$slib_objecttag
42
43 
 
43 
 !else
 44 
 !else
44 
   !if .oggXXXX isin $(slib_son)XXXX
 45 
   !if .oggXXXX isin $(slib_son)XXXX
45 
    slib_out=$slib_out\
 - 
 
46 
     <source src="$slib_son" type="audio/ogg" />\
 46 
    slib_out=$slib_out<source src="$slib_son" type="audio/ogg" />$slib_objecttag
47 
     $slib_objecttag
 - 
 
48 
   !else
 47 
   !else
49 
     slib_son_ogg=$slib_son
 48 
     slib_son_ogg=$slib_son
50 
     !if $ADDRESS isin $slib_son_ogg
49 
     !if $ADDRESS isin $slib_son_ogg
51 
       slib_son_ogg=!replace internal mp3/ by ogg/ in $(slib_son)
 50 
       slib_son_ogg=!replace internal mp3/ by ogg/ in $(slib_son)
52 
     !endif
 51 
     !endif
53 
     slib_out=$slib_out\
 - 
 
54 
     <source src="$slib_son_ogg.ogg" type="audio/ogg" />\
 52 
     slib_out=$slib_out<source src="$slib_son_ogg.ogg" type="audio/ogg" /><source src="$slib_son.mp3" type="audio/mpeg" />
55 
     <source src="$slib_son.mp3" type="audio/mpeg" />
 - 
 
56
- 
 
57 
   !endif
 53 
   !endif
58 
   slib_out=$slib_out\
 - 
 
59 
  Your browser does not support the audio tag.\
 54 
   slib_out=$slib_out Your browser does not support the audio tag.</audio>
60 
 </audio>
 55 
 
61 
  !endif
 56 
  !endif
62 
!else
 57 
!else
63 
 !if $slib_player iswordof hbs_mp3_player
 58 
 !if $slib_player iswordof hbs_mp3_player
64 
  !default slib_option=height="16" width="60" autostart="false" loop="false"
 59 
  !default slib_option=height="16" width="60" autostart="false" loop="false"
65 
    slib_player=player
60 
    slib_player=player
66 
  !else
 61 
  !else
67 
   !default slib_option=height="20" width="180" autostart="false" loop="false"
 62 
   !default slib_option=height="20" width="180" autostart="false" loop="false"
68 
  !endif
 63 
  !endif
69 
  !if .mp3XXX notin $(slib_son)XXX
 64 
  !if .mp3XXX notin $(slib_son)XXX
70 
!! audio venant de lang/swac
 65 
!! audio venant de lang/swac