function display($content, $conf)
{
$this->pi_loadLL();
$this->conf = $conf;
$this->pi_setPiVarDefaults();
//debug($conf);
$content = '
<div id="menuOutils">
<p id="agenda"><img src="fileadmin/templates/images/icones/agenda.gif" align="middle"/><a href="../webcalendar/login.php?typo_l=' . $GLOBALS["TSFE"]->fe_user->user["username"] . '&typo_p=' . base64_encode($GLOBALS["TSFE"]->fe_user->user["password"]) . '">Agenda</a></p>
<p id="liens"><img src="fileadmin/templates/images/icones/liens.gif" align="middle"/><a href="?id=2733">Liens</a></p>
<p id="sig"><img src="fileadmin/templates/images/icones/sig.gif" align="middle"/><a href="#">SIG</a></p>
<p id="annuaire"><img src="fileadmin/templates/images/icones/annuaire.gif" align="middle"/><a href="?id=2706">Annuaire</a></p>
</div>
<div id="pratique">';
$uid_util = $GLOBALS["TSFE"]->fe_user->user["uid"];
if ($uid_util) {
//$this->pi_USER_INT_obj=1; // Configuring so caching is not expected. This value means that no cHash params are ever set. We do this, because it's a USER_INT object!
$content .= '<p>';
$content .= $this->DispFav($this->conf['fixedLinksCats'] ? "category IN (" . $this->conf['fixedLinksCats'] . ")" : " 1 ");
$content .= '</p>';
/* $content.='
<tr height="10">
<td align="center" valign="middle" height="10"><img src="./fileadmin/templates/IMAGES/filet_appli.gif" alt="" height="2" width="176" border="0"></td>
</tr>'; */
$tb_links = RecupLib("tx_vm19userlinks_ulinks", "user_id", "link_ids", $uid_util, " AND deleted!=1");
if ($tb_links != "") {
$content .= '</table>';
$content .= str_replace("###TITRE###", $this->pi_getLL("liensu", "Liens ut"), $this->entet_table);
$content .= $this->DispFav("uid IN (" . $tb_links . ")");
$content .= "</td></tr>";
}
//$content.=$GLOBALS["TSFE"]->fe_user->user["username"];
$content .= "</table>";
// $content.=time();
return $content;
}
}
function DispCP($tb_links)
{
$sqlIN = $this->conf['fixedLinksCats'] ? "category NOT IN (" . $this->conf['fixedLinksCats'] . ")" : "1";
$query = "SELECT * from tt_links where {$sqlIN} AND deleted!=1 AND hidden!=1 AND pid=" . $this->pidulinks . " order by category";
$res = mysql(TYPO3_db, $query);
if (mysql_num_rows($res) > 0) {
$ret .= '<FORM action="' . $this->pi_getPageLink($GLOBALS["TSFE"]->id) . '" name="' . $this->prefixId . 'fname" method="POST">
<INPUT type="hidden" name="' . $this->prefixId . '[ValidCP]" value="OK">';
$ret .= '<table border="0">';
$vtb_links = array();
if ($tb_links) {
$vtb_links = explode(",", $tb_links);
}
while ($row = mysql_fetch_array($res)) {
$ncat = RecupLib("tt_links_cat", "uid", "title", $row['category']);
if ($catc != $ncat) {
$catc = $ncat;
$ret .= '<tr><td colspan="2"><b>' . $catc . '</b></td></tr>';
}
$ret .= '<tr><td>';
$ret .= '<input type="checkbox" name="' . $this->prefixId . '[u_links][]" value="' . $row[uid] . '" ' . (in_array($row[uid], $vtb_links) ? "checked" : "") . '>';
$ret .= '</td><td align="center">';
$ret .= '<a href="' . $row['url'] . '" target="_blank" title="' . $row['title'] . " " . $row['note'] . '">';
$ret .= $this->srcimg($row['image'], $row['uid'], $row['title']) . "</a></td>";
$ret .= '<td><a href="' . $row['url'] . '" target="' . (strstr($row['url'], "http://") ? "_blank" : "_self") . '" title="' . $row['note'] . '">' . $row['title'] . '</a></td>';
$ret .= '</tr>';
}
$ret .= '</table>';
$ret .= '<INPUT ' . $this->pi_classParam("submit-button") . ' type="submit" name="' . $this->prefixId . '[submit_button]" value="' . $this->pi_getLL("validprefs", "Valid preferences") . '"></form>';
} else {
//pas de liens actifs
$ret .= "<br/>" . $this->pi_getLL("no_act_links", "Aucun lien spécifique disponible") . "<br/>";
}
return $ret;
}
$title = "Cartographie";
$db = true;
include "setup.php";
include_once PROOT . "/libs/lei_fct.inc";
// fonctions php
require_once "dl3tree.inc";
// fichier partag�contenant l'objet permettant de g��er des arboresences
//debug ("_REQUEST");
//debug ("_SESSION");
checkfontlist(PROOT . "/maps");
//include_once(PROOT."/libs/conf.php"); fait ds le setup
// sur le proto, on n'affiche la carte que si on est logg? avec un profil >=1 et que le code profil
$bool_map_disp = !empty($_SESSION['me']) && $_SESSION['profile'] >= 1 || $anonym_disp_maps;
$smarty->assign('bool_map_disp', $bool_map_disp);
$smarty->assign('bool_lei_stat', RecupLib("conf", "name", "value", "lei_stat"));
$smarty->assign('url_lei_stat', RecupLib("conf", "name", "value", "url_lei_stat"));
if (isset($_REQUEST['x'])) {
$click_x = $_REQUEST['x'];
$click_y = $_REQUEST['y'];
} else {
$click_x = $click_y = false;
}
// enlevé: ne servait que quand on arrivait sur la carto pour la première fois
// maintenant c'est le zoom pardéfaut qui est sélectionné
//if (!isset($_REQUEST['action'])) $_REQUEST['action'] = "travel";
$zoom_factor = 1;
// défaut
if (isset($_REQUEST['purge']) and $_REQUEST['purge'] == 'all') {
$_SESSION['track'] = array();
}
if (isset($_REQUEST['filtre'])) {
$timec = floor($parc_length / 100 / $_SESSION['vitmoy']) / 10;
$tb_infparc .= "<br/><br/><b>• Temps</b> du parcours \"recalculé\" par le SIG, avec une vitesse moyenne de " . $_SESSION['vitmoy'] . " km/h: <b> " . $timec . " h </b>";
$tb_infparc .= '<br><input name="parcours_time_cvalue" type="checkbox" value="' . $timec . '" ' . ($tbValChp['parcours_time'] > 0 ? "" : "checked") . '/> <b>enregistrer ce temps</b> pour ce parcours';
$tb_infparc .= "<br/><small><u>N.B. :</u>la vitesse moyenne d'une discipline est reparametrable, demandez a l'administrateur systeme</small>";
if ($deniv_ok) {
$tb_infparc .= "<br/><br/><b>• Denivele</b> du parcours \"recalculee\" par le SIG (en m) :<b> " . $denivtot . "</b>";
// genere une chcbox, pr�och� si valeur en bdd =0; non coch� sinon
$tb_infparc .= '<br><input name="parcours_deniv_cvalue" type="checkbox" value="' . $denivtot . '" ' . ($tbValChp['parcours_deniv'] > 0 ? "" : "checked") . '/> <b>enregistrer cette valeur</b> de denivele pour ce parcours';
}
$tb_infparc .= "<br/<br/><small>les valeurs recalcul�s par le SIG peuvent diff�er ce ces mesur�s sur le terrain. C'est pourquoi il est possible de les ressaisir manuellement ci-dessous</small>";
$tb_infparc .= '<br/<br/><input type="reset" value="ANNULER LES MODIFICATIONS" class="redbutton"> <br/><input type="submit" onclick="ChgMeth(); document.f.action=\'maj_table.php\'; document.f.submit()" class="redbutton" name="toto" value="!! ENREGISTRER LES MODIFICATIONS D\'ATTRIBUTS DE CE PARCOURS !!"/> ';
$tb_infparc .= "</td><tr></table>";
//
}
// fin si on est en edition
$usercid = RecupLib("users", "login", "user_id", $_SESSION['me']);
$booluscreaconnect = $tbValChp['parcours_uscrea'] == $usercid || $_SESSION['admin'];
// bouton edition affich�
if ($booluscreaconnect && !$_REQUEST['editpc']) {
$tb_infparc .= '<input id="edithid" type="hidden" name="editpc" value="">
<input type="submit" onclick="document.getElementById(\'edithid\').value=\'true\'; document.f.submit()" class="redbutton" name="toto" value="!! MODIFIER LES ATTRIBUTS DE CE PARCOURS !!"/>';
}
$tb_infparc .= '<TABLE class="table">';
$tb_infparc .= '<thead><th>Attribut</th><th>Valeur</th></thead>';
// Cr�tion et Initialisation des propri�� des objets PYAobj
$reqLChp = "SELECT NM_CHAMP from {$TBDname} where NM_TABLE='parcours' AND NM_CHAMP!='{$NmChDT}' AND (TYPEAFF!='HID' OR (TT_PDTMAJ!='' AND TT_PDTMAJ!= NULL)) ORDER BY ORDAFF, LIBELLE";
$rq1 = db_query($reqLChp) or die("req 2 invalide");
//foreach ($ECT as $PYAObj) {
while ($CcChp = db_fetch_row($rq1)) {
// boucles sur les champs
$PYAObj = new PYAobj();
InitPage(true); // initialise en envoyant les balises de début <HTML> etc ...
?>
<span class="titrered20px">
Etat provisoire des administrateurs d'UF</span>
<table><thead>
<th>Nom</th>
<th>UF gérée</th>
<th>ID</th>
<th>Mot de passe</th>
<th>Email</th>
</thead>
<?
$NmChpId=($authType=="ldapsweb" ? "PER_LCIDLDAP" : "PER_LCIDPERS");
$rplc=msq("select * from ENV_POSSEDE,PERSONNE where POS_NUPERS=PER_NUPERS AND POS_COPROFIL='$prof'");
while ($rw=mysql_fetch_array($rplc)) {
echo "<tr>";
echo "<td>".$rw[PER_LLPRENOMPERS]." ".$rw[PER_LLNOMPERS]."</td>\n";
echo "<td>".RecupLib("UNITE_FONCTION","UFO_NUUNITE","UFO_LLUNITE",$rw[POS_NUUNITE])."</td>\n";
echo "<td>".$rw[$NmChpId]."</td>\n";
echo "<td>".($authType=="ldapsweb" ? "géré par le LDAP" : $rw[POS_LMPASSWD])."</td>\n";
echo "<td>".DispCustHT($rw[PER_MAILPERS])."</td></tr>\n";
} // fin boucle
?>
</table>
</body>
</html>
<?php
$debug = true;
$disp = false;
$title = "Export";
$db = true;
include "setup.php";
$parc_name_fn = RecupLib("parcours", "parcours_id", "parcours_name", $_REQUEST["parcours_id"]);
// PWWW est d�ini dans setup.php
$parc_name_fn = $_REQUEST["parcours_id"] . "_" . strtr($parc_name_fn, " éèêàä", "_eeeaa");
// nom du fichier sans caract�es �la con
if ($_REQUEST['fexpf'] == 'shp') {
$parc_name_fn_wpath = PWWW . "/temp/" . $parc_name_fn;
// commande test� sur test :pgsql2shp -g parcours_geom -f toto etoil 'select parcours_geom,parcours_name from parcours where parcours_id=2147'
// commande test� PROD : /usr/lib/postgresql/8.0/bin/pgsql2shp -h localhost -u www-data -P w3c -g parcours_geom -f /var/www/etoilcom/www//temp/2474_cattey_11 etoil 'select parcours_geom,parcours_name from parcours where parcours_id=2474'
if (file_exists(PATH2SHP2PGSQL_TEST)) {
$PATH2SHP2PGSQL = PATH2SHP2PGSQL_TEST;
} elseif (file_exists(PATH2SHP2PGSQL_PROD)) {
$PATH2SHP2PGSQL = PATH2SHP2PGSQL_PROD;
$argoptions = " -h localhost -u www-data -P w3c ";
} else {
die("Export en shp impossible: ne trouve pas l'utilitaire SHP2PGSQL; v�ifier la config avec les constantes PATH2SHP2PGSQL_TEST ou PATH2SHP2PGSQL_PROD dans le fichier setup.php");
}
$cmd = $PATH2SHP2PGSQL . $argoptions . " -g parcours_geom -f {$parc_name_fn_wpath} {$dbname} 'select parcours_geom,parcours_name from parcours where parcours_id=" . $_REQUEST["parcours_id"] . "'";
// echo $cmd."\n";
$out = shell_exec($cmd);
// echo "sortie:\n".$out."\n";
$cmd = "zip -j -q {$parc_name_fn_wpath} {$parc_name_fn_wpath}.*";
// -j: ne stocke pas le chemin, -q=quiet
$out = shell_exec($cmd);
// echo "sortie:\n".$out."\n";
function MajWatsNiou($exttablename, $typcontent, $NmChpTitle = "title", $timestartstop = true)
{
global $WhereComm, $WhereSStime, $tableName, $hiddenP, $deletedP;
// calcul de la page où sont les liens
if ($typcontent == "vm19_hnlinks") {
// pour les liens on met l'url direct
$idpl = RecupLib("tt_content", "list_type", "pid", "vm19_hnlinks_pi1", "", " Ctype='list'");
$tabarbo = RecupArbo($idpl);
$tabarbid = ",";
if (is_array($tabarbo)) {
foreach ($tabarbo as $id => $hed) {
$tabarbid .= substr($id, 2) . ",";
}
}
}
$req = "SELECT * FROM {$exttablename} WHERE 1 {$WhereComm} " . ($timestartstop ? $WhereSStime : "");
$res = msq($req);
while ($rep = mysql_fetch_array($res)) {
if (($rep[$NmChpTitle] != "" || rtrim(strip_tags($rep[bodytext])) != "") && ($exttablename != "tt_content" || $rep[CType] != "list")) {
/* si titre non vide
ou que le corps du tt_content est non vide (pour �iminer les plugins et les lignes de s�aration html)
ou que le tt_content n'est pas un plugin (CType!=list)
la fonction tronqstrww coupe intelligemment la chaine sans couper les mots*/
if ($rep[$NmChpTitle] == "") {
$rep[$NmChpTitle] = tronqstrww(strip_tags($rep[bodytext]), 44);
} else {
$rep[$NmChpTitle] = tronqstrww(strip_tags($rep[$NmChpTitle]), 44);
}
// des fois le titre aussi d�asse
$hiddenP = 0;
// on se sert de variables globales
$deletedP = 0;
// des que dans la fonction reeentrante ci-dessous on tombe sur une page hidden, on mets ces flages
if ($typcontent != "vm19_hnlinks") {
// recup de la page ou est le new
$tabarbo = RecupArbo($rep[pid]);
$tabarbid = ",";
if (is_array($tabarbo)) {
foreach ($tabarbo as $id => $hed) {
$tabarbid .= substr($id, 2) . ",";
}
}
}
// pour les chiffres cl�, c'est carrement plus balaise
if ($typcontent == "vm19keynumbers") {
$u_code = RecupLib("tx_vm19keynumbers_unities", "uid", "unity_code", $rep[unity]);
$f = explode("|", $u_code);
if (strstr($u_code, "|")) {
// existe une s�aration format#unit�
$f = explode("|", $u_code);
$unite = $f[0];
$nbdec = $f[1];
$dec_sep = $f[2] != '' ? $f[2] : ',';
$mil_sep = $f[3] != '' ? $f[3] : '';
} else {
$unite = $u_code;
$nbdec = 1;
$dec_sep = ",";
$mil_sep = "";
}
$k_value = number_format($rep[k_value], $nbdec, $dec_sep, $mil_sep) . " " . $unite;
$title = addslashes($rep[k_value] . " " . $f[0] . " " . $rep[$NmChpTitle]);
} elseif ($typcontent == "vm19_hnlinks") {
$title = addslashes($rep[$NmChpTitle] . "|" . $rep['url_url']);
} else {
$title = addslashes($rep[$NmChpTitle]);
}
if ($title == "" || $title == " " || $title == " [...]" || $title == "[...]") {
$title = "Sans titre";
}
$SET = "sorting=69,pid=" . ($tabarbo[0] > 0 ? $tabarbo[0] : $rep[pid]) . ", tstamp={$rep['tstamp']},crdate={$rep['crdate']}," . ($timestartstop ? "starttime=" . $rep['starttime'] . ",endtime=" . $rep['endtime'] . "," : "") . "hidden={$hiddenP},deleted={$deletedP},title='{$title}',tabidarbo='" . $tabarbid . "',\r\n\t\t\ttabstrarbo='" . addslashes(serialize($tabarbo)) . "', typcontent='{$typcontent}'";
msq("INSERT INTO {$tableName} SET uid={$rep['uid']}, " . $SET);
}
// fin si titre non vide
}
}
parcours_equipt character varying DEFAULT 1,
parcours_interet character varying DEFAULT 1,
parcours_topo text,
parcours_photo character varying,
parcours_balisage integer DEFAULT 1,
parcours_valid integer DEFAULT 0,
parcours_source integer DEFAULT 0,
parcours_dtcrea timestamp without time zone,
parcours_dtmaj timestamp without time zone,
parcours_uscrea character varying,
parcours_usmaj character varying,
parcours_environmt character varying DEFAULT 1,
*/
$parcours_discp = "5";
// cyclotourisme
$vitmoy = RecupLib("disciplines", "disc_id", "disc_vitmoy", $parcours_discp);
$srcg_id = 3;
// CG19, CycloT
$usermajcartoctcg19 = "smilgram";
$i = 0;
echo "vitmoy: {$vitmoy} <br/>";
echo "IMPORT DES TRACES CT CG19<BR/>";
$qu_sel = "select * from zimptmp_ctcg19";
$rep = $db->s_query($qu_sel);
while ($row = pg_fetch_assoc($rep)) {
$i++;
$parcours_name = $_REQUEST[nom_ctcg19] . " " . addslashes($row[nom]) . " (" . $i . ")";
$req_ins = "insert into parcours (\n\t\tparcours_name,\n\t\tparcours_user,\n\t\tparcours_discp,\n\t\tparcours_geom,\n\t\tparcours_desc,\n\t\tparcours_source,\n\t\tparcours_idsource,\n\t\tparcours_dtcrea,\n\t\tparcours_dtmaj,\n\t\tparcours_uscrea,\n\t\tparcours_usmaj,\n\t\tparcours_marqimp)\n\t\tVALUES (\n\t\t'" . $parcours_name . "',\n\t\t'" . $usermajcartoctcg19 . "',\n\t\t" . $parcours_discp . ",\n\t\t'" . $row[the_geom] . "',\n\t\t'identifiant SIG CT 19 :" . $row[gid] . "',\n\t\t" . $srcg_id . ",\n\t\t'" . $row[gid] . "',\n\t\t'" . date('Y-m-d') . "',\n\t\t'" . date('Y-m-d') . "',\n\t\t1,1,\n\t\t'" . $_REQUEST[actionname] . "_" . $_REQUEST[marqimp] . "'\n\t\t)";
$resins = $db->s_query($req_ins) or die("req ins {$req_ins} INVALIDE");
$querup = "update parcours set parcours_length=Length2D(parcours_geom), parcours_start=StartPoint(parcours_geom),parcours_time=ceil(Length2D(parcours_geom)/" . $vitmoy * 1000 . ") where parcours.oid=" . pg_last_oid($resins) . ";";
$resup = $db->s_query($querup) or die("req up {$querup} INVALIDE");
function aff1text($rwt, $indent_n = 1)
{
$strt2d .= '<p style="padding-left:' . $indent_n * $this->text_indent . 'px">';
switch ($rwt["rtt_attach_type"]) {
case "MOD":
$atttxt = "modifié par ";
break;
case "ABR":
$atttxt = "abrogé par ";
break;
case "REPL":
$atttxt = "remplacé par ";
break;
case "ANN":
$atttxt = "annulé par ";
break;
case "TRP":
$atttxt = "transposé par ";
break;
case "APP":
$atttxt = "appliqué par ";
break;
default:
$atttxt = "";
}
if ($rwt["hidden"] != 1 && !$this->affok[$rwt['uid']]) {
// affiche que si pas caché et si texte pas deja affiché
if ($atttxt != "") {
$strt2d .= '<span class="reg_modpar">' . $atttxt . " :<br/></span>";
}
$indent_n++;
$strt2d .= '<span class="reg_natdat">' . '<a name="Anc' . $rwt["uid"] . '" title="uid=' . $rwt["uid"] . '">• </a>' . ($rwt["url"] != "" ? '<a href="' . $rwt["url"] . '" target="_blank">' : "") . utf8_deconne(RecupLib("tx_vm19hnreglementation_nature", "uid", "title", $rwt["nature"])) . ($rwt["dat_approb"] > 0 ? " du " . getDateF($rwt["dat_approb"]) : "") . ($rwt["url"] != "" ? '</a>' : "") . " </span>";
$strt2d .= $rwt["title"] != "" ? '<span class="reg_title">' . utf8_deconne($rwt["title"]) . "</span>" : "";
$strt2d .= $rwt["number"] != "" ? '<br/><span class="reg_number">Numéro ' . $rwt["number"] . "</span>" : "";
$strt2d .= $rwt["publication"] != "" ? '<br/><span class="reg_publication">Publié ' . utf8_deconne($rwt["publication"]) . "</span>" : "";
$strt2d .= $rwt["fich_joint"] != "" ? '<br/><span class="reg_publication">Télécharger le texte : <a href="' . $this->ChemUpLoads . $rwt["fich_joint"] . "\">" . $rwt["fich_joint"] . "</a></span>" : "";
$strt2d .= $rwt["desc_2bf7363fc2"] != "" ? '<br/><span class="reg_desc"><a href="#" onclick="togdispt3t(this)" id=a3t' . $rwt["uid"] . ">\n\t\t\t<img src=\"" . $this->ChemImg . "f_right12.gif\" id=i3t" . $rwt["uid"] . "><em> Description </em></a>\n\t\t\t<div id=t3t" . $rwt["uid"] . " class=\"stDL3Thidd\">" . utf8_deconne($rwt["desc_2bf7363fc2"]) . "</div></span>" : "";
$strt2d .= '<br/><span class="reg_fxhr">------------------------</span></p>';
}
//
$sqlf = "SELECT * FROM tx_vm19hnreglementation_textes WHERE parent_text=" . $rwt["uid"] . " AND deleted=0 AND (starttime=0 OR starttime >= " . time() . ") AND (endtime=0 OR endtime <= " . time() . ") ORDER BY dat_approb,sorting";
$rpat = msq($sqlf);
//$strt2d.="<!-- $sqlf -->\n";
while ($rwpat = mysql_fetch_array($rpat)) {
$strt2d .= $this->aff1text($rwpat, $indent_n);
// on réentre
}
$this->affok[$rwt['uid']] = true;
// indique que texte deja affiché, pour pas qu'il s'affiche 2 fois.
//$strt2d.="<HR/>";
return $strt2d;
}
else {
$ss_InfoUser[errlogin]="Aucun profil spécifique n'existe pour cette personne, ou le mot de passe est incorrect";
} // fin si profil n'existe pas ou passwd faux
} // fin test type d'auth
if ($authOK) {
$ss_InfoUser[COPROFIL]=RecupLib("ENV_POSSEDE","POS_NUPERS", "POS_COPROFIL", $NUPERS);
$ss_InfoUser[LLPROFIL]=RecupLib("ENV_PROFIL","PRO_COPROFIL", "PRO_LLPROFIL", $ss_InfoUser[COPROFIL]);
if ($ss_InfoUser[COPROFIL]=="UF_ADM" || $ss_InfoUser[COPROFIL]=="UF_LS") {// Si le user est administrateur d'UF
$ss_InfoUser[NUUNITEG]=RecupLib("ENV_POSSEDE","POS_NUPERS", "POS_NUUNITE", $NUPERS);
$ss_InfoUser[LLPROFIL].=" ".RecupLib("UNITE_FONCTION","UFO_NUUNITE","UFO_LLUNITE",$ss_InfoUser[NUUNITEG]);
}
else { // sinon récupère l'UF de rattachement de la personne
$ss_InfoUser[NUUNITEG]=RecupLib("INFOS_DRH","DRH_NUPERSO", "DRH_NUUNITE", $NUPERS);
}
$ss_InfoUser[NUPERS]=$NUPERS;
$ss_InfoUser[TITRE]=RecupLib("PERSONNE","PER_NUPERS", "PER_LMTITREPER", $NUPERS);
$ss_InfoUser[PRENOM]=RecupLib("PERSONNE","PER_NUPERS", "PER_LLPRENOMPERS", $NUPERS);
$ss_InfoUser[NOM]=RecupLib("PERSONNE","PER_NUPERS", "PER_LLNOMPERS", $NUPERS);
$ss_InfoUser[errlogin]=""; // pas d'erreur
}
} //fin si id existe
else {
$ss_InfoUser[errlogin]="Cet identifiant ne correspond à aucune personne de la base";
} // fin test Id NUPERS exista dans la base
//echovar("ss_InfoUser");
session_register("ss_InfoUser");
header ("location: index.php?nav=".($ss_InfoUser[errlogin]!="" ? "identification.php&arg_clean=1" : "navigation.php&arg_clean=no"));
?>
function add_parcours($name, $user, $discp, $geom, $level = 0, $time = 0, $marqimp = "toto")
{
if ($marqimp == "toto") {
$marqimp = date('d-m-y');
}
$line = implode(",", $geom);
$user_id = RecupLib("users", "login", "user_id", $user);
if (!$user_id) {
$user_id = 1;
}
$query = "insert into parcours (parcours_name,parcours_user,parcours_uscrea,parcours_discp,parcours_geom,parcours_level,parcours_time,parcours_dtcrea,parcours_marqimp) values ";
$query .= "('" . addslashes($name) . "','" . addslashes($user) . "' , {$user_id} , '" . addslashes($discp) . "',GeomFromEWKT('SRID=-1;LINESTRING({$line})'),'" . addslashes($level) . "',{$time}, '" . date('Y-m-d') . "', '{$marqimp}');";
$resins = $this->s_query($query);
if (!$resins) {
$this->mes[] = "Requete: {$query} \n error: " . pg_last_error();
return false;
} else {
if ($_SESSION['vitmoy'] == 0 || $_SESSION['vitmoy'] == "") {
$_SESSION['vitmoy'] = 80;
}
// 80=~ 5km/h
$last_oid = pg_last_oid($resins);
$query = "update parcours set parcours_length=Length2D(parcours_geom), parcours_start=StartPoint(parcours_geom),parcours_time=ceil(Length2D(parcours_geom)/" . $_SESSION['vitmoy'] * 1000 . ") where parcours.oid=" . pg_last_oid($resins) . ";";
//echo $query;
$resup = $this->s_query($query);
if (!$resup) {
$this->mes[] = "Requete: {$query} \n error: " . pg_last_error();
return false;
} else {
return true;
}
}
}
$reqo = "SELECT * from RUR ORDER BY RUR_url";
$urlC = -1;
$reso = msq($reqo);
while ($row = mysql_fetch_array($reso)) {
if ($urlC == -1) {
$urlC = $row[RUR_url];
}
if ($row[RUR_url] != $urlC) {
// on change...
$resu = msq("select * from URL where URL_id={$urlC}");
$rowu = mysql_fetch_array($resu);
echo "Url: ";
print_r($rowu);
echo "affect: " . implode(",", $tbrub) . "<BR/>";
$db = mysql_select_db($mysql_db_dest);
msq("INSERT INTO tx_vm19hnlinks_urls SET pid=" . $tbrub[0] . ",tstamp=" . time() . ",crdate=" . time() . ",sorting=256,url_url='" . $rowu[URL_url] . "',url_title='" . addslashes($rowu[URL_titre]) . "',url_desc='" . addslashes($rowu[URL_desc]) . "',url_kwords='" . addslashes($rowu[URL_kwords]) . "',url_mailwb='" . $rowu[URL_mail_wb] . "',url_othercateg='" . implode(",", $tbrub) . "'");
$db = mysql_select_db($mysql_db_orig);
$urlC = $row[RUR_url];
unset($tbrub);
}
$tbrub[] = RecupLib("RUBRIQUES", "RUB_id", "RUB_pid", $row[RUR_rub]) or die("rubrique PID de {$row['RUR_rub']} inexistante");
/*
$db = mysql_select_db ($mysql_db_dest);
msq("INSERT INTO pages SET urltype=1,doktype=254,title='".addslashes($row[RUB_titre])."',sorting=256,pid=$pid,tx_impexp_origuid=$id_nvenregt");
$lastuid=mysql_insert_id();
echo (" ## dernier Id: $lastuid <BR/>");
$db = mysql_select_db ($mysql_db_orig);
msq("UPDATE RUBRIQUES SET RUB_pid=$lastuid WHERE RUB_id=".$row[RUB_id]);
*/
}
}
$db = mysql_select_db ($mysql_db_dest);
msq("INSERT INTO pages SET urltype=1,doktype=254,title='".addslashes($row[RUB_titre])."',sorting=256,pid=$pid,tx_impexp_origuid=$id_nvenregt");
$lastuid=mysql_insert_id();
echo (" ## dernier Id: $lastuid <BR/>");
$db = mysql_select_db ($mysql_db_orig);
msq("UPDATE RUBRIQUES SET RUB_pid=$lastuid WHERE RUB_id=".$row[RUB_id]);
*/
}
// fin boucle sur la table RTR ie rubriques...
// maintenant on MAJ les id parents (si diff ed vide) avec les nvlles Id
$db = mysql_select_db($mysql_db_dest);
$rqmajnid = "SELECT uid, parent_text FROM tx_vm19hnreglementation_textes where parent_text != ''";
$rp = msq($rqmajnid);
while ($rwmajnid = mysql_fetch_array($rp)) {
$db = mysql_select_db($mysql_db_orig);
$nidp = RecupLib("TEXTE", "TEXTE_id", "TEXTE_nid", $rwmajnid[parent_text]);
$db = mysql_select_db($mysql_db_dest);
msq("UPDATE tx_vm19hnreglementation_textes SET parent_text={$nidp} WHERE uid={$rwmajnid['uid']}");
}
} elseif ($_GET[action] == 3) {
//msq("DELETE FROM pages where tx_impexp_origuid=".$id_nvenregt[$_GET[action]]);
// title, level, code
$db = mysql_select_db($mysql_db_orig);
$reqo = "SELECT * from NATURE ORDER BY NAT_niveau";
echo $reqo;
$reso = msq($reqo);
while ($row = mysql_fetch_array($reso)) {
$db = mysql_select_db($mysql_db_dest);
msq("INSERT INTO tx_vm19hnreglementation_nature SET pid={$pid_root_nat}, title='{$row['NAT_lbnature']}', level={$row['NAT_niveau']}, code='{$row['NAT_conature']}'");
}
}
for ($l=0;$l<$enum_cnt;$l++) {
echo $enum[$l]." - ";
}
echo "<BR>";
}
} // fin si �um
if ($AFFALL=="vrai" && $_SESSION[db_type]=="mysql") echo "Flags MySql:".mysql_field_flags ($resf, $j)."<BR>";
echo "</TD>";
$LIBELLE=RecupLib($TBDname,"NM_CHAMP","LIBELLE",$NM_CHAMP);
echo "<TD>".($LIBELLE!="" ? $LIBELLE : " ")."</TD>";
$TYPEAFF=RecupLib($TBDname,"NM_CHAMP","TYPEAFF",$NM_CHAMP);
echo "<TD>".$TYPEAFF."</TD>";
$VALEURS=RecupLib($TBDname,"NM_CHAMP","VALEURS",$NM_CHAMP);
echo "<TD>".($VALEURS!="" ? $VALEURS : " ")."</TD>";
$COMMENT=RecupLib($TBDname,"NM_CHAMP",$GLOBALS["NmChpComment"],$NM_CHAMP);
echo "<TD>".($COMMENT!="" ? $COMMENT : " ")."</TD>";
echo "</TR>";
} // fin boucle sur les champs de la table
echo "</TABLE>";
echo '<p><a href="admdesct.php?lc_NM_TABLE='.$NM_TABLE.'">Editer les propriétés de cette table</a></p>';
// en MAJ on enl�e les champs plus existants
if ($CREATION=="MAJ") {
$rqLCE=db_query("SELECT NM_CHAMP from $TBDname where NM_TABLE='$NM_TABLE' AND NM_CHAMP!='$NmChDT'");
while ($rpLCE=db_fetch_row($rqLCE)) {
// si champ n'existe plus l'enl�e
if (!in_array($rpLCE[0],$tbNM_CHAMP)) {
db_query("DELETE FROM $TBDname where NM_TABLE='$NM_TABLE' AND NM_CHAMP='$rpLCE[0]'");
echo "<br>Champ <b>$rpLCE[0] <u>supprimé</u></b> de la table de description! <BR>";
} // fin si a supprimer
<?
require("../infos.php");
InitPage(true,"Calendrier","../"); // initialise
$llicp=RecupLib("ICP","ICP_COICP","ICP_LLICP",$coicp);
?>
<table width="300" border="0">
<tr><td align="center" colspan="2">
<span class="TRM"><?php
echo $llicp;
?>
</span>
<? EchoTitIm1("CALENDRIER"); ?>
<br><br>
<img src="../../images/travaux_icp.jpg" align="center" border="0" width="300" height="205" alt="">
<br><br>
Les reponsables décident du calendrier des <b><?php
echo $llicp;
?>
</b>et leurs montures les attendent patiemment ...
<br><br>
En fait, désolé, mais cette page est actuellement en cours de réalisation ...
<br><br>
</td></tr></table>
</div>
</body>
</html>
$onglets .= '</ul><br>';
$tpl->set_var('onglets', $onglets);
// on affiche les infos sur l'entité
$CIL = InitPOReq($sql, $DBName);
$tmp = '<table>';
// l'user a t'il accès en lecture pour les champs spéciaux
//
$access = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'R');
if ($access == 'false') {
$access = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'W');
}
if ($access == 'false') {
$access = $user->HaveAccess($data['CATEGORIES_CAT_ID'], 'A');
}
// récupère le nom (éventuel) de la table virtuelle décrivant les champs spéciaux
$vtb_name = RecupLib("CATEGORIES", "CAT_ID", "CAT_VTBNAME", $data['CATEGORIES_CAT_ID']);
foreach ($CIL as $pobj) {
$NmChamp = $pobj->NmChamp;
if ($vtb_name && strstr($NmChamp, "PROPRIETE")) {
$CIL[$NmChamp]->NmTable = $vtb_name;
$CIL[$NmChamp]->InitPO();
}
$CIL[$NmChamp]->ValChp = $data[$NmChamp];
$CIL[$NmChamp]->TypEdit = 'C';
// on affiche pas les champs cachés
if ($CIL[$NmChamp]->Typaff_l != '' && $CIL[$NmChamp]->TypeAff != "HID" && ($CIL[$NmChamp]->TypEdit != "C" || $CIL[$NmChamp]->ValChp != "")) {
// on vire les champs qui ne doivent pas etre affiché (droit ou inutiles)
$display = true;
if ($NmChamp == 'ENT_PARENTID' || $NmChamp == 'CATEGORIES_CAT_ID') {
$display = false;
}
a:hover { color: #990033 }
a:active { color: #990033 }
a:link { color: #990033 }
a:visited { color: #990033 }
</style>
</head>
<body bgcolor="#ffffff" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" STYLE="scrollbar-base-color:#330066 ;scrollbar-arrow-color:#FFFFFF;
scrollbar-Track-Color:#6C30AC">
<?
$SpM=10; // espace vertical en pixels entre les menus
// titre de la rubrique ppale courante
$WidthTot=145;
?>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td colspan="2" class="normalred11px" style="padding-left: 5px"><?php
echo $titrubp = RecupLib("ENV_MENUS", "MEN_NUMENUS", "MEN_LLBULLE", $nrp0);
?>
</td></tr>
<? // menus de niveau 2
// $ss_InfoUser[COPROFIL] code profil user
// $nrp0 n° de la rubrique parente
$rsMn2=msq("SELECT * from ENV_MENUS where (MEN_COPROFILS LIKE '%$ss_InfoUser[COPROFIL]%' OR MEN_COPROFILS LIKE '%*%') AND MEN_NBNIVEAU=2 AND MEN_NUPARENT=$nrp0 ORDER BY MEN_ORDREAFF");
while ($rwm2=mysql_fetch_array($rsMn2)) {
?>
<!-- spacer au-dessus de chaque rubrique width="<?php
echo $WidthTot - 30;
?>
"-->
