";
print gen_plus("procclass".$buf_class,$buf_tit,$buf_contenu);
}
switch($dest) {
case "TABLEAU":
$fichier_temp_nom=str_replace(" ","",microtime());
$fichier_temp_nom=str_replace("0.","",$fichier_temp_nom);
$fname = tempnam("./temp", $fichier_temp_nom.".xls");
$workbook = new writeexcel_workbook($fname);
$worksheet = &$workbook->addworksheet();
break;
case "TABLEAUHTML":
echo "
".$msg[1130]." : ".$msg[1131]."
";
break;
case "TABLEAUCSV":
break;
case "EXPORT_NOTI":
$fichier_temp_nom=str_replace(" ","",microtime());
$fichier_temp_nom=str_replace("0.","",$fichier_temp_nom);
$fname = tempnam("./temp", $fichier_temp_nom.".doc");
break;
default:
echo "
".$msg[1130]." : ".$msg[1131]."
";
break;
}
if (!$id_proc) {
show_procs($dbh);
} else {
@set_time_limit ($pmb_set_time_limit);
//Récupération des variables postées, on en aura besoin pour les liens
$page=$_SERVER[SCRIPT_NAME];
$requete = "SELECT idproc, name, requete, comment, proc_notice_tpl, proc_notice_tpl_field FROM procs where idproc='".$id_proc."' ";
$res = mysql_query($requete, $dbh) or die (" SQL error : ".mysql_error()." SQL Query : ".$requete);
$row=mysql_fetch_row($res);
//Requete et calcul du nombre de pages à afficher selon la taille de la base 'pret'
//********************************************************************************/
// récupérer ici la procédure à lancer
$sql = $row[2];
//$proc_notice_tpl=$row[4];
$proc_notice_tpl_field=$row[5];
if (preg_match_all("|!!(.*)!!|U",$sql,$query_parameters) && $form_type=="") {
$hp=new parameters($id_proc,"procs");
$hp->gen_form("edit.php?categ=procs&sub=&action=execute&id_proc=".$id_proc."&force_exec=".$force_exec);
} else {
$param_hidden="";
if($force_exec){
$param_hidden.="";//On a forcé la requete
}
if (preg_match_all("|!!(.*)!!|U",$sql,$query_parameters)) {
$hp=new parameters($id_proc,"procs");
$hp->get_final_query();
$sql=$hp->final_query;
$param_hidden.=$hp->get_hidden_values();//Je mets les paramêtres en champ caché en cas de forçage
$param_hidden.="";//Je mets le marqueur des paramêtres en champ caché en cas de forçage
}
if($dest != "TABLEAU" && $dest != "TABLEAUHTML" && $dest != "TABLEAUCSV"){
print "";
}
if (!explain_requete($sql) && !((SESSrights & EDIT_FORCING_AUTH) && $force_exec)){
die("
".mysql_error());
}
$nombre_lignes_total = mysql_num_rows($req_nombre_lignes);
}
$param_hidden.="";//Je garde le nombre de ligne total pour le pas refaire la requête à la page suivante
//Si aucune limite_page n'a été passée, valeur par défaut : 10
if (!$limite_page) $limite_page = 10;
$nbpages= $nombre_lignes_total / $limite_page;
// on arondi le nombre de page pour ne pas avoir de virgules, ici au chiffre supérieur
$nbpages_arrondi = ceil($nbpages);
// on enlève 1 au nombre de pages, car la 1ere page affichée ne fait pas partie des pages suivantes
$nbpages_arrondi = $nbpages_arrondi - 1;
if (!$numero_page) $numero_page=0;
$limite_mysql = $limite_page * $numero_page;
//REINITIALISATION DE LA REQUETE SQL
switch($dest) {
case "TABLEAU":
case "TABLEAUHTML":
case "TABLEAUCSV":
case "EXPORT_NOTI":
if(!$req_nombre_lignes){
$res = @mysql_query($sql, $dbh) or die($sql."
";
$sql = $sql." LIMIT ".$limite_mysql.", ".$limite_page;
// on execute la requete avec les bonnes limites
$res = @mysql_query($sql, $dbh) or die($sql."
";
// affichage du tableau des procédures
$requete = "SELECT idproc, name, requete, comment, autorisations, libproc_classement, num_classement FROM procs left join procs_classements on idproc_classement=num_classement ORDER BY libproc_classement,name ";
$res = mysql_query($requete, $dbh);
$nbr = mysql_num_rows($res);
$class_prec=$msg[proc_clas_aucun];
$buf_tit="";
$buf_class=0;
$parity=1;
for($i=0;$i<$nbr;$i++) {
$row=mysql_fetch_row($res);
$rqt_autorisation=explode(" ",$row[4]);
if (($PMBuserid==1 || array_search ($PMBuserid, $rqt_autorisation)!==FALSE) && pmb_strtolower(pmb_substr(trim($row[2]),0,6))=='select') {
$classement=$row[5];
if ($class_prec!=$classement) {
if (!$row[5]) $row[5]=$msg[proc_clas_aucun];
if ($buf_tit) {
$buf_contenu="