<?php
// +-------------------------------------------------+
// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
// +-------------------------------------------------+
// $Id: explnum.inc.php,v 1.80.2.2.2.1.4.3 2026/02/04 11:25:47 tsamson Exp $

if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) {
    die("no access");
}

global $class_path;

use Pmb\Common\Library\Image\Image;
use Pmb\Digitalsignature\Models\DocnumCertifier;

require_once ($class_path . "/auth_popup.class.php");
require_once ($class_path . "/explnum_licence/explnum_licence.class.php");

// require_once($class_path."/access.class.php");

// charge le tableau des extensions/mimetypes, on en a besoin en maj comme en affichage
function create_tableau_mimetype()
{
    global $lang;
    global $charset;
    global $base_path;
    global $include_path;

    global $_mimetypes_bymimetype_, $_mimetypes_byext_;

    if (!empty($_mimetypes_bymimetype_) && sizeof($_mimetypes_bymimetype_))
        return;

    $_mimetypes_bymimetype_ = array();
    $_mimetypes_byext_ = array();

    require_once ($include_path . '/parser.inc.php');

	$fonction = array ("MIMETYPE" => "__mimetype__");

    if (file_exists($include_path . "/mime_types/" . $lang . "_subst.xml"))
        $fic_mime_types = $include_path . "/mime_types/" . $lang . "_subst.xml";
    else
        $fic_mime_types = $include_path . "/mime_types/" . $lang . ".xml";

	$fonction = array ("MIMETYPE" => "__mimetype__");
    _parser_($fic_mime_types, $fonction, "MIMETYPELIST");
}

function extension_fichier($fichier)
{
    $f = strrev($fichier);
    $ext = substr($f, 0, strpos($f, "."));
    return strtolower(strrev($ext));
}

function trouve_mimetype($fichier, $ext = '')
{
    global $_mimetypes_byext_;
    if ($ext != '') {
        // chercher le mimetype associe a l'extension : si trouvee nickel, sinon : ""
        if (! empty($_mimetypes_byext_[$ext]["mimetype"])) {
            return $_mimetypes_byext_[$ext]["mimetype"];
        }
    }
    if (extension_loaded('fileinfo') && is_file($fichier)) {
        $mime_type = mime_content_type($fichier);
        if (! empty($mime_type)) {
            return $mime_type;
        }
    }
    return '';
}

function __mimetype__($param)
{
    global $_mimetypes_bymimetype_, $_mimetypes_byext_;

    $mimetype_rec = array();
    $mimetype_rec["plugin"] = $param["PLUGIN"];
    $mimetype_rec["icon"] = $param["ICON"];
    $mimetype_rec["label"] = (isset($param["LABEL"]) ? $param["LABEL"] : '');
    $mimetype_rec["embeded"] = $param["EMBEDED"];

    $_mimetypes_bymimetype_[$param["NAME"]] = $mimetype_rec;

    for ($i = 0; $i < count($param["EXTENSION"]); $i ++) {
        $mimetypeext_rec = array();
        $mimetypeext_rec = $mimetype_rec;
        $mimetypeext_rec["mimetype"] = $param["NAME"];
        if (isset($param["EXTENSION"][$i]["LABEL"])) {
            $mimetypeext_rec["label"] = $param["EXTENSION"][$i]["LABEL"];
        }
        $_mimetypes_byext_[$param["EXTENSION"][$i]["value"]] = $mimetypeext_rec;
    }
}

function icone_mimetype($mimetype, $ext)
{
    global $_mimetypes_bymimetype_, $_mimetypes_byext_;
    // trouve l'icone associée au mimetype
    // sinon trouve l'icone associée à l'extension
    /*
     * echo "<pre>" ;
     * print_r ($_mimetypes_bymimetype_) ;
     * print_r ( $_mimetypes_byext_ ) ;
     * echo "</pre>" ;
     * echo "<br />-- $mimetype<br />-- $ext";
     */
    if (! empty($_mimetypes_bymimetype_[$mimetype]["icon"]))
        return $_mimetypes_bymimetype_[$mimetype]["icon"];
    if ($_mimetypes_byext_[$ext]["icon"])
        return $_mimetypes_byext_[$ext]["icon"];
    return "unknown.gif";
}

// fin icone_mimetype

