valeur_param) {
$OrdreImportEmpr=unserialize($obj->valeur_param);
} else {
$querry = "DESCRIBE empr;";
$res = pmb_mysql_query($querry);
$nbr = pmb_mysql_num_rows($res);
if($nbr) {
$k = 0;$OrdreImportEmpr=array();
for($j=0;$j<$nbr;$j++) {
$row=pmb_mysql_fetch_row($res);
$OrdreImportEmpr[$row[0]] = 0;
}
}
// recup des champs perso
$querry = "SELECT * from empr_custom;";
$res = pmb_mysql_query($querry);
if (pmb_mysql_num_rows($res)) {
while (($row=pmb_mysql_fetch_array($res,PMB_MYSQL_ASSOC))){
$OrdreImportEmpr[$row['name']] = 0;
}
}
}
print "
";
function show_import_choix_fichier($dbh,$from_ldap) {
global $msg;
global $charset;
global $current_module ;
// $result = pmb_mysql_query("Select duree_adhesion, libelle From empr_categ;") or die($msg["err_sql"]);
// premier formulaire pour avoir le nom du fichier a importer, le s?parateur de champ
// et indiquer dans quel groupe importation va allez
if (!$from_ldap) {
$formtype="
";
}
function show_import($dbh, $buffer,$from_ldap) {
// formulaire o? l'on choisi dans quel champ on met les donn?es qui souvent
// proviennent d'une autre base de donn?e, le code ne supporte que les fichiers
// texte, il se peut que la page "plante" si vous envoyer des donn?es qui pourrait
// ?tre incompatible, il faut faire en sorte qu'ils soient du m?me type sauf execptions
// genre un vachar qui va dans le year(int), s'il n'y a pas de lettre. Le code est
// loin d'?tre STABLE, il faut donc faire attantion ? ne pas envoyer des donn?es erron?es.
global $msg;
global $OrdreImportEmpr;
global $import_lec;
global $Sep_Champs;
global $current_module ;
print "";
} else
print ($msg["no_empr_del"]);
}
function desc_table($dbh, $table) {
$querry = "Select * from $table";
$res = pmb_mysql_query($querry);
$nbr = pmb_mysql_num_fields($res);
if($nbr) {
for($j=0;$j<$nbr;$j++) {
$desc_table[$j][0] = pmb_mysql_field_name($res,$j);
$desc_table[$j][1] = pmb_mysql_field_type($res,$j);
$desc_table[$j][2] = pmb_mysql_field_len($res,$j);
$desc_table[$j][3] = estNumerique($desc_table[$j][1], $desc_table[$j][2]);
// j'ai seulement besoin de l'auto_increment, $desc_table[$j][4] est vrai si trouv?!
$desc_table[$j][4] = array_search ( "auto_increment", explode( " ", pmb_mysql_field_flags($res,$j) ) );
}
//print_r($desc_table);
return $desc_table;
}
}
function estNumerique($field_type, $field_len) {
// ceci est le m?me code que dans la class mysql_backup
$is_numeric=false;
switch(strtolower($field_type)) {
case "int":
$is_numeric=true;
break;
case "blob":
$is_numeric=false;
break;
case "real":
$is_numeric=true;
break;
case "string":
$is_numeric=false;
break;
case "unknown":
switch(intval($field_len)) {
case 4:
// little weakness here...
// there is no way (thru the PHP/MySQL interface)
// to tell the difference between a tinyint and a year field type
$is_numeric=true;
break;
default:
$is_numeric=true;
break;
}
break;
case "timestamp":
$is_numeric=true;
break;
case "date":
$is_numeric=false;
break;
case "datetime":
$is_numeric=false;
break;
case "time":
$is_numeric=false;
break;
default:
//future support for field types that are not recognized
//(hopefully this will work without need for future modification)
$is_numeric=true;
//I'm assuming new field types will follow SQL numeric syntax..
// this is where this support will breakdown
break;
}
return $is_numeric;
}
// string de la date d'aujourd'hui ou avec quelques jours de plus
function aujourdhui($nbjour=0) {
$date1 = date("Y-m-d", time() + 3600*24*$nbjour);
return strval($date1);
}
// sert a savoir si un etudiant existe d?j?
function return_cb($dbh, $cb) {
$querry = "select empr_cb from empr where empr_cb = '".$cb."' ";
$res = pmb_mysql_query($querry);
$row = pmb_mysql_fetch_row($res); // lecture d'une seul ligne, le id de l'?diteur
# return intval($row[0]);
return ($row[0]); // cb can be NOT numeric (MaxMan)!!!
}
// save fields/text association - MaxMan
function save_fields_association() {
global $dbh ;
$i=1;
reset($_POST);
foreach ($_POST as $kk => $vv) {
if (!preg_match("/$kk/i","import_lec Sep_Champs selectGroupe Actualiser")) {
$OrdreImportEmpr[$kk]=$vv;
}
}
$querry = "update parametres set valeur_param='".serialize($OrdreImportEmpr)."' where type_param = 'empr' and sstype_param='corresp_import' ";
pmb_mysql_query($querry);
// $h=fopen("$base_path/admin/empr/ordimport.txt",'w');
// fwrite($h,serialize($OrdreImportEmpr));
// fclose($h);
}
switch($action) {
case 'FichierOK':
if($envoyer) {
$from_ldap=$_POST['from_ldap'];
//print_r($import_lec)."";
if (!$from_ldap) {
if (!($_FILES['import_lec']['tmp_name'])) {
print $msg["click_prec_fic"];
} elseif (!(move_uploaded_file($_FILES['import_lec']['tmp_name'], "./temp/".basename($_FILES['import_lec']['tmp_name'])))) {
print $msg["fic_no_tel"]."
";
}
$ficher = @fopen( "./temp/".basename($_FILES['import_lec']['tmp_name']), "r" );
$import_lec = basename($_FILES['import_lec']['tmp_name']);
} else {
$ficher = @fopen( "./temp/ldap_users.txt", "r" );
$import_lec = "./temp/ldap_users.txt";
$Sep_Champs='|';
}
if($ficher) {
$buffer = fgets($ficher, 1000);
$buffer = import_empr::get_encoded_buffer($buffer);
$buffer = explode ($Sep_Champs, $buffer);
$cpt = count($buffer) - 1;
// de 1 jusqu'? la fin, le 0 est comme null!
for($j=$cpt; $j>=0; $j--)
$buffer[$j+1] = trim($buffer[$j]);
$buffer[0] = "";
fclose($ficher);
show_import($dbh, $buffer, $from_ldap);
}
}
elseif($Deleter || $Precedent)
choix_supp_empr($dbh,$from_ldap);
else
{
//print "Vous devez choisir un fichier!";
show_import_choix_fichier($dbh,$from_ldap);
}
break;
case 'enregistre':
$from_ldap=$_POST['from_ldap'];
if ($Actualiser){
//print "Actualiser";
//print_r ($import_lec);
//print "test";
//$ficher = @fopen($_POST[import_lec], 'rb');
//print "
".$HTTP_POST_FILES['import_lec']."test";
//$ficher = @fopen($import_lec, 'rb');
save_fields_association();
if ($from_ldap){
$ficher = @fopen( "./temp/ldap_users.txt", "r" );
$Sep_Champs='|';
} else {
$ficher = @fopen( "./temp/".$import_lec, "r" );
}
if($ficher) {
$buffer = fgets($ficher, 1000);
$buffer = import_empr::get_encoded_buffer($buffer);
$buffer = explode ($Sep_Champs, $buffer);
$cpt = count($buffer) - 1;
// de 1 jusqu'? la fin, le 0 est comme null!
for($j=$cpt; $j>=0; $j--)
$buffer[$j+1] = trim($buffer[$j]);
$buffer[0] = "";
fclose($ficher);
show_import($dbh, $buffer,$from_ldap);
}
}
if ($Enregistrer) {
save_fields_association();
// download le fichier au complet
//print "Enregistrer
";
//print "
".$import_lec;
//$ficher = @fopen($import_lec, 'rb');
//$ficher = @fopen($import_lec, 'rb');
if ($from_ldap) {
$file_lec = "./temp/ldap_users.txt";
$Sep_Champs='|';
} else {
$file_lec = "./temp/$import_lec";
}
$ficher = fopen( $file_lec, "r" );
if($file_lec != './temp/' && $ficher) {
//champs perso
$perso=array();
$querry = "SELECT * from empr_custom;";
$res = pmb_mysql_query($querry);
$k=0;
if (pmb_mysql_num_rows($res)) {
while ($row=pmb_mysql_fetch_array($res,PMB_MYSQL_ASSOC)) {
$perso[$k++]=$row;
}
}
//printr($perso,'','PERSO');die;
$result = pmb_mysql_query("Select duree_adhesion From empr_categ where id_categ_empr='$_POST[selectGroupe]';") or die($msg["err_sql"]);
$row = pmb_mysql_fetch_row($result);
$dur=htmlentities($row[0],ENT_QUOTES, $charset);
// mise en tampon du ficher
$buffer = fread ( $ficher, filesize ($file_lec));
$buffer = import_empr::get_encoded_buffer($buffer);
if (preg_match('/\r\n/',$buffer)) {
//txt msdos
$bufferLine = explode("\r\n", $buffer);
} else {
//txt linux
$bufferLine = explode("\n", $buffer);
}
// on enl?ve les [enter] de trop en fin de fichiers
// ? faire si le temp, enlever les enter(/r/n) en millieu du fichier
// s'il y en a, le prog va ins?rer des donn?es vide et les affichers
// comme erreur
// si le fichier est vide sa va cr?er une boucle sans fin!!!
while(end($bufferLine) == "")
array_pop($bufferLine);
// check la table empr
$desc_empr = desc_table($dbh, "empr");
/*
print $desc_empr[0][0].", "; // mysql_field_nom
print $desc_empr[0][1].", "; // mysql_field_type
print $desc_empr[0][2].", "; // mysql_field_longeur
print $desc_empr[0][3];", "; // estNumerique ou non!
print $desc_table[$j][4]; // auto_increment ou non!
*/
$nbChamp_empr = count($desc_empr);
//
// traitement du buffer pour chaque ligne
//
foreach($bufferLine as $dummykey=>$tmp){
$bufferChamp = explode ($Sep_Champs, $tmp);
$cpt = count($bufferChamp) - 1;
// de 1 ? la fin, le 0 est comme null!
for($j=$cpt; $j>=0; $j--) {
// el?ve les " et les espaces en debut et fin du string(pour chaque champ!)
$bufferChamp[$j+1] = trim($bufferChamp[$j], "\"");
$bufferChamp[$j+1] = pmb_mysql_escape_string( $bufferChamp[$j+1] );
}
$bufferChamp[0] = "";
if ( return_cb($dbh, $bufferChamp[${$desc_empr[1][0]}]) ) {
// ca veut dire que c'est un update d'une personne deja dans la BD
for($i = 1; $i < $nbChamp_empr; $i++){
if(!$desc_empr[$i][4] and $bufferChamp[${$desc_empr[$i][0]}]){ // s'il n'est pas auto incr?mentable
$query2 = 'update empr set '.$desc_empr[$i][0].' = "'.substr ( $bufferChamp[${$desc_empr[$i][0]}], 0, $desc_empr[$i][2]).'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."
".$query2."
";
}
}
// update pour inserer la date de creation , modif, date_adhesion...
$query2 = 'update empr set empr_modif = "'.aujourdhui().'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."
".$query2."
";
$query2 = 'update empr set empr_categ = '.$_POST['selectGroupe'].' where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
$query2 = 'update empr set empr_codestat = '.$_POST['selectStat'].' where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
$query2 = 'update empr set empr_date_expiration = "'.aujourdhui($dur).'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query."
";
if ($from_ldap){
$query2 = "update empr set empr_ldap = '1' where empr_cb = '".$bufferChamp[${$desc_empr[1][0]}]."';";
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
}
} else {
// sinon le cb n'existe pas, donc c'est une nouvelle personne
$fields = "";
$values = "";
for($i = 1; $i < $nbChamp_empr; $i++) {
if(!$desc_empr[$i][4] and $bufferChamp[${$desc_empr[$i][0]}]) { // s'il n'est pas auto incrementable et que le $bufferChamp ne soit pas vide
// remplit le $fields dans : insert into empr($fields)...
if($fields) $fields .= ', '.$desc_empr[$i][0];
else $fields .= $desc_empr[$i][0];
if($values) $values .= ', "'.substr ( $bufferChamp[${$desc_empr[$i][0]}], 0, $desc_empr[$i][2]).'"';
else $values .= '"'.substr ( $bufferChamp[${$desc_empr[$i][0]}], 0, $desc_empr[$i][2]).'"';
if($i == 4) { // l'exception pour l'adresse (2 champs dans le 2e formulaire)
if($values) {
$values = substr($values, 0, strlen($values) - 1);
$values .= ', '.substr ( $bufferChamp[$plus1], 0, $desc_empr[$i][2]).'"';
} else
$values .= '"'.substr ( $bufferChamp[$plus1], 0, $desc_empr[$i][2]).'"';
}
}
}
$query = "insert into empr ($fields) values ($values);";
//print $query;
$res = pmb_mysql_query($query) or print $msg["ins_echoue"]."".$query."
";
// update pour ins?rer la date de cr?ation , modif, date_adhesion...
$query2 = 'update empr set empr_creation = "'.aujourdhui().'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
$query2 = 'update empr set empr_modif = "'.aujourdhui().'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
$query2 = 'update empr set empr_date_adhesion = "'.aujourdhui().'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
$query2 = 'update empr set empr_date_expiration = "'.aujourdhui($dur).'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
$query2 = 'update empr set empr_categ = '.$_POST["selectGroupe"].' where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
$query2 = 'update empr set empr_codestat = '.$_POST["selectStat"].' where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
if ($from_ldap){
$query2 = "update empr set empr_ldap = '1' where empr_cb = '".$bufferChamp[${$desc_empr[1][0]}]."';";
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
}
}
// Gestion de la localisation des lecteurs; prend la loc par défaut du user si non défini
if ($pmb_lecteurs_localises) {
if (!$empr_location || !$bufferChamp[$empr_location+1]) {
$req_location = 'update empr set empr_location = "'.$deflt2docs_location.'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($req_location) or print $msg["upd_echoue"]."".$req_location."
";
}
}
if(!$empr_login) {
$query = 'select empr_nom, empr_prenom from empr where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'"';
$result = pmb_mysql_query($query);
$row = pmb_mysql_fetch_object($result);
$calculated_login = emprunteur::do_login($row->empr_nom, $row->empr_prenom);
$req_login = 'update empr set empr_login = "'.$calculated_login.'" where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'";';
$res = pmb_mysql_query($req_login) or print $msg["upd_echoue"]."".$req_login."
";
}
//Encryptage du mot de passe
$query2 = 'select empr_login, empr_password from empr where empr_cb = "'.$bufferChamp[${$desc_empr[1][0]}].'" and empr_password_is_encrypted = 0';
$res = pmb_mysql_query($query2) or print $msg["upd_echoue"]."".$query2."
";
if(pmb_mysql_num_rows($res)) {
$row = pmb_mysql_fetch_object($res);
emprunteur::update_digest($row->empr_login,$row->empr_password);
emprunteur::hash_password($row->empr_login,$row->empr_password);
}
//at this point the empr is OK (inserted or updated)
//on passe aux champs perso
//recup id_empr
//printr($bufferChamp,'','TXTRECORD');
$querry ="SELECT id_empr FROM empr WHERE empr_cb = '".$bufferChamp[${$desc_empr[1][0]}]."';";
$res = pmb_mysql_query($querry);
if (pmb_mysql_num_rows($res)==1) { //deve esistere un solo lettore!
$row=pmb_mysql_fetch_array($res,PMB_MYSQL_ASSOC);
$empr_id=$row['id_empr'];
reset($perso);
foreach ($perso as $dummykey=>$cp) {
$querry ="SELECT * FROM empr_custom_values WHERE empr_custom_champ = ".$cp['idchamp']." AND empr_custom_origine=".$empr_id.";";
$res = pmb_mysql_query($querry);
if (pmb_mysql_num_rows($res)) { // le champ existe: update
$field="empr_custom_".$cp['datatype'];
$value="'".$bufferChamp[$_POST[$cp['name']]]."'" ;
$querry = "UPDATE empr_custom_values SET $field = $value WHERE empr_custom_champ = ".$cp['idchamp']." AND empr_custom_origine=".$empr_id.";";
//print "$querry
";
$res = pmb_mysql_query($querry) or print $msg["upd_echoue"]."".$querry."
";
} else { //le champ n'existe pas: insert
$fields="empr_custom_champ,empr_custom_origine,empr_custom_".$cp['datatype'];
$values=$cp['idchamp'].",".$empr_id.",'".$bufferChamp[$_POST[$cp['name']]]."'" ;
$querry = "INSERT INTO empr_custom_values ($fields) VALUES ($values);";
//print "$querry
";
$res = pmb_mysql_query($querry) or print $msg["ins_echoue"]."".$querry."
";
}
}
} else
$msg["upd_echoue"]."".$querry."
";
}
fclose($ficher);
print $msg["personnes_upd"].count($bufferLine)."";
print "![](".get_url_icon()
";
} else
die($msg["choix_fi"]);
}
break;
case 'ConfirmationDel':
print "
";
break;
case 'delall':
foreach ($_POST as $cle => $val) {
$cmpt = 0;
//print $cle.", ". $val;
if (substr($cle, 0, 7) == "datedel") {
$querry = "select id_empr,empr_cb,empr_nom,empr_prenom From empr where empr_date_expiration = '$val';";
$res = pmb_mysql_query($querry) or die($msg["sqlselect_errdel1"]."
".$msg["sqlselect_errdel2"].$querry);
while($row = pmb_mysql_fetch_row($res)) {
$querry1 = "select * From pret where pret_idempr = ".$row[0].";";
$result3 = pmb_mysql_query($querry1);
$row2 = pmb_mysql_fetch_row($result3);
//print $row2[0]."test";
if ($row2[0] == "") {
emprunteur::del_empr($row[0]);
} else {
$cmpt++;
//print "compteur = ".$cmpt."
";
if($cmpt == 1) {
$desc_empr = desc_table($dbh, "empr");
print $val."
";
print ''.$msg["personnes_nodel"]."";
print '
';
print "";
print " ";
foreach($desc_empr as $dummykey=>$empr)
print " | ".$empr[0]." | ";
print "
";
}
$nbr1 = pmb_mysql_num_fields($res);
print " ";
for ($i = 0; $i < $nbr1; $i++)
print " | $row[$i] | ";
print "
";
}
}
// a cause des prets qui peuvent etre en cours (et qui ne sont pas deletes)
// pmb_mysql_num_rows($res) - $cmpt($cmpt: sont ceux qui n'ont pas ete delete)
print "
";
print $msg["personnes_delete"].(pmb_mysql_num_rows($res) - $cmpt)."";
}
}
print "";
break;
default:
if(!isset($from_ldap)) $from_ldap = 0;
show_import_choix_fichier($dbh,$from_ldap);
break;
}