';
/* Analyse ce qui est demandé */
/* Effacement d'une ligne */
if (isset ($action)) {
if ( $action=="del" ) {
if ( isset ($l) ) {
/* Ligne a enfant*/
$R=ExecSql($cn,"select pcm_val from tmp_pcmn where pcm_val_parent=$l");
if ( pg_NumRows($R) != 0 ) {
echo "";
} else {
/* Vérifier que le poste n'est pas utilisé qq part dans les journaux */
$Res=ExecSql($cn,"select * from jrnx where j_poste=$l");
if ( pg_NumRows($R) != 0 ) {
echo "";
}
else {
$Del=ExecSql($cn,"delete from tmp_pcmn where pcm_val=$l");
} // if pg_NumRows
} // if pg_NumRows
} // isset ($l)
} //$action == del
} // isset action
/* Ajout d'une ligne */
if ( isset ( $_POST["Add"] ) ) {
if ( isset ( $p_val) && isset ( $p_lib ) ) {
$p_val=trim($p_val);
$p_lib=trim($p_lib);
$p_parent=$_POST["p_parent"];
if ( strlen ($p_val) != 0 && strlen ($p_lib) != 0 ) {
if (strlen ($p_val) == 1 ) {
$p_parent=0;
} else {
if ( strlen(trim($p_parent))==0 &&
(string) $p_parent != (string)(int) $p_parent) {
$p_parent=substr($p_val,0,strlen($p_val)-1);
}
echo_debug("Ajout valeur = $p_val parent = $p_parent");
}
/* Parent existe */
$Ret=ExecSql($cn,"select pcm_val from tmp_pcmn where pcm_val=$p_parent");
if ( pg_NumRows($Ret) == 0 ) {
echo '';
} else {
$Ret=ExecSql($cn,"insert into tmp_pcmn (pcm_val,pcm_lib,pcm_val_parent) values ('$p_val','$p_lib',$p_parent)");
}
} else {
echo ' Valeurs invalides ';
}
}
}
/* Modif d'une ligne */
if ( isset ($_POST["update"] ) ) {
foreach ($HTTP_POST_VARS as $name => $element) {
echo_debug("name $name $element");
}
$p_val=trim($_POST["p_val"]);
$p_lib=trim($_POST["p_name"]);
$p_parent=trim($_POST["p_val_parent"]);
$old_line=trim($_POST["p_old"]);
echo_debug("Update old : $old_line News = $p_val $p_lib");
if ( strlen ($p_val) != 0 && strlen ($p_lib) != 0 && strlen($old_line)!=0 ) {
if (strlen ($p_val) == 1 ) {
$p_parent=0;
} else {
if ( strlen($p_parent)==0 ) {
$p_parent=substr($p_val,0,strlen($p_val)-1);
echo_debug("Modif valeur = $p_val parent = $p_parent");
}
}
/* Parent existe */
$Ret=ExecSql($cn,"select pcm_val from tmp_pcmn where pcm_val=$p_parent");
if ( pg_NumRows($Ret) == 0 || $p_parent==$old_line ) {
echo '';
} else {
$Ret=ExecSql($cn,"update tmp_pcmn set pcm_val=$p_val, pcm_lib='$p_lib',pcm_val_parent=$p_parent where pcm_val=$old_line");
}
} else {
echo '';
}
}
$Ret=ExecSql($cn,"select pcm_val,pcm_lib,pcm_val_parent from tmp_pcmn where substr(pcm_val::text,1,1)='$g_start' order by pcm_val::text");
$MaxRow=pg_NumRows($Ret);
?>