// fonction retournant les infos d'exemplaires numériques pour une notice ou un bulletin donné
function show_explnum_per_notice($no_notice, $no_bulletin, $link_expl = '')
{
    // params :
    // $link_expl= lien associé à l'exemplaire avec !!explnum_id!! à mettre à jour
    global $charset;
    global $opac_url_base;
    global $opac_visionneuse_allow;
    global $opac_photo_filtre_mimetype;
    global $opac_explnum_order;
    global $opac_show_links_invisible_docnums;
    global $gestion_acces_active, $gestion_acces_empr_notice, $gestion_acces_empr_docnum;
    global $memo_expl;
    global $nb_explnum_visible, $opac_rgaa_active;

    $nb_explnum_visible = 0; // pour l'affichage en template de notice
    if (! $no_notice && ! $no_bulletin)
        return "";

    global $_mimetypes_bymimetype_, $_mimetypes_byext_;
    create_tableau_mimetype();

    // récupération du nombre d'exemplaires
    $requete = "SELECT explnum_id, explnum_notice, explnum_bulletin, explnum_nom, explnum_mimetype, explnum_url, explnum_vignette, explnum_nomfichier, explnum_extfichier, explnum_docnum_statut FROM explnum WHERE ";
    if ($no_notice && ! $no_bulletin)
        $requete .= "explnum_notice='$no_notice' ";
    elseif (! $no_notice && $no_bulletin)
        $requete .= "explnum_bulletin='$no_bulletin' ";
    elseif ($no_notice && $no_bulletin)
        $requete .= "explnum_bulletin='$no_bulletin' or explnum_notice='$no_notice' ";
    if ($no_notice)
        $requete .= "union SELECT explnum_id, explnum_notice, explnum_bulletin, explnum_nom, explnum_mimetype, explnum_url, explnum_vignette, explnum_nomfichier, explnum_extfichier, explnum_docnum_statut
			FROM explnum, bulletins
			WHERE bulletin_id = explnum_bulletin
			AND bulletins.num_notice='" . $no_notice . "'";
    if ($opac_explnum_order)
        $requete .= " order by " . $opac_explnum_order;
    else
        $requete .= " order by explnum_mimetype, explnum_nom, explnum_id ";
    $res = pmb_mysql_query($requete);
    $nb_ex = pmb_mysql_num_rows($res);

    $docnum_visible = true;
    $id_for_right = $no_notice;
    if ($no_bulletin) {
        $query = "select num_notice,bulletin_notice from bulletins where bulletin_id = " . $no_bulletin;
        $result = pmb_mysql_query($query);
        if (pmb_mysql_num_rows($result)) {
            $infos = pmb_mysql_fetch_object($result);
            if ($infos->num_notice) {
                $id_for_right = $infos->num_notice;
            } else {
                $id_for_right = $infos->bulletin_notice;
            }
        }
    }
    if ($gestion_acces_active == 1 && $gestion_acces_empr_notice == 1) {
        $ac = new acces();
        $dom_2 = $ac->setDomain(2);
        $docnum_visible = $dom_2->getRights($_SESSION['id_empr_session'], $id_for_right, 16);
    } else {
        $requete = "SELECT explnum_visible_opac, explnum_visible_opac_abon FROM notices, notice_statut WHERE notice_id ='" . $id_for_right . "' and id_notice_statut=statut ";
        $myQuery = pmb_mysql_query($requete);
        if (pmb_mysql_num_rows($myQuery)) {
            $statut_temp = pmb_mysql_fetch_object($myQuery);
            if (! $statut_temp->explnum_visible_opac)
                $docnum_visible = false;
            if ($statut_temp->explnum_visible_opac_abon && ! $_SESSION['id_empr_session'])
                $docnum_visible = false;
        } else
            $docnum_visible = false;
    }

    if ($nb_ex && ($docnum_visible || $opac_show_links_invisible_docnums)) {
        // on récupère les données des exemplaires
        $i = 1;
        $ligne_finale = '';

        global $pmb_digital_signature_activate;
        if ($pmb_digital_signature_activate) {
            $ligne_finale .= DocnumCertifier::getJsCheck();
            $certifier = new DocnumCertifier(null);
        }

        $ligne = '';
        global $search_terms;
        $docnums_exists_flag = false;
        while (($expl = pmb_mysql_fetch_object($res))) {

            // couleur de l'img en fonction du statut
            if ($expl->explnum_docnum_statut) {
                $rqt_st = "SELECT * FROM explnum_statut WHERE  id_explnum_statut='" . $expl->explnum_docnum_statut . "' ";
                $Query_statut = pmb_mysql_query($rqt_st) or die($rqt_st . " " . pmb_mysql_error());
                $r_statut = pmb_mysql_fetch_object($Query_statut);
                $class_img = " class='docnum_" . $r_statut->class_html . "' ";
                if ($expl->explnum_docnum_statut > 1) {
                    $txt = $r_statut->opac_libelle;
                } else
                    $txt = "";
                $statut_libelle_div = "
					<div id='zoom_statut_docnum" . $expl->explnum_id . "' style='border: 2px solid rgb(85, 85, 85); background-color: rgb(255, 255, 255); position: absolute; z-index: 2000; display: none;'>
						<b>$txt</b>
					</div>
				";
            } else {
                $class_img = " class='docnum_statutnot1' ";
                $txt = "";
            }

            $explnum_docnum_visible = true;
            $explnum_docnum_consult = true;
            if ($gestion_acces_active == 1 && $gestion_acces_empr_docnum == 1) {
                $ac = new acces();
                $dom_3 = $ac->setDomain(3);
                $explnum_docnum_visible = $dom_3->getRights($_SESSION['id_empr_session'], $expl->explnum_id, 16);
                $explnum_docnum_consult = $dom_3->getRights($_SESSION['id_empr_session'], $expl->explnum_id, 4);
            } else {
                $requete = "SELECT explnum_visible_opac, explnum_visible_opac_abon, explnum_consult_opac, explnum_consult_opac_abon FROM explnum, explnum_statut WHERE explnum_id ='" . $expl->explnum_id . "' and id_explnum_statut=explnum_docnum_statut ";
                $myQuery = pmb_mysql_query($requete);
                if (pmb_mysql_num_rows($myQuery)) {
                    $statut_temp = pmb_mysql_fetch_object($myQuery);
                    if (! $statut_temp->explnum_visible_opac) {
                        $explnum_docnum_visible = false;
                    }
                    if (! $statut_temp->explnum_consult_opac) {
                        $explnum_docnum_consult = false;
                    }
                    if ($statut_temp->explnum_visible_opac_abon && ! $_SESSION['id_empr_session'])
                        $explnum_docnum_visible = false;
                    if ($statut_temp->explnum_consult_opac_abon && ! $_SESSION['id_empr_session'])
                        $explnum_docnum_consult = false;
                } else {
                    $explnum_docnum_visible = false;
                }
            }
            if ($explnum_docnum_visible || $opac_show_links_invisible_docnums) {
                $docnums_exists_flag = true;
                if ($i == 1)
                    $ligne = "<tr><td !!td_id_1!! class='docnum center' style='width:33%'>!!1!!</td><td  !!td_id_2!! class='docnum center' style='width:33%'>!!2!!</td><td !!td_id_3!! class='docnum center' style='width:33%'>!!3!!</td></tr>";
                $tlink = '';
                if ($link_expl) {
                    $tlink = str_replace("!!explnum_id!!", $expl->explnum_id, $link_expl);
                    $tlink = str_replace("!!notice_id!!", $expl->explnum_notice, $tlink);
                    $tlink = str_replace("!!bulletin_id!!", $expl->explnum_bulletin, $tlink);
                }
                $alt = htmlentities($expl->explnum_nom . " - " . $expl->explnum_mimetype, ENT_QUOTES, $charset);

                $thumbnail_url = explnum::get_thumbnail_url($expl->explnum_vignette, $expl->explnum_id);
                $obj = "<img src='" . $thumbnail_url . "' alt='$alt' title='$alt' >";

                $expl_liste_obj = "";
                $statut_not = "<a href=\"#\" onmouseout=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display='none'; \" onmouseover=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display=''; \">
						<div class='vignette_doc_num' ><img $class_img width='10' height='10' src='" . get_url_icon('spacer.gif') . "' aria-hidden='true'></div>
					</a>";
                if ($opac_rgaa_active) {
                    $statut_not = "<span onmouseout=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display='none'; \" onmouseover=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display=''; \">
						<div class='vignette_doc_num' ><img $class_img width='10' height='10' src='" . get_url_icon('spacer.gif') . "' aria-hidden='true'></div>
					</span>";
                }
                $obj_suite = $statut_libelle_div . $statut_not;
                $obj_suite .= explnum_licence::get_explnum_licence_picto($expl->explnum_id);

                $words_to_find = "";
                if (($expl->explnum_mimetype == 'application/pdf') || ($expl->explnum_mimetype == 'URL' && (strpos($expl->explnum_nom, '.pdf') !== false))) {
                    if (is_array($search_terms)) {
                        $words_to_find = "#search=\"" . trim(str_replace('*', '', implode(' ', $search_terms))) . "\"";
                    }
                }
                $allowed_mimetype = array();
                // si l'affichage du lien vers les documents numériques est forcé et qu'on est pas connecté, on propose l'invite de connexion!
                if ((! $docnum_visible || ! $explnum_docnum_visible) && $opac_show_links_invisible_docnums && ! $_SESSION['id_empr_session']) {
                    if ($opac_visionneuse_allow)
                        $allowed_mimetype = explode(",", str_replace("'", "", $opac_photo_filtre_mimetype));
                    if ($explnum_docnum_consult && $allowed_mimetype && in_array($expl->explnum_mimetype, $allowed_mimetype)) {
                        $link = "
							<script>
								if(typeof(sendToVisionneuse) == 'undefined'){
									var sendToVisionneuse = function (explnum_id){
										document.getElementById('visionneuseIframe').src = 'visionneuse.php?'+(typeof(explnum_id) != 'undefined' ? 'explnum_id='+explnum_id+\"\" : '\'');
									}
								}
								function sendToVisionneuse_" . $expl->explnum_id . "(){
									open_visionneuse(sendToVisionneuse," . $expl->explnum_id . ");
								}
							</script>
							<a href='#' onclick=\"auth_popup('./ajax.php?module=ajax&categ=auth&callback_func=sendToVisionneuse_" . $expl->explnum_id . "');\" title='$alt'>" . $obj . "</a>$obj_suite<br />";
                        $expl_liste_obj .= $link;
                    } else {
                        $link = "
							<a href='#' onclick=\"auth_popup('./ajax.php?module=ajax&categ=auth&new_tab=0&callback_url=" . rawurlencode($opac_url_base . "doc_num.php?explnum_id=" . $expl->explnum_id) . "'); return false;\" title='$alt'>" . $obj . "</a>$obj_suite<br />";
                        $expl_liste_obj .= $link;
                    }
                } else {
                    if ($opac_visionneuse_allow)
                        $allowed_mimetype = explode(",", str_replace("'", "", $opac_photo_filtre_mimetype));
                    if ($explnum_docnum_consult && $allowed_mimetype && in_array($expl->explnum_mimetype, $allowed_mimetype)) {
                        $link = "
							<script>
								if(typeof(sendToVisionneuse) == 'undefined'){
									var sendToVisionneuse = function (explnum_id){
										document.getElementById('visionneuseIframe').src = 'visionneuse.php?'+(typeof(explnum_id) != 'undefined' ? 'explnum_id='+explnum_id+\"\" : '\'');
									}
								}
								function sendToVisionneuse_" . $expl->explnum_id . "(){
									open_visionneuse(sendToVisionneuse," . $expl->explnum_id . ");
								}
							</script>
							<a href='#' onclick=\"open_visionneuse(sendToVisionneuse," . $expl->explnum_id . ");return false;\" title='$alt'>" . $obj . "</a>$obj_suite<br />";
                        $expl_liste_obj .= $link;
                    } else {
                        $suite_url_explnum = "doc_num.php?explnum_id=$expl->explnum_id";
                        $expl_liste_obj .= "<a href='" . $opac_url_base . $suite_url_explnum . "' title='$alt' target='_blank'>" . $obj . "</a>$obj_suite<br />";
                    }
                }

                if ($_mimetypes_byext_[$expl->explnum_extfichier]["label"])
                    $explmime_nom = $_mimetypes_byext_[$expl->explnum_extfichier]["label"];
                elseif ($_mimetypes_bymimetype_[$expl->explnum_mimetype]["label"])
                    $explmime_nom = $_mimetypes_bymimetype_[$expl->explnum_mimetype]["label"];
                else
                    $explmime_nom = $expl->explnum_mimetype;

                if ($tlink) {
                    $expl_liste_obj .= "<a href='$tlink'>";
                    $expl_liste_obj .= "<span class='title_docnum'>" . htmlentities($expl->explnum_nom, ENT_QUOTES, $charset) . "</span></a><div class='explnum_type'>" . htmlentities($explmime_nom, ENT_QUOTES, $charset) . "</div>";
                } else {
                    $expl_liste_obj .= "<span class='title_docnum'>" . htmlentities($expl->explnum_nom, ENT_QUOTES, $charset) . "</span><div class='explnum_type'>" . htmlentities($explmime_nom, ENT_QUOTES, $charset) . "</div>";
                }

                if ($pmb_digital_signature_activate) {
                    $explnum = new explnum($expl->explnum_id);
                    $certifier->setEntity($explnum);

                    if ($certifier->checkSignExists()) {
                        $expl_liste_obj .= "
                        <span id='docnum_check_sign_" . $expl->explnum_id . "'></span>
                        <script>
                            certifier.chksign(" . $expl->explnum_id . ", 'docnum', true);
                        </script>
                    ";
                    }
                }

                // mémorisation des exemplaires numériques et de leurs localisations
                $ids_loc = array();
                $requete_loc = "SELECT num_location	FROM explnum_location  WHERE num_explnum=" . $expl->explnum_id;
                $result_loc = pmb_mysql_query($requete_loc);
                if (pmb_mysql_num_rows($result_loc)) {
                    while ($loc = pmb_mysql_fetch_object($result_loc)) {
                        $ids_loc[] = $loc->num_location;
                    }
                }

                $memo_expl['explnum'][] = array(
                    'expl_id' => $expl->explnum_id,
                    'expl_location' => $ids_loc,
                    'id_notice' => $no_notice,
                    'id_bulletin' => $no_bulletin
                );

                $ligne = str_replace("!!td_id_" . $i . "!!", " id = 'explnum_" . $expl->explnum_id . "' ", $ligne);
                $ligne = str_replace("!!$i!!", $expl_liste_obj, $ligne);
                $i ++;
                if ($i == 4) {
                    $ligne_finale .= $ligne;
                    $i = 1;
                }
                $nb_explnum_visible ++; // pour l'affichage en template de notice
            }
        }
        if (! $ligne_finale)
            $ligne_finale = $ligne;
        elseif ($i != 1)
            $ligne_finale .= $ligne;
        $ligne_finale = str_replace('!!2!!', "&nbsp;", $ligne_finale);
        $ligne_finale = str_replace('!!3!!', "&nbsp;", $ligne_finale);
        $ligne_finale = str_replace('!!td_id_2!!', '', $ligne_finale);
        $ligne_finale = str_replace('!!td_id_3!!', '', $ligne_finale);
    } else
        return "";
    $entry = '';
    if ($docnums_exists_flag) {
        $entry .= "<table class='docnum' role='presentation'>$ligne_finale</table>";
    }
    return $entry;
}

/**
 * Fonction retournant les infos d'exemplaires numériques pour une notice ou un bulletin donné
 *
 * @param int $explnum_id
 *            Identifiant du document numérique
 * @return string
 */
function show_explnum_per_id($explnum_id, $link_explnum = "")
{
    global $charset;
    global $opac_url_base;
    global $opac_visionneuse_allow;
    global $opac_photo_filtre_mimetype;
    global $opac_show_links_invisible_docnums;
    global $gestion_acces_active, $gestion_acces_empr_notice, $gestion_acces_empr_docnum;
    global $search_terms;

    if (! $explnum_id)
        return "";

    global $_mimetypes_bymimetype_, $_mimetypes_byext_;
    create_tableau_mimetype();

    // récupération des infos du document
    $query = "select explnum_id, explnum_notice, explnum_bulletin, explnum_nom, explnum_mimetype, explnum_url, explnum_vignette, explnum_nomfichier, explnum_extfichier , explnum_docnum_statut FROM explnum WHERE explnum_id = " . $explnum_id;
    $result = pmb_mysql_query($query);
    if ($result && pmb_mysql_num_rows($result)) {
        if ($explnum = pmb_mysql_fetch_object($result)) {
            $docnum_visible = true;
            $id_for_right = $explnum->explnum_notice;
            if ($gestion_acces_active == 1 && $gestion_acces_empr_notice == 1) {
                $ac = new acces();
                $dom_2 = $ac->setDomain(2);
                $docnum_visible = $dom_2->getRights($_SESSION['id_empr_session'], $id_for_right, 16);
            } else {
                $requete = "SELECT explnum_visible_opac, explnum_visible_opac_abon FROM notices, notice_statut WHERE notice_id ='" . $id_for_right . "' and id_notice_statut=statut ";
                $myQuery = pmb_mysql_query($requete);
                if (pmb_mysql_num_rows($myQuery)) {
                    $statut_temp = pmb_mysql_fetch_object($myQuery);
                    if (! $statut_temp->explnum_visible_opac)
                        $docnum_visible = false;
                    if ($statut_temp->explnum_visible_opac_abon && ! $_SESSION['id_empr_session'])
                        $docnum_visible = false;
                } else
                    $docnum_visible = false;
            }
            if ($docnum_visible) {
                if ($gestion_acces_active == 1 && $gestion_acces_empr_docnum == 1) {
                    $ac = new acces();
                    $dom_3 = $ac->setDomain(3);
                    $docnum_visible = $dom_3->getRights($_SESSION['id_empr_session'], $explnum->explnum_id, 16);
                } else {
                    $requete = "SELECT explnum_visible_opac, explnum_visible_opac_abon FROM explnum, explnum_statut WHERE explnum_id ='" . $explnum->explnum_id . "' and id_explnum_statut=explnum_docnum_statut ";
                    $myQuery = pmb_mysql_query($requete);
                    if (pmb_mysql_num_rows($myQuery)) {
                        $statut_temp = pmb_mysql_fetch_object($myQuery);
                        if (! $statut_temp->explnum_visible_opac)
                            $docnum_visible = false;
                        if ($statut_temp->explnum_visible_opac_abon && ! $_SESSION['id_empr_session'])
                            $docnum_visible = false;
                    } else
                        $docnum_visible = false;
                }
            }
            $tlink = '';
            if ($link_explnum) {
                $tlink = str_replace("!!explnum_id!!", $explnum->explnum_id, $link_explnum);
                $tlink = str_replace("!!notice_id!!", $explnum->explnum_notice, $tlink);
                $tlink = str_replace("!!bulletin_id!!", $explnum->explnum_bulletin, $tlink);
            }

            $alt = htmlentities($explnum->explnum_nom . " - " . $explnum->explnum_mimetype, ENT_QUOTES, $charset);

            // couleur de l'img en fonction du statut
            if ($explnum->explnum_docnum_statut) {
                $rqt_st = "SELECT * FROM explnum_statut WHERE  id_explnum_statut='" . $explnum->explnum_docnum_statut . "' ";
                $Query_statut = pmb_mysql_query($rqt_st) or die($rqt_st . " " . pmb_mysql_error());
                $r_statut = pmb_mysql_fetch_object($Query_statut);
                $class_img = " class='docnum_" . $r_statut->class_html . "' ";
                if ($explnum->explnum_docnum_statut > 1) {
                    $txt = $r_statut->opac_libelle;
                } else
                    $txt = "";
                $statut_libelle_div = "
					<div id='zoom_statut_docnum" . $explnum->explnum_id . "' style='border: 2px solid rgb(85, 85, 85); background-color: rgb(255, 255, 255); position: absolute; z-index: 2000; display: none;'>
						<b>$txt</b>
					</div>
				";
            } else {
                $class_img = " class='docnum_statutnot1' ";
                $txt = "";
            }

            $thumbnail_url = explnum::get_thumbnail_url($explnum->explnum_vignette, $explnum->explnum_id);
            $obj = "<img src='" . $opac_url_base . $thumbnail_url . "' alt='$alt' title='$alt' >";

            $explnum_liste_obj = "";

            $statut_not = "<a href=\"#\" onmouseout=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display='none'; \" onmouseover=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display=''; \">
					<div class='vignette_doc_num' ><img $class_img width='10' height='10' src='" . get_url_icon('spacer.gif') . "' aria-hidden='true'></div>
				</a>";
            if ($opac_rgaa_active) {
                $statut_not = "<span onmouseout=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display='none'; \" onmouseover=\"z=document.getElementById('zoom_statut_docnum" . $expl->explnum_id . "'); z.style.display=''; \">
					<div class='vignette_doc_num' ><img $class_img width='10' height='10' src='" . get_url_icon('spacer.gif') . "' aria-hidden='true'></div>
				</span>";
            }
            $obj .= $statut_libelle_div . $statut_not;

            $words_to_find = "";
            if (($explnum->explnum_mimetype == 'application/pdf') || ($explnum->explnum_mimetype == 'URL' && (strpos($explnum->explnum_nom, '.pdf') !== false))) {
                if (is_array($search_terms)) {
                    $words_to_find = "#search=\"" . trim(str_replace('*', '', implode(' ', $search_terms))) . "\"";
                }
            }

            // si l'affichage du lien vers les documents numériques est forcé et qu'on est pas connecté, on propose l'invite de connexion!
            if (! $docnum_visible && ! $_SESSION['user_code'] && $opac_show_links_invisible_docnums) {
                if ($opac_visionneuse_allow)
                    $allowed_mimetype = explode(",", str_replace("'", "", $opac_photo_filtre_mimetype));
                if ($allowed_mimetype && in_array($explnum->explnum_mimetype, $allowed_mimetype)) {
                    $link = "
						<script>
							if(typeof(sendToVisionneuse) == 'undefined'){
								var sendToVisionneuse = function (explnum_id){
									document.getElementById('visionneuseIframe').src = 'visionneuse.php?'+(typeof(explnum_id) != 'undefined' ? 'explnum_id='+explnum_id+\"\" : '\'');
								}
							}
							function sendToVisionneuse_" . $explnum->explnum_id . "(){
								open_visionneuse(sendToVisionneuse," . $explnum->explnum_id . ");
							}
						</script>
						<a href='#' onclick=\"auth_popup('./ajax.php?module=ajax&categ=auth&callback_func=sendToVisionneuse_" . $explnum->explnum_id . "');\" title='$alt'>" . $obj . "</a><br />";
                    $explnum_liste_obj .= $link;
                } else {
                    $link = "
						<a href='#' onclick=\"auth_popup('./ajax.php?module=ajax&categ=auth&new_tab=0&callback_url=" . rawurlencode($opac_url_base . "doc_num.php?explnum_id=" . $explnum->explnum_id) . "'); return false;\" title='$alt'>" . $obj . "</a><br />";
                    $explnum_liste_obj .= $link;
                }
            } else {
                if ($opac_visionneuse_allow)
                    $allowed_mimetype = explode(",", str_replace("'", "", $opac_photo_filtre_mimetype));
                if ($allowed_mimetype && in_array($explnum->explnum_mimetype, $allowed_mimetype)) {
                    $link = "
						<script>
							if(typeof(sendToVisionneuse) == 'undefined'){
								var sendToVisionneuse = function (explnum_id){
									document.getElementById('visionneuseIframe').src = 'visionneuse.php?'+(typeof(explnum_id) != 'undefined' ? 'explnum_id='+explnum_id+\"\" : '\'');
								}
							}
						</script>
						<a href='#' onclick=\"open_visionneuse(sendToVisionneuse," . $explnum->explnum_id . ");return false;\" title='$alt'>" . $obj . "</a><br />";
                    $explnum_liste_obj .= $link;
                } else {
                    $suite_url_explnum = "doc_num.php?explnum_id=$explnum->explnum_id";

                    if (! $r_statut->explnum_download_opac) {
                        $explnum_liste_obj .= $obj . "<br />";
                    } else {
                        $explnum_liste_obj .= "<a href='" . $opac_url_base . $suite_url_explnum . "' title='$alt' target='_blank'>" . $obj . "</a><br />";
                    }
                }
            }

            if ($_mimetypes_byext_[$explnum->explnum_extfichier]["label"])
                $explnummime_nom = $_mimetypes_byext_[$explnum->explnum_extfichier]["label"];
            elseif ($_mimetypes_bymimetype_[$explnum->explnum_mimetype]["label"])
                $explnummime_nom = $_mimetypes_bymimetype_[$explnum->explnum_mimetype]["label"];
            else
                $explnummime_nom = $explnum->explnum_mimetype;

            if ($tlink) {
                $explnum_liste_obj .= "<a href='$tlink'>";
                $explnum_liste_obj .= "<span class='title_docnum'>" . htmlentities($explnum->explnum_nom, ENT_QUOTES, $charset) . "</span></a><div class='explnum_type'>" . htmlentities($explnummime_nom, ENT_QUOTES, $charset) . "</div>";
            } else {
                $explnum_liste_obj .= "<span class='title_docnum'>" . htmlentities($explnum->explnum_nom, ENT_QUOTES, $charset) . "</span><div class='explnum_type'>" . htmlentities($explnummime_nom, ENT_QUOTES, $charset) . "</div>";
            }
        } else
            return "";
    } else
        return "";
    return $explnum_liste_obj;
}

function construire_vignette($vignette_name = '', $userfile_name = '', $url = '')
{
    $contenu_vignette = "";
    $eh = events_handler::get_instance();
    $event = new event_explnum("explnum", "contruire_vignette");
    $eh->send($event);
    $contenu_vignette = $event->get_contenu_vignette();
    if ($contenu_vignette) {
        return $contenu_vignette;
    }
    if ($vignette_name) {
        $contenu_vignette = reduire_image($vignette_name);
    } elseif ($userfile_name) {
        $contenu_vignette = reduire_image($userfile_name);
    } elseif ($url) {
        $contenu_vignette = reduire_image($url, true);
    } else {
        $contenu_vignette = "";
    }
    return $contenu_vignette;
}

function reduire_image($userfile_name, $file_get_contents_flag = false)
{
    global $pmb_vignette_x;
    global $pmb_vignette_y;
    global $base_path;
    global $pmb_curl_available;

    if (! $pmb_vignette_x)
        $pmb_vignette_x = 100;
    if (! $pmb_vignette_y)
        $pmb_vignette_y = 100;
    $fichier_tmp = '';
    $contenu_vignette = '';

    if (file_exists("$base_path/temp/$userfile_name")) {
        $source_file = realpath("$base_path/temp/$userfile_name");
    } else {
        // Il s'agit d'une url, on copie le fichier en local
        $nom_temp = session_id() . microtime();
        $nom_temp = str_replace(' ', '_', $nom_temp);
        $nom_temp = str_replace('.', '_', $nom_temp);
        $fichier_tmp = $base_path . "/temp/" . $nom_temp;
        if ($file_get_contents_flag) {
            $contenu_vignette = file_get_contents($userfile_name);
            $fd = fopen($fichier_tmp, "w");
            fwrite($fd, $contenu_vignette);
            fclose($fd);
        } else if ($pmb_curl_available && ! file_exists($userfile_name)) {
            $aCurl = new Curl();
            $aCurl->timeout = 10;
            $aCurl->set_option('CURLOPT_SSL_VERIFYPEER', false);
            $aCurl->save_file_name = $fichier_tmp;
            $aCurl->get($userfile_name);
        } else if (file_exists($userfile_name)) {
            $handle = fopen($userfile_name, "rb");
            $filecontent = stream_get_contents($handle);
            fclose($handle);
            $fd = fopen($fichier_tmp, "w");
            fwrite($fd, $filecontent);
            fclose($fd);
        }
        $source_file = realpath($fichier_tmp);
    }

    if (! $source_file) {
    	//Ce serait dommage de pas avoir une image...
    	if (Image::isValid($contenu_vignette)) {
    		return $contenu_vignette;
    	}
    	return '';
    }

    $rotation = 0;
    if (extension_loaded('exif')) {
        $exif = exif_read_data($source_file);
        $orientation = $exif['Orientation'] ?? 0;
        switch ($orientation) {
            case 6: // rotate 90 degrees CW
                $rotation = 90;
                break;
            case 8: // rotate 90 degrees CCW
                $rotation = - 90;
                break;
        }
    }

    $error = true;
    if (extension_loaded('imagick')) {
        mysql_set_wait_timeout(3600);
        $error = false;
        try {
            $img = new Imagick();
            $img->readImage($source_file . "[0]");

            $img->setImageBackgroundColor('white');
            if ($rotation) {
                $img->rotateimage('white', $rotation);
            }

            // Imagick >= 3.4.4
            if (method_exists('Imagick', 'mergeImageLayers') && method_exists('Imagick', 'setImageAlphaChannel') && defined('Imagick::ALPHACHANNEL_REMOVE')) {
                $img->setImageAlphaChannel(imagick::ALPHACHANNEL_REMOVE);
                $img->mergeImageLayers(imagick::LAYERMETHOD_FLATTEN);

                // Imagick < 3.4.4
            } elseif (method_exists('Imagick', 'flattenImages')) {
                $img = $img->flattenImages();
            }

            if (($img->getImageWidth() > $pmb_vignette_x) || ($img->getImageHeight() > $pmb_vignette_y)) { // Si l'image est trop grande on la reduit
                $img->thumbnailimage($pmb_vignette_x, $pmb_vignette_y, true);
            }
            $img->setImageFormat("png");
            $img->setCompression(Imagick::COMPRESSION_LZW);
            $img->setCompressionQuality(90);
            $contenu_vignette = $img->getImageBlob();
        } catch (Exception $ex) {
            $error = true;
        }
    }
    if ($error) {
        $source_file = str_replace("[0]", "", $source_file);
        $size = @getimagesize($source_file);
        /*
         * ".gif"=>"1",
         * ".jpg"=>"2",
         * ".jpeg"=>"2",
         * ".png"=>"3",
         * ".swf"=>"4",
         * ".psd"=>"5",
         * ".bmp"=>"6");
         */
        switch ($size[2]) {
            case 1:
                $src_img = imagecreatefromgif($source_file);
                break;
            case 2:
                $src_img = imagecreatefromjpeg($source_file);
                break;
            case 3:
                $src_img = imagecreatefrompng($source_file);
                break;
            case 6:
                $src_img = imagecreatefromwbmp($source_file);
                break;
            default:
                break;
        }
        $erreur_vignette = 0;
        if (! empty($src_img)) {

            if ($rotation) {
                $src_img = imagerotate($src_img, - $rotation, 0);
            }

            $rs = $pmb_vignette_x / $pmb_vignette_y;
            $taillex = imagesx($src_img);
            $tailley = imagesy($src_img);
            if (! $taillex || ! $tailley)
                return "";
            if (($taillex > $pmb_vignette_x) || ($tailley > $pmb_vignette_y)) {
                $r = $taillex / $tailley;
                if (($r < 1) && ($rs < 1)) {
                    // Si x plus petit que y et taille finale portrait
                    // Si le format final est plus large en proportion
                    if ($rs > $r) {
                        $new_h = $pmb_vignette_y;
                        $new_w = $new_h * $r;
                    } else {
                        $new_w = $pmb_vignette_x;
                        $new_h = $new_w / $r;
                    }
                } else if (($r < 1) && ($rs >= 1)) {
                    // Si x plus petit que y et taille finale paysage
                    $new_h = $pmb_vignette_y;
                    $new_w = $new_h * $r;
                } else if (($r > 1) && ($rs < 1)) {
                    // Si x plus grand que y et taille finale portrait
                    $new_w = $pmb_vignette_x;
                    $new_h = $new_w / $r;
                } else {
                    // Si x plus grand que y et taille finale paysage
                    if ($rs < $r) {
                        $new_w = $pmb_vignette_x;
                        $new_h = $new_w / $r;
                    } else {
                        $new_h = $pmb_vignette_y;
                        $new_w = $new_h * $r;
                    }
                }
            } else {
                $new_h = $tailley;
                $new_w = $taillex;
            }
            $dst_img = imagecreatetruecolor($pmb_vignette_x, $pmb_vignette_y);
            ImageSaveAlpha($dst_img, true);
            ImageAlphaBlending($dst_img, false);
            imagefilledrectangle($dst_img, 0, 0, $pmb_vignette_x, $pmb_vignette_y, imagecolorallocatealpha($dst_img, 0, 0, 0, 127));
            imagecopyresized($dst_img, $src_img, round(($pmb_vignette_x - $new_w) / 2), round(($pmb_vignette_y - $new_h) / 2), 0, 0, $new_w, $new_h, ImageSX($src_img), ImageSY($src_img));
            imagepng($dst_img, "$base_path/temp/" . SESSid);
            $fp = fopen("$base_path/temp/" . SESSid, "r");
            $contenu_vignette = fread($fp, filesize("$base_path/temp/" . SESSid));
            if (! $fp || $contenu_vignette == "")
                $erreur_vignette ++;
            fclose($fp);
            unlink("$base_path/temp/" . SESSid);
        }
    }

    //Ce serait dommage de pas avoir une image...
    if (Image::isValid($contenu_vignette)) {
    	return $contenu_vignette;
    }
    
    return '';
}

function &reduire_image_middle(&$data)
{
    global $opac_photo_mean_size_x;
    global $opac_photo_mean_size_y;
    global $opac_photo_watermark;
    global $opac_photo_watermark_transparency;
    if ($opac_photo_watermark_transparency == "")
        $opac_photo_watermark_transparency = 50;

    $src_img = imagecreatefromstring($data);
    if ($src_img) {
        $photo_mean_size_x = imagesx($src_img);
        $photo_mean_size_y = imagesy($src_img);
    } else {
        $photo_mean_size_x = 200;
        $photo_mean_size_y = 200;
    }
    if ($opac_photo_mean_size_x)
        $photo_mean_size_x = $opac_photo_mean_size_x;
    if ($opac_photo_mean_size_y)
        $photo_mean_size_y = $opac_photo_mean_size_y;

    if ($opac_photo_watermark) {
        $size = @getimagesize("images/" . $opac_photo_watermark);
        /*
         * ".gif"=>"1",
         * ".jpg"=>"2",
         * ".jpeg"=>"2",
         * ".png"=>"3",
         * ".swf"=>"4",
         * ".psd"=>"5",
         * ".bmp"=>"6");
         */
        switch ($size[2]) {
            case 1:
                $wat_img = imagecreatefromgif("images/" . $opac_photo_watermark);
                break;
            case 2:
                $wat_img = imagecreatefromjpeg("images/" . $opac_photo_watermark);
                break;
            case 3:
                $wat_img = imagecreatefrompng("images/" . $opac_photo_watermark);
                break;
            case 6:
                $wat_img = imagecreatefromwbmp("images/" . $opac_photo_watermark);
                break;
            default:
                $wat_img = "";
                break;
        }
    }

    $erreur_vignette = 0;
    if ($src_img) {
        $rs = $photo_mean_size_x / $photo_mean_size_y;
        $taillex = imagesx($src_img);
        $tailley = imagesy($src_img);
        if (! $taillex || ! $tailley)
            return "";
        if (($taillex > $photo_mean_size_x) || ($tailley > $photo_mean_size_y)) {
            $r = $taillex / $tailley;
            if (($r < 1) && ($rs < 1)) {
                // Si x plus petit que y et taille finale portrait
                // Si le format final est plus large en proportion
                if ($rs > $r) {
                    $new_h = $photo_mean_size_y;
                    $new_w = $new_h * $r;
                } else {
                    $new_w = $photo_mean_size_x;
                    $new_h = $new_w / $r;
                }
            } else if (($r < 1) && ($rs >= 1)) {
                // Si x plus petit que y et taille finale paysage
                $new_h = $photo_mean_size_y;
                $new_w = $new_h * $r;
            } else if (($r > 1) && ($rs < 1)) {
                // Si x plus grand que y et taille finale portrait
                $new_w = $photo_mean_size_x;
                $new_h = $new_w / $r;
            } else {
                // Si x plus grand que y et taille finale paysage
                if ($rs < $r) {
                    $new_w = $photo_mean_size_x;
                    $new_h = $new_w / $r;
                } else {
                    $new_h = $photo_mean_size_y;
                    $new_w = $new_h * $r;
                }
            }
        } else {
            $new_h = $tailley;
            $new_w = $taillex;
        }

        $dst_img = imagecreatetruecolor($photo_mean_size_x, $photo_mean_size_y);
        ImageSaveAlpha($dst_img, true);
        ImageAlphaBlending($dst_img, false);
        imagefilledrectangle($dst_img, 0, 0, $photo_mean_size_x, $photo_mean_size_y, imagecolorallocatealpha($dst_img, 0, 0, 0, 127));
        imagecopyresized($dst_img, $src_img, round(($photo_mean_size_x - $new_w) / 2), round(($photo_mean_size_y - $new_h) / 2), 0, 0, $new_w, $new_h, ImageSX($src_img), ImageSY($src_img));
        if ($wat_img) {
            $wr_img = imagecreatetruecolor($photo_mean_size_x, $photo_mean_size_y);
            ImageSaveAlpha($wr_img, true);
            ImageAlphaBlending($wr_img, false);
            imagefilledrectangle($wr_img, 0, 0, $photo_mean_size_x, $photo_mean_size_y, imagecolorallocatealpha($dst_img, 0, 0, 0, 127));
            imagecopyresized($wr_img, $wat_img, round(($photo_mean_size_x - $new_w) / 2), round(($photo_mean_size_y - $new_h) / 2), 0, 0, $new_w, $new_h, ImageSX($wat_img), ImageSY($wat_img));
            imagecopymerge($dst_img, $wr_img, 0, 0, 0, 0, $photo_mean_size_x, $photo_mean_size_y, $opac_photo_watermark_transparency);
        }
        imagepng($dst_img, "./temp/" . session_id());
        $fp = fopen("./temp/" . session_id(), "r");
        $contenu_vignette = fread($fp, filesize("./temp/" . session_id()));
        if (! $fp || $contenu_vignette == "")
            $erreur_vignette ++;
        fclose($fp);
        unlink("./temp/" . session_id());
    } else
        $contenu_vignette = "";
    return $contenu_vignette;
} // fin reduire_image
