";
$httpString = $httpString . "\n";
$httpString = $httpString . getListe($liste_id, $table_id);
$httpString = $httpString . "\n";
$httpString = gzcompress($httpString,9);
$httpString = "_c_" . base64_encode($httpString);
echo "$httpString";
// recherche des variables de session
function getListe($liste_id, $table_id) {
$httpString = "";
$database = new Database("iCTI");
$select_cmd = "";
$result = $database->exec("SELECT t_listes.oid as oid, t_listes.code as code, t_listes.texte as texte, t_listes.is_cti as is_cti, t_listes.table_id as table_id, t_listes_tables.texte, t_listes_tables.select_cmd, t_listes.show_omit as show_omit FROM pmsi.t_listes, pmsi.t_listes_tables WHERE t_listes.oid = $liste_id AND t_listes.table_id = t_listes_tables.oid");
if ($result != false) {
$record = $database->nextRecordInto();
if ($record != FALSE) {
$oid = $record[0];
$code = trim($record[1]);
$code = str_replace("<", "<", $code);
$code = str_replace(">", ">", $code);
$code = str_replace('"', """, $code);
$texte = trim($record[2]);
$texte = str_replace("<", "<", $texte);
$texte = str_replace(">", ">", $texte);
$texte = str_replace('"', """, $texte);
$texte = str_replace('’', "'", $texte);
$is_cti = trim($record[3]);
$table_id = $record[4];
$table_texte = trim($record[5]);
$select_cmd = trim($record[6]);
$show_omit = trim($record[7]);
if ($show_omit == "") {
$show_omit = "1";
}
$httpString = $httpString . "\r\n";
$XMLrow = "";
$liste_codes = array();
$result = $database->exec($select_cmd);
if ($result != false) {
$columnCount = $database->columnCount();
for ($i = 0; $i < $columnCount; $i++) {
$fieldName = pg_field_name($result, $i);
$XMLrow = $XMLrow . "";
}
// lignes
$ok = TRUE;
while ($ok == TRUE) {
$ok = FALSE;
$record = $database->nextRecordInto();
if ($record != FALSE) {
$ok = TRUE;
$r++;
$row = "", ">", $value);
$value = str_replace('"', """, $value);
$value = str_replace('’', "'", $value);
$row = "$row $fieldName=\"$value\"";
}
$row = "$row />";
$XMLrow = $XMLrow . "\n$row";
if (strlen($XMLrow) > 64000) {
$httpString = $httpString . $XMLrow;
$XMLrow = "";
}
}
}
$httpString = $httpString . $XMLrow;
$XMLrow = "";
}
// OIDs déjà choisis
$result = $database->exec("SELECT to_id FROM pmsi.t_listes_contenu WHERE liste_id = $liste_id");
$XMLrow = "";
if ($result != false) {
// lignes
$ok = TRUE;
while ($ok == TRUE) {
$ok = FALSE;
$record = $database->nextRecordInto();
if ($record != FALSE) {
$ok = TRUE;
$oid = trim($record[0]);
$row = "";
$XMLrow = $XMLrow . "\n$row";
if (strlen($XMLrow) > 64000) {
$httpString = $httpString . $XMLrow;
$XMLrow = "";
}
}
}
$httpString = $httpString . $XMLrow;
}
$httpString = $httpString . "\r\n";
}
}
return $httpString;
}
?>