sort;
// on filtre les images
var:'listeImages'=(array);
loop:($listeFichiers->size);
var:'nomFichier'=$listeFichiers->(get:(loopCount));
if:$nomFichier->(endsWith:'.jpg');
$listeImages->(insertLast:$nomFichier);
/if;
/loop;
?>
[loop:$listeImages->size]
(get:(loopCount));
var:'url_image'=$urlImg_base+$ssrub+'/pt/'+$nomImage;
var:'urlPage'='sonoeuvre.las?ssrub='+$ssrub+'&vnum='+(loopCount)+'&inum=1';
?>
[/loop]
(get:$vnum);
// on récupère la racine du nom avec les 4 premiers caractères
var:'racine'=(String_Extract: $nomVigCur, -StartPosition=1, -EndPosition=4);
// on va maintenant prendre la liste de tous les fichiers d'image
var:'imgpath'=$pathImg_base+$ssrub+'/';
var_set:'listeFichiers'=(File_ListDirectory:$imgpath);
$listeFichiers->sort;
// on filtre les images
var:'listeImages'=(array);
loop:($listeFichiers->size);
var:'nomFichier'=$listeFichiers->(get:(loopCount));
if:$nomFichier->(beginsWith:$racine) && ($nomFichier->(endsWith:'.jpg') || $nomFichier->(endsWith:'.webm'));
$listeImages->(insertLast:$nomFichier);
/if;
/loop;
var:'nbImages'=$listeImages->size;
?>
[loop:$nbImages]
[if:(loopCount)==$inum][else][/if]
[/loop]
$nbImages; var:'inum_suiv'=1; /if;
var:'nomImgCur'=$listeImages->(get:$inum);
// on sépare la racine de l'extension
var:'array'=$nomImgCur->(split:'.');
var:'racine'=$array->get:1;
var:'pathCur'=$urlImg_base+$ssrub+'/';
var:'urlImgCur'=$pathcur+$nomImgCur;
var:'urlPageSuiv'='sonoeuvre.las?ssrub='+$ssrub+'&vnum='+$vnum+'&inum='+$inum_suiv;
?>
[if:(var:'urlImgCur')->(EndsWith:'.jpg')]
[/if]
[if:(var:'urlImgCur')->(EndsWith:'.webm')]
[/if]