| 1 | <? | 
|---|
| 2 | // ************************************************************************************************************************************************* | 
|---|
| 3 | // Aplicación WEB: ogAdmWebCon | 
|---|
| 4 | // Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla | 
|---|
| 5 | // Fecha Creación: Año 2009-2010 | 
|---|
| 6 | // Fecha Última modificación: Agosto-2010 | 
|---|
| 7 | // Nombre del fichero: informacion_acciones.php | 
|---|
| 8 | // Descripción :  | 
|---|
| 9 | //              Muestra los comandos que forman parte de un procedimiento y sus valores | 
|---|
| 10 | // ************************************************************************************************************************************************* | 
|---|
| 11 | include_once("../includes/ctrlacc.php"); | 
|---|
| 12 | include_once("../clases/AdoPhp.php"); | 
|---|
| 13 | include_once("../includes/CreaComando.php"); | 
|---|
| 14 | include_once("../clases/XmlPhp.php"); | 
|---|
| 15 | include_once("../includes/constantes.php"); | 
|---|
| 16 | include_once("../includes/comunes.php"); | 
|---|
| 17 | include_once("../includes/TomaDato.php");        | 
|---|
| 18 | include_once("../clases/ArbolVistaXML.php"); | 
|---|
| 19 | include_once("../idiomas/php/".$idioma."/informacion_acciones_".$idioma.".php"); | 
|---|
| 20 | //________________________________________________________________________________________________________ | 
|---|
| 21 |  | 
|---|
| 22 | $tipoaccion=0; | 
|---|
| 23 | $idtipoaccion=0;  | 
|---|
| 24 | $descripcionaccion=""; | 
|---|
| 25 |  | 
|---|
| 26 | if (isset($_GET["tipoaccion"])) $tipoaccion=$_GET["tipoaccion"];  | 
|---|
| 27 | if (isset($_GET["idtipoaccion"])) $idtipoaccion=$_GET["idtipoaccion"]; | 
|---|
| 28 | if (isset($_GET["descripcionaccion"])) $descripcionaccion=$_GET["descripcionaccion"]; | 
|---|
| 29 | //________________________________________________________________________________________________________ | 
|---|
| 30 |  | 
|---|
| 31 | $cmd=CreaComando($cadenaconexion); | 
|---|
| 32 | if (!$cmd) | 
|---|
| 33 |         Header('Location: '.$pagerror.'?herror=2'); // Error de conexióncon servidor B.D. | 
|---|
| 34 |  | 
|---|
| 35 |          | 
|---|
| 36 | $tbParametros=CreaTablaParametros($cmd); // Crea tabla en memmoria para acceder a detalles de comandos  | 
|---|
| 37 | $cadenaXML=""; | 
|---|
| 38 | CreaArbol($cmd,$tipoaccion,$idtipoaccion,$descripcionaccion); // Crea el arbol XML  | 
|---|
| 39 | //________________________________________________________________________________________________________ | 
|---|
| 40 |  | 
|---|
| 41 | // Creación del árbol | 
|---|
| 42 | $baseurlimg="../images/tsignos"; | 
|---|
| 43 | $clasedefault="tabla_listados_sin"; | 
|---|
| 44 | $titulotabla=$TbMsg[5];   | 
|---|
| 45 | $arbol=new ArbolVistaXml($cadenaXML,0,$baseurlimg,$clasedefault,1,20,130,1,$titulotabla); | 
|---|
| 46 | //________________________________________________________________________________________________________ | 
|---|
| 47 | ?> | 
|---|
| 48 | <HTML> | 
|---|
| 49 | <HTML> | 
|---|
| 50 | <TITLE>Administración web de aulas</TITLE> | 
|---|
| 51 | <HEAD> | 
|---|
| 52 |         <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> | 
|---|
| 53 |         <LINK rel="stylesheet" type="text/css" href="../estilos.css"> | 
|---|
| 54 |         <SCRIPT language="javascript" src="../clases/jscripts/ArbolVistaXML.js"></SCRIPT> | 
|---|
| 55 | </HEAD> | 
|---|
| 56 | <BODY> | 
|---|
| 57 |         <? | 
|---|
| 58 |                 switch($tipoaccion){ | 
|---|
| 59 |                         case $AMBITO_PROCEDIMIENTOS: | 
|---|
| 60 |                                 $urlimg="../images/iconos/procedimiento.gif"; | 
|---|
| 61 |                                 $litsub=$TbMsg[2]; | 
|---|
| 62 |                                 $litcab=$TbMsg[1]; | 
|---|
| 63 |                                 break;                                                   | 
|---|
| 64 |                         case $AMBITO_TAREAS: | 
|---|
| 65 |                                 $urlimg="../images/iconos/tareas.gif"; | 
|---|
| 66 |                                 $litsub=$TbMsg[4];       | 
|---|
| 67 |                                 $litcab=$TbMsg[3];                                       | 
|---|
| 68 |                                 break;                                   | 
|---|
| 69 |                 } | 
|---|
| 70 |         ?> | 
|---|
| 71 |         <P align=center class=cabeceras><?echo $litcab?><BR> | 
|---|
| 72 |         <SPAN align=center class=subcabeceras><?echo $litsub?></SPAN> <IMG src="../images/iconos/acciones.gif"><BR> | 
|---|
| 73 |         <IMG src="<? echo $urlimg?>"><SPAN class=presentaciones>  <?echo $descripcionaccion?></SPAN></P> | 
|---|
| 74 |         <?echo urldecode($arbol->CreaArbolVistaXml()); // Crea arbol de configuraciones?> | 
|---|
| 75 | </BODY> | 
|---|
| 76 | </HTML> | 
|---|
| 77 | <? | 
|---|
| 78 | /******************************************************************************************************** | 
|---|
| 79 |         Devuelve una cadena con formato XML de toda la Información de los procedimientos o tareas | 
|---|
| 80 |         softwares | 
|---|
| 81 |         Parametros:  | 
|---|
| 82 |                 - cmd: Un comando ya operativo ( con conexiónabierta)   | 
|---|
| 83 |                 - idperfil: El identificador del perfil software | 
|---|
| 84 | ________________________________________________________________________________________________________*/ | 
|---|
| 85 |  | 
|---|
| 86 | function CreaArbol($cmd,$tipoaccion,$idtipoaccion,$descripcionaccion) | 
|---|
| 87 | { | 
|---|
| 88 |         global $AMBITO_PROCEDIMIENTOS; | 
|---|
| 89 |         global $AMBITO_TAREAS; | 
|---|
| 90 |  | 
|---|
| 91 |         switch($tipoaccion){ | 
|---|
| 92 |                 case $AMBITO_PROCEDIMIENTOS: | 
|---|
| 93 |                         SubarbolXML_procedimientos($cmd,$idtipoaccion); | 
|---|
| 94 |                         break;                                                   | 
|---|
| 95 |                 case $AMBITO_TAREAS: | 
|---|
| 96 |                         SubarbolXML_Tareas($cmd,$idtipoaccion); | 
|---|
| 97 |                         break;                                   | 
|---|
| 98 |         } | 
|---|
| 99 | } | 
|---|
| 100 | //________________________________________________________________________________________________________ | 
|---|
| 101 | function SubarbolXML_Tareas($cmd,$idtarea) | 
|---|
| 102 | { | 
|---|
| 103 |         global $cadenaXML; | 
|---|
| 104 |  | 
|---|
| 105 |         $cmd->texto="SELECT tareas.descripcion as descritarea,procedimientos.descripcion as descriprocedimiento, | 
|---|
| 106 |                                 tareas_acciones.orden,tareas_acciones.idprocedimiento,tareas_acciones.tareaid, | 
|---|
| 107 |                                 tareas.ambito,tareas.idambito,tareas.restrambito | 
|---|
| 108 |                                 FROM tareas | 
|---|
| 109 |                                 INNER JOIN tareas_acciones ON tareas_acciones.idtarea=tareas.idtarea | 
|---|
| 110 |                                 LEFT OUTER JOIN procedimientos ON procedimientos.idprocedimiento=tareas_acciones.idprocedimiento                                  | 
|---|
| 111 |                                 WHERE tareas_acciones.idtarea=".$idtarea."  | 
|---|
| 112 |                                 ORDER BY tareas_acciones.orden";                                         | 
|---|
| 113 |         //echo $cmd->texto;                                                                      | 
|---|
| 114 |         $rs=new Recordset;  | 
|---|
| 115 |         $rs->Comando=&$cmd;  | 
|---|
| 116 |         if (!$rs->Abrir()) return; // Error al abrir recordset | 
|---|
| 117 |         $cadenaXML.='<TAREA'; | 
|---|
| 118 |         // Atributos | 
|---|
| 119 |         $cadenaXML.=' imagenodo="../images/iconos/tareas.gif"'; | 
|---|
| 120 |         $cadenaXML.=' infonodo="'.$rs->campos["descritarea"].'"'; | 
|---|
| 121 |         $cadenaXML.='>';         | 
|---|
| 122 |         while (!$rs->EOF){ | 
|---|
| 123 |                 if($rs->campos["tareaid"]>0) // Tarea recursiva | 
|---|
| 124 |                         SubarbolXML_Tareas($cmd,$rs->campos["tareaid"]); | 
|---|
| 125 |                 else{ | 
|---|
| 126 |                         SubarbolXML_procedimientos($cmd,$rs->campos["idprocedimiento"]); | 
|---|
| 127 |                 } | 
|---|
| 128 |                 $rs->Siguiente(); | 
|---|
| 129 |         } | 
|---|
| 130 |         $cadenaXML.='</TAREA>';  | 
|---|
| 131 | } | 
|---|
| 132 | //________________________________________________________________________________________________________ | 
|---|
| 133 | function SubarbolXML_procedimientos($cmd,$idprocedimiento) | 
|---|
| 134 | { | 
|---|
| 135 |         global $cadenaXML; | 
|---|
| 136 |  | 
|---|
| 137 |         $cmd->texto="SELECT procedimientos.descripcion as descriprocedimiento,procedimientos_acciones.idcomando, | 
|---|
| 138 |                                 comandos.descripcion as descricomando,comandos.visuparametros,procedimientos_acciones.procedimientoid, | 
|---|
| 139 |                                 procedimientos_acciones.parametros | 
|---|
| 140 |                                 FROM procedimientos | 
|---|
| 141 |                                 INNER JOIN procedimientos_acciones ON procedimientos_acciones.idprocedimiento=procedimientos.idprocedimiento | 
|---|
| 142 |                                 LEFT OUTER JOIN comandos ON comandos.idcomando=procedimientos_acciones.idcomando | 
|---|
| 143 |                                 WHERE procedimientos.idprocedimiento=".$idprocedimiento."  | 
|---|
| 144 |                                 ORDER BY orden";         | 
|---|
| 145 |         //echo $cmd->texto;                                                                      | 
|---|
| 146 |         $rs=new Recordset;  | 
|---|
| 147 |         $rs->Comando=&$cmd;  | 
|---|
| 148 |         if (!$rs->Abrir()) return; // Error al abrir recordset | 
|---|
| 149 |         $cadenaXML.='<PROCEDIMIENTO'; | 
|---|
| 150 |         // Atributos | 
|---|
| 151 |         $cadenaXML.=' imagenodo="../images/iconos/procedimiento.gif"'; | 
|---|
| 152 |         $cadenaXML.=' infonodo="'.$rs->campos["descriprocedimiento"].'"'; | 
|---|
| 153 |         $cadenaXML.='>';         | 
|---|
| 154 |         while (!$rs->EOF){ | 
|---|
| 155 |                 if($rs->campos["procedimientoid"]>0) // Procedimiento recursivo | 
|---|
| 156 |                         SubarbolXML_procedimientos($cmd,$rs->campos["procedimientoid"]); | 
|---|
| 157 |                 else{ | 
|---|
| 158 |                         SubarbolXML_comandos($rs->campos["descricomando"],$rs->campos["parametros"],$rs->campos["visuparametros"]); | 
|---|
| 159 |                 } | 
|---|
| 160 |          | 
|---|
| 161 |                 $rs->Siguiente(); | 
|---|
| 162 |         } | 
|---|
| 163 |         $cadenaXML.='</PROCEDIMIENTO>';  | 
|---|
| 164 | } | 
|---|
| 165 | //________________________________________________________________________________________________________ | 
|---|
| 166 | function SubarbolXML_comandos($descricomando,$parametros,$visuparametros) | 
|---|
| 167 | { | 
|---|
| 168 |         global $cadenaXML; | 
|---|
| 169 |  | 
|---|
| 170 |         $cadenaXML.='<COMANDO'; | 
|---|
| 171 |         // Atributos | 
|---|
| 172 |         $cadenaXML.=' imagenodo="../images/iconos/comandos.gif"'; | 
|---|
| 173 |         $cadenaXML.=' infonodo="'.$descricomando.'"'; | 
|---|
| 174 |         $cadenaXML.='>'; | 
|---|
| 175 |         escribeParametros($parametros,$visuparametros); | 
|---|
| 176 |         $cadenaXML.='</COMANDO>';        | 
|---|
| 177 | } | 
|---|
| 178 |         //________________________________________________________________________________________________________ | 
|---|
| 179 |  | 
|---|
| 180 |         function escribeParametros($parametros,$visuparametros) | 
|---|
| 181 |         {        | 
|---|
| 182 |                 global $cmd; | 
|---|
| 183 |                 global $cadenaXML; | 
|---|
| 184 |  | 
|---|
| 185 |                 $tbParametrosValor=array(); | 
|---|
| 186 |                 ParametrosValor($cmd,$parametros,&$tbParametrosValor); // Toma valores de cada parámetro | 
|---|
| 187 |                 $visuprm=split(";",$visuparametros); | 
|---|
| 188 |                 for($i=0;$i<sizeof($visuprm);$i++){ | 
|---|
| 189 |                         $nemo=$visuprm[$i]; | 
|---|
| 190 |                         if(isset($tbParametrosValor[$visuprm[$i]])){ | 
|---|
| 191 |                                 for($j=0;$j<sizeof($tbParametrosValor[$nemo])-1;$j++){ | 
|---|
| 192 |                                         $descripcion=$tbParametrosValor[$nemo]["descripcion"]; | 
|---|
| 193 |                                         $valor=$tbParametrosValor[$nemo][$j]["valor"]; | 
|---|
| 194 |                                         if(sizeof($tbParametrosValor[$nemo])>2) | 
|---|
| 195 |                                                 $valor=$tbParametrosValor[$nemo][$j]["valor"]; | 
|---|
| 196 |                                         else | 
|---|
| 197 |                                                 $valor=$tbParametrosValor[$nemo]["valor"]; | 
|---|
| 198 |                                         escribiendoParametros($descripcion,$valor); | 
|---|
| 199 |                                 }        | 
|---|
| 200 |                         }        | 
|---|
| 201 |                 }        | 
|---|
| 202 |         } | 
|---|
| 203 |         //________________________________________________________________________________________________________ | 
|---|
| 204 |  | 
|---|
| 205 |         function escribiendoParametros($descripcion,$valor) | 
|---|
| 206 |         { | 
|---|
| 207 |                 global $cadenaXML; | 
|---|
| 208 |  | 
|---|
| 209 |                 $cadenaXML.='<PARAMETRO'; | 
|---|
| 210 |                 // Atributos | 
|---|
| 211 |                 $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"'; | 
|---|
| 212 |                 $litprm=$descripcion.': <B>'.$valor.'</B>'; | 
|---|
| 213 |                 $cadenaXML.=' infonodo="'.urlencode($litprm).'"'; | 
|---|
| 214 |                 $cadenaXML.='>'; | 
|---|
| 215 |                 $cadenaXML.='</PARAMETRO>';              | 
|---|
| 216 |         } | 
|---|
| 217 |  | 
|---|
| 218 | ?> | 
|---|