'; echo ' '; echo ''; echo ' '; echo ''; } /************************************************************************************************************************************************** Inserta, modifica o elimina datos en la tabla softwares ________________________________________________________________________________________________________*/ function Gestiona(){ global $cmd; global $opcion; global $idcentro; global $idsoftware; global $descripcion; global $idtiposoftware; global $idtiposo; global $grupoid; global $urlimgth; global $op_alta; global $op_modificacion; global $op_eliminacion; global $op_movida; global $tablanodo; $cmd->CreaParametro("@idcentro",$idcentro,1); $cmd->CreaParametro("@idsoftware",$idsoftware,1); $cmd->CreaParametro("@descripcion",$descripcion,0); $cmd->CreaParametro("@idtiposoftware",$idtiposoftware,1); $cmd->CreaParametro("@idtiposo",$idtiposo,1); $cmd->CreaParametro("@grupoid",$grupoid,1); switch($opcion){ case $op_alta : $cmd->texto="INSERT INTO softwares (descripcion,idtiposoftware,idtiposo,idcentro,grupoid) VALUES (@descripcion,@idtiposoftware,@idtiposo,@idcentro,@grupoid)"; $resul=$cmd->Ejecutar(); if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta $idsoftware=$cmd->Autonumerico(); $arbolXML=SubarbolXML_Componentesoftwares($cmd,$idsoftware,$descripcion,$idtiposoftware); $baseurlimg="../images/signos"; // Url de las imagenes de signo $clasedefault="texto_arbol"; // Hoja de estilo (Clase por defecto) del árbol $arbol=new ArbolVistaXML($arbolXML,0,$baseurlimg,$clasedefault); $tablanodo=$arbol->CreaArbolVistaXML(); } break; case $op_modificacion: $cmd->texto="UPDATE softwares SET descripcion=@descripcion,idtiposoftware=@idtiposoftware,idtiposo=@idtiposo WHERE idsoftware=@idsoftware"; $resul=$cmd->Ejecutar(); if ($resul) // Toma la imagen del tipo de componente software $urlimgth=TomaDato($cmd,0,'tiposoftwares',$idtiposoftware,'idtiposoftware','urlimg'); break; case $op_eliminacion : $resul=EliminaSoftwares($cmd,$idsoftware,"idsoftware"); break; case $op_movida : $cmd->texto="UPDATE softwares SET grupoid=@grupoid WHERE idsoftware=@idsoftware"; $resul=$cmd->Ejecutar(); break; default: break; } return($resul); } /*________________________________________________________________________________________________________ Crea un arbol XML para el nuevo nodo insertado ________________________________________________________________________________________________________*/ function SubarbolXML_Componentesoftwares($cmd,$idsoftware,$descripcion,$idtiposoftware){ global $LITAMBITO_COMPONENTESSOFT; $urlimg=TomaDato($cmd,0,'tiposoftwares',$idtiposoftware,'idtiposoftware','urlimg'); $cadenaXML='