// JavaScript Document
	DOM_lien = function (ps_href,ps_libelle)
	{
		var la_ancre = document.createElement('a');
		la_ancre.href = ps_href;
		ltn_libelle = document.createTextNode(ps_libelle);
		la_ancre.appendChild(ltn_libelle);
		return la_ancre;
	}
	
	function DOM_image_selon_src(ps_url)
	{
		// retourne le 1er objet image trouvé pour lequel src commence par ps_url
		var limg_image;
		if( ps_url )
		{
			for(li_indice=0; li_indice<window.document.images.length; li_indice++)
			{
				limg_image = window.document.images[li_indice];
				//alert(limg_image.src);
				if( limg_image.src.length>=ps_url.length )
					if( limg_image.src.substr(0,ps_url.length) == ps_url )
						return limg_image;
			}
		}
	}

/*
 * Written by Jonathan Snook, http://www.snook.ca/jonathan
 * Add-ons by Robert Nyman, http://www.robertnyman.com/index.php?p=256
 * Revised version May 11th 2007
 * Adapted by ubiflow April 3rd 2009
 *
 * Renvoie un tableau d'éléments DOM correspondant à la classe recherchée.
 * Le type de tag recherché (input, textarea, etc.) peut être précisé par son nom (ps_nom_tag)
 * @return 	array tableau d'éléments DOM
 */
function get_elements_selon_nom_de_classe( ps_nom_classe, ps_nom_tag, ps_elm_id )
{
	var ls_regexp_classe = new RegExp("(^|\\s)" + ps_nom_classe + "(\\s|$)");
	// Nom de tag XML à rechercher dans le DOM
	var ls_nom_tag = ps_nom_tag || "*";
	var le_elm = document.getElementById(ps_elm_id) || document;
	// Présélection des éléments 
	var lelma_elements = (ls_nom_tag == "*" && le_elm.all) ? le_elm.all : le_elm.getElementsByTagName(ls_nom_tag);
	var lelma_elements_par_classe = [];
	var lelm_element;
	var li_length = lelma_elements.length;
	for( var li_i=0; li_i<li_length; li_i++ )
	{
		lelm_element = lelma_elements[li_i];
		if( ls_regexp_classe.test(lelm_element.className) )
		{
			lelma_elements_par_classe.push( lelm_element );
		}	
	}
	return lelma_elements_par_classe;
}