'; echo ' '; echo ''; echo ' '; echo ''; } /********************************************************************************************************* Inserta, modifica o elimina datos en la tabla imagenes /*********************************************************************************************************/ function Gestiona(){ global $cmd; global $opcion; global $idcentro; global $idimagen; global $nombreca; global $ruta; global $descripcion; global $grupoid; global $comentarios; global $inremotepc; global $numpar; global $codpar; global $idrepositorio; global $imagenid; global $idperfilsoft; global $tipoimg; global $op_alta; global $op_modificacion; global $op_eliminacion; global $op_movida; global $tablanodo; $cmd->CreaParametro("@idcentro",$idcentro,1); $cmd->CreaParametro("@idimagen",$idimagen,1); $cmd->CreaParametro("@nombreca",$nombreca,0); $cmd->CreaParametro("@ruta",$ruta,0); $cmd->CreaParametro("@descripcion",$descripcion,0); $cmd->CreaParametro("@grupoid",$grupoid,1); $cmd->CreaParametro("@idperfilsoft",$idperfilsoft,1); $cmd->CreaParametro("@comentarios",$comentarios,0); $cmd->CreaParametro("@inremotepc",$inremotepc,1); $cmd->CreaParametro("@numpar",$numpar,1); $cmd->CreaParametro("@codpar",$codpar,1); $cmd->CreaParametro("@idrepositorio",$idrepositorio,1); $cmd->CreaParametro("@imagenid",$imagenid,1); $cmd->CreaParametro("@tipo",$tipoimg,1); switch($opcion){ case $op_alta : $cmd->texto="INSERT INTO imagenes (nombreca, ruta, descripcion, idperfilsoft, comentarios, inremotepc, numpar, codpar, idrepositorio, imagenid, idcentro, grupoid, tipo) VALUES (@nombreca, @ruta, @descripcion, @idperfilsoft, @comentarios, @inremotepc, @numpar, @codpar, @idrepositorio, @imagenid, @idcentro, @grupoid, @tipo)"; $resul=$cmd->Ejecutar(); if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta $idimagen=$cmd->Autonumerico(); $arbolXML=SubarbolXML_imagenes($idimagen,$descripcion); $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 imagenes SET nombreca=@nombreca, ruta=@ruta, descripcion=@descripcion, idperfilsoft=@idperfilsoft, comentarios=@comentarios, inremotepc=@inremotepc, numpar=@numpar,codpar=@codpar, idrepositorio=@idrepositorio, imagenid=@imagenid WHERE idimagen=@idimagen"; $resul=$cmd->Ejecutar(); break; case $op_eliminacion : $resul=EliminaImagenes($cmd,$idimagen,"idimagen");// Eliminación en cascada break; case $op_movida : $cmd->texto="UPDATE imagenes SET grupoid=@grupoid WHERE idimagen=@idimagen"; $resul=$cmd->Ejecutar(); break; default: break; } return($resul); } /*________________________________________________________________________________________________________ Crea un arbol XML para el nuevo nodo insertado ________________________________________________________________________________________________________*/ function SubarbolXML_imagenes($idimagen,$descripcion) { global $litamb; $cadenaXML='