source: admin/WebConsole/gestores/gestor_grupos.php @ dc00c0f

918-git-images-111dconfigfileconfigure-oglivegit-imageslgromero-new-oglivemainmaint-cronmount-efivarfsmultivmmultivm-ogboot-installerogClonningEngineogboot-installer-jenkinsoglive-ipv6test-python-scriptsticket-301ticket-50ticket-50-oldticket-577ticket-585ticket-611ticket-612ticket-693ticket-700ubu24tplunification2use-local-agent-oglivevarios-instalacionwebconsole3
Last change on this file since dc00c0f was a6b881e, checked in by alonso <alonso@…>, 15 years ago

primeros archivos de administración

git-svn-id: https://opengnsys.es/svn/trunk@520 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 10.3 KB
Line 
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 2003-2004
6// Fecha Última modificación: Marzo-2005
7// Nombre del fichero: gestor_grupos.php
8// Descripción :
9//              Gestiona el mantenimiento de la tabla de grupos
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../clases/AdoPhp.php");
13include_once("../clases/XmlPhp.php");
14include_once("../clases/ArbolVistaXML.php");
15include_once("../includes/CreaComando.php");
16include_once("../includes/constantes.php");
17include_once("./relaciones/aulas_eliminacion.php");
18include_once("./relaciones/ordenadores_eliminacion.php");
19include_once("./relaciones/gruposordenadores_eliminacion.php");
20include_once("./relaciones/procedimientos_eliminacion.php");
21include_once("./relaciones/tareas_eliminacion.php");
22include_once("./relaciones/trabajos_eliminacion.php");
23include_once("./relaciones/imagenes_eliminacion.php");
24include_once("./relaciones/hardwares_eliminacion.php");
25include_once("./relaciones/perfileshard_eliminacion.php");
26include_once("./relaciones/softwares_eliminacion.php");
27include_once("./relaciones/perfilessoft_eliminacion.php");
28include_once("./relaciones/incrementales_eliminacion.php");
29include_once("./relaciones/servidoresrembo_eliminacion.php");
30include_once("./relaciones/servidoresdhcp_eliminacion.php");
31include_once("./relaciones/menus_eliminacion.php");
32include_once("./relaciones/reservas_eliminacion.php");
33include_once("./relaciones/entidades_eliminacion.php");
34include_once("./relaciones/centros_eliminacion.php");
35include_once("../includes/opciones.php");
36//________________________________________________________________________________________________________
37$opcion=0; // Inicializa parametros
38
39$nombregrupo="";
40$grupoid=0;
41$idgrupo=0;
42$tipo=0;
43$literaltipo="";
44$iduniversidad=0;
45$comentarios="";
46
47if (isset($_GET["opcion"])) $opcion=$_GET["opcion"]; // Recoge parametros
48if (isset($_GET["nombregrupo"])) $nombregrupo=$_GET["nombregrupo"];
49if (isset($_GET["grupoid"])) $grupoid=$_GET["grupoid"];
50if (isset($_GET["idgrupo"])) $idgrupo=$_GET["idgrupo"];
51if (isset($_GET["tipo"])) $tipo=$_GET["tipo"];
52if (isset($_GET["literaltipo"])) $literaltipo=$_GET["literaltipo"];
53if (isset($_GET["iduniversidad"])) $iduniversidad=$_GET["iduniversidad"];
54if (isset($_GET["comentarios"])) $comentarios=$_GET["comentarios"];
55
56$tablanodo=""; // Arbol para nodos insertados
57
58$cmd=CreaComando($cadenaconexion); // Crea objeto comando
59$resul=false;
60if ($cmd){
61        $resul=Gestiona();
62        $cmd->Conexion->Cerrar();
63}
64// *************************************************************************************************************************************************
65?>
66<HTML>
67<HEAD>
68        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
69<BODY>
70<?
71        $literal="";
72        switch($opcion){
73                case $op_alta :
74                        $literal="resultado_insertar_grupos";
75                        break;
76                case $op_modificacion:
77                        $literal="resultado_modificar_grupos";
78                        break;
79                case $op_eliminacion :
80                        $literal="resultado_eliminar_grupos";
81                        break;
82                default:
83                        break;
84        }
85echo '<p><span id="arbol_nodo">'.$tablanodo.'</span></p>';
86if ($resul){
87        echo '<SCRIPT language="javascript">'.chr(13);
88        echo 'var o=document.getElementById("arbol_nodo");'.chr(13);
89        if ($opcion==$op_alta )
90                echo 'window.parent.'.$literal."(1,'".$cmd->DescripUltimoError()." ',".$idgrupo.",o.innerHTML);";
91        else
92                echo 'window.parent.'.$literal."(1,'".$cmd->DescripUltimoError()." ','".$nombregrupo."');";
93        echo '</SCRIPT>';
94}
95else{
96        echo '<SCRIPT language="javascript">';
97        echo "  window.parent.".$literal."(0,'".$cmd->DescripUltimoError()."',".$idgrupo.")";
98        echo '</SCRIPT>';
99}
100?>
101</BODY>
102</HTML>
103<?
104/**************************************************************************************************************************************************
105        Inserta, modifica o elimina datos en la tabla grupos
106________________________________________________________________________________________________________*/
107function Gestiona(){
108        global  $cmd;
109        global  $opcion;
110        global  $idcentro;
111        global  $nombregrupo;
112        global  $grupoid;
113        global  $idgrupo;
114        global  $tipo;
115        global  $literaltipo;
116        global  $iduniversidad;
117        global  $comentarios;
118        global  $op_alta;
119        global  $op_modificacion;
120        global  $op_eliminacion;
121        global  $tablanodo;
122
123        if($iduniversidad) $idcentro=0; // Administración
124
125        $cmd->CreaParametro("@nombregrupo",$nombregrupo,0);
126        $cmd->CreaParametro("@grupoid",$grupoid,1);
127        $cmd->CreaParametro("@idcentro",$idcentro,1);
128        $cmd->CreaParametro("@idgrupo",$idgrupo,1);
129        $cmd->CreaParametro("@tipo",$tipo,1);
130        $cmd->CreaParametro("@iduniversidad",$iduniversidad,1);
131        $cmd->CreaParametro("@comentarios",$comentarios,0);
132
133        switch($opcion){
134                case $op_alta :
135                        $cmd->texto="INSERT INTO grupos(nombregrupo,idcentro,grupoid,tipo,iduniversidad,comentarios) VALUES (@nombregrupo,@idcentro,@grupoid,@tipo,@iduniversidad,@comentarios)";
136                        $resul=$cmd->Ejecutar();
137                        if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta
138                                $idgrupo=$cmd->Autonumerico();
139                                $arbolXML=SubarbolXML_grupos($idgrupo,$nombregrupo,$literaltipo);
140                                $baseurlimg="../images/signos";
141                                $clasedefault="texto_arbol"; // Hoja de estilo (Clase por defecto) del árbol
142                                $arbol=new ArbolVistaXML($arbolXML,0,$baseurlimg,$clasedefault);
143                                $tablanodo=$arbol->CreaNodo(0);
144                        }
145                        break;
146                case $op_modificacion:
147                        $cmd->texto="UPDATE grupos SET nombregrupo=@nombregrupo,comentarios=@comentarios WHERE idgrupo=@idgrupo";
148                        $resul=$cmd->Ejecutar();
149                        break;
150                case $op_eliminacion :
151                        $resul=EliminaGrupos($cmd,$idgrupo,"idgrupo",$literaltipo);// Eliminación en cascada
152                        break;
153                default:
154                        break;
155        }
156        return($resul);
157}
158/*________________________________________________________________________________________________________
159        Crea un arbol XML para el nuevo nodo insertado
160________________________________________________________________________________________________________*/
161function SubarbolXML_grupos($idgrupo,$nombregrupo,$literaltipo){
162
163        $cadenaXML='<GRUPOS';
164        // Atributos
165        $cadenaXML.=' clickcontextualnodo="menu_contextual(this,' ."'flo_".$literaltipo."'" .')"';
166        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
167        $cadenaXML.=' infonodo="'.$nombregrupo.'"';
168        $cadenaXML.=' nodoid='.$literaltipo.'-'.$idgrupo;
169        $cadenaXML.='>';
170        $cadenaXML.='</GRUPOS>';
171        return($cadenaXML);
172}
173/*________________________________________________________________________________________________________
174        Elimina en cascada grupos
175                Parametros:
176                - cmd: Un comando ya operativo (con conexión abierta) 
177                - idgrupo: El identificador del grupo
178                - literaltipo: El literal del grupo
179                - literaltipo: El literal del grupo
180                - swid: Indica 0= El identificador es tipo alfanumérico 1= EI identificador es tipo numérico ( valor por defecto)
181________________________________________________________________________________________________________*/
182function        EliminaGrupos($cmd,$identificador,$nombreid,$literaltipo,$swid=1){
183        if (empty($identificador)) return(true);
184
185        global $LITAMBITO_GRUPOSAULAS ;
186        global $LITAMBITO_GRUPOSIMAGENES ;
187        global $LITAMBITO_GRUPOSPROCEDIMIENTOS ;
188        global $LITAMBITO_GRUPOSTAREAS ;
189        global $LITAMBITO_GRUPOSTRABAJOS ;
190        global $LITAMBITO_GRUPOSCOMPONENTESHARD  ;
191        global $LITAMBITO_GRUPOSCOMPONENTESSOFT ;
192        global $LITAMBITO_GRUPOSPERFILESHARD ;
193        global $LITAMBITO_GRUPOSPERFILESSOFT ;
194        global $LITAMBITO_GRUPOSSOFTINCREMENTAL ;
195        global $LITAMBITO_GRUPOSMENUS ;
196        global $LITAMBITO_GRUPOSSERVIDORESREMBO ;
197        global $LITAMBITO_GRUPOSSERVIDORESDHCP ;
198        global $LITAMBITO_GRUPOSRESERVAS ;
199        global $LITAMBITO_GRUPOSENTIDADES ;
200
201        if($swid==0)
202                $cmd->texto="SELECT  idgrupo  FROM grupos WHERE ".$nombreid."='".$identificador."'";
203        else
204                $cmd->texto='SELECT  idgrupo  FROM grupos WHERE '.$nombreid.'='.$identificador;
205        $rs=new Recordset;
206        $rs->Comando=&$cmd;
207        if (!$rs->Abrir()) return(false); // Error al abrir recordset
208        if ($rs->numeroderegistros==0) return(true);
209        $rs->Primero();
210        while (!$rs->EOF){
211                $resul=EliminaGrupos($cmd,$rs->campos["idgrupo"],"grupoid",$literaltipo);
212                if ($resul){
213                        switch($literaltipo){
214                                case $LITAMBITO_GRUPOSAULAS :
215                                        $resul=EliminaAulas($cmd,$rs->campos["idgrupo"],"grupoid");
216                                        break;
217                                case $LITAMBITO_GRUPOSPROCEDIMIENTOS :
218                                        $resul=EliminaProcedimientos($cmd,$rs->campos["idgrupo"],"grupoid");
219                                        break;
220                                case $LITAMBITO_GRUPOSTAREAS :
221                                        $resul=EliminaTareas($cmd,$rs->campos["idgrupo"],"grupoid");
222                                        break;
223                                case $LITAMBITO_GRUPOSTRABAJOS :
224                                        $resul=EliminaTrabajos($cmd,$rs->campos["idgrupo"],"grupoid");
225                                        break;
226                                case $LITAMBITO_GRUPOSIMAGENES :
227                                        $resul=EliminaImagenes($cmd,$rs->campos["idgrupo"],"grupoid");
228                                        break;
229                                case $LITAMBITO_GRUPOSCOMPONENTESHARD  :
230                                        $resul=EliminaHardwares($cmd,$rs->campos["idgrupo"],"grupoid");
231                                        break;
232                                case $LITAMBITO_GRUPOSCOMPONENTESSOFT :
233                                        $resul=EliminaSoftwares($cmd,$rs->campos["idgrupo"],"grupoid");
234                                        break;
235                                case $LITAMBITO_GRUPOSPERFILESHARD :
236                                        $resul=EliminaPerfileshard($cmd,$rs->campos["idgrupo"],"grupoid");
237                                        break;
238                                case $LITAMBITO_GRUPOSPERFILESSOFT :
239                                        $resul=EliminaPerfilessoft($cmd,$rs->campos["idgrupo"],"grupoid");
240                                        break;
241                                case $LITAMBITO_GRUPOSSOFTINCREMENTAL :
242                                        $resul=EliminaSoftincremental($cmd,$rs->campos["idgrupo"],"grupoid");
243                                        break;
244                                case $LITAMBITO_GRUPOSSERVIDORESREMBO :
245                                        $resul=EliminaServidoresrembo($cmd,$rs->campos["idgrupo"],"grupoid");
246                                        break;
247                                case $LITAMBITO_GRUPOSSERVIDORESDHCP :
248                                        $resul=EliminaServidoresdhcp($cmd,$rs->campos["idgrupo"],"grupoid");
249                                        break;
250                                case $LITAMBITO_GRUPOSMENUS :
251                                        $resul=EliminaMenus($cmd,$rs->campos["idgrupo"],"grupoid");
252                                        break;
253                                case $LITAMBITO_GRUPOSRESERVAS :
254                                        $resul=EliminaReservas($cmd,$rs->campos["idgrupo"],"grupoid");
255                                        break;
256                                case $LITAMBITO_GRUPOSENTIDADES :
257                                        $resul=EliminaEntidad($cmd,$rs->campos["idgrupo"],"grupoid");
258                                        break;
259                                default:
260                                                $resul=false;
261                        }
262                }
263                if (!$resul){
264                        $rs->Cerrar();
265                        return(false);
266                }
267                $rs->Siguiente();
268        }
269        if($swid==0)
270                $cmd->texto="DELETE FROM grupos WHERE ".$nombreid."='".$identificador."'";
271        else
272                $cmd->texto='DELETE FROM grupos  WHERE '.$nombreid.'='.$identificador;
273        $resul=$cmd->Ejecutar();
274        return($resul);
275}
276?>
Note: See TracBrowser for help on using the repository browser.