source: admin/WebConsole/gestores/relaciones/entidades_eliminacion.php @ 5d05b06

Last change on this file since 5d05b06 was b6ec162, checked in by Ramón M. Gómez <ramongomez@…>, 6 years ago

#834: Remove all redundant PHP closing tags.

  • Property mode set to 100644
File size: 1.8 KB
RevLine 
[043e67d]1<?php
[3ec149c]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: entidades_eliminacion.php
8// Descripción :
9//      Elimina en cascada registros de la tabla entidades
10//              Parametros:
11//              -       cmd:Una comando ya operativo (con conexión abierta) 
12//              -       identificador: El identificador por el que se eliminará el entidad
13//              -       nombreid: Nombre del campo identificador del registro
14//              -       swid: Indica 0= El identificador es tipo alfanumérico   1= EI identificador es tipo numérico ( valor por defecto) *************************************************************************************************************************************************
15function        EliminaEntidad($cmd,$identificador,$nombreid,$swid=1){
16        if (empty($identificador)) return(true);
17        if($swid==0)
18                $cmd->texto="SELECT  identidad  FROM  entidades WHERE ".$nombreid."='".$identificador."'";
19        else
20                $cmd->texto='SELECT  identidad  FROM entidades WHERE '.$nombreid.'='.$identificador;
21        $rs=new Recordset;
22        $rs->Comando=&$cmd;
23        if (!$rs->Abrir()) return(false); // Error al abrir recordset
24        if ($rs->numeroderegistros==0) return(true);
25        $rs->Primero();
26        while (!$rs->EOF){     
27                $resul=EliminaCentros($cmd,$rs->campos["identidad"],"identidad");
28                if (!$resul){
29                        $rs->Cerrar();
30                        return(false);
31                }
32                $rs->Siguiente();
33        }
34        if($swid==0)
35                $cmd->texto="DELETE  FROM entidades WHERE ".$nombreid."='".$identificador."'";
36        else
37                $cmd->texto='DELETE  FROM entidades  WHERE '.$nombreid.'='.$identificador;
38        $resul=$cmd->Ejecutar();
39        return($resul);
40}
[b6ec162]41
Note: See TracBrowser for help on using the repository browser.