<%@ $Language=JScript /* PARA COLORES PHP */ %><% include("../includes/DB_Conectar.php"); /*toma la seguridad de la página temas.php*/ $admABMLink_manual="temas.php"; include("../includes/inc_auth.php"); include("../includes/funciones.php"); %> <%=$I_administration%>
<% function es_hoja($nodo) { global $arbol; $i=0; $cnt = count($arbol); while (($arbol[$i][1] != $arbol[$nodo][0]) && ($i < $cnt)) $i++; return ($i == $cnt); } function dame_hijos($nodo) { global $arbol; $i=0; $h=0; $cnt = count($arbol); while ($i < $cnt ) { if ($arbol[$i][1] <> $arbol[$i][0]) { if ($arbol[$nodo][0] == $arbol[$i][1]) { $result[$h] = $i; $h++; } } $i++; } return $result; } function preorden($nodo=0,$texto="",$sub=0,$finhoja="",$last=0) { global $arbol; if ($nodo <> 0) { $texto = $arbol[$nodo][2];//$arbol[$nodo][3] catNombre } if (!es_hoja($nodo)) { $hijos = dame_hijos($nodo); $h = 0; $cnt = count($hijos); $testoaux = ""; while($h < $cnt) { if($textoaux!=$texto){ $textoaux=$texto; if($finhoja=="si") { %>
)"><%for($j=0;$j<$sub;$j++){if($j<($sub-$last)){%><%}else {%><%} }%>.gif" class="icon" align="absmiddle" border="0"><%=$arbol[$nodo][2]%>
<% $last=$sub; } else { %>
)"><%for($j=0;$j<$sub;$j++){if($j<($sub-$last)){%><%}else {%><%} }%>.gif" class="icon" align="absmiddle" border="0"><%=$arbol[$nodo][2]%>
<% $last=0; } $sub++; } if(($cnt-$h)==1){$finhoja="si";} else{$finhoja="";} preorden($hijos[$h],$texto,$sub,$finhoja,$last); %>
<% $h++; } } else //aca vemos { if($finhoja=="si"){ //echo $arbol[$nodo][2]; %>
<%for($j=0;$j<$sub;$j++){if($j<($sub-$last)){%><%}else {%><%} }%>.gif" class="icon" align="absmiddle" border="0"><%=$arbol[$nodo][2]%>
<% $last=$sub; }else{ %>
<%for($j=0;$j<$sub;$j++){if($j<($sub-$last)){%><%}else {%><%} }%>.gif" class="icon" align="absmiddle" border="0"><%=$arbol[$nodo][2]%>
<% $last=0; } } } function inic() { global $arbol, $conn, $PHP_AUTH_USER, $PHP_AUTH_PW; $sql="select * from docRubros"; $qry=$conn->Execute ($sql); if($qry->numrows<=0){showError("

El grupo al que
pertenece fue desabilitado
o todavía no fue asignado a
ningún grupo existente.

Consulte con el Administrador.
","","",1);} $t=1; while(!$qry->eof){ $incat.=$qry->field("rubdocID"); if($t<$qry->numrows){$incat.=",";} $t++;$qry->movenext(); } $sql = "select rubdocID,rubdocPadre,rubdocNombre,rubdocActivo from docRubros where rubdocID in($incat) or rubdocAncestro in($incat) order by rubdocNombre"; $qry = $conn->Execute ($sql); $rows = $qry->numrows; $i=1; while (!$qry->eof) { $arbol[$i] = $qry->fields_by_index; if ($arbol[$i][0] == 1) //$arbol[$i][0] es catID,$arbol[$i][1] es Cat_catID esto es para poner el "HOME" en $arbol[0] {//la raiz tiene que ser el uno $arbol[0] = $arbol[$i]; $arbol[$i] = $qry->fields_by_index; %>
<% } $i++; $qry->MoveNext(); } } //aca lo llamo siempre inic(); preorden(0,""); %>