source: admin/WebConsole/gestores/relaciones/hardwares_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
Line 
1<?php
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: hardwares_eliminacion.php
8// Descripción :
9//      Elimina en cascada registros de la tabla hardwares
10//              Parametros:
11//              -       cmd:Una comando ya operativo (con conexión abierta) 
12//              -       identificador: El identificador por el que se eliminará el hardware
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        EliminaHardwares($cmd,$identificador,$nombreid,$swid=1){
16        if (empty($identificador)) return(true);
17        if($swid==0)
18                $cmd->texto="SELECT  idhardware  FROM  hardwares WHERE ".$nombreid."='".$identificador."'";
19        else
20                $cmd->texto='SELECT  idhardware  FROM hardwares 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                $cmd->texto="DELETE  FROM perfileshard_hardwares WHERE idhardware=".$rs->campos["idhardware"];;
28                $resul=$cmd->Ejecutar();
29                if (!$resul){
30                        $rs->Cerrar();
31                        return(false);
32                }
33                $rs->Siguiente();
34        }
35        if($swid==0)
36                $cmd->texto="DELETE  FROM hardwares WHERE ".$nombreid."='".$identificador."'";
37        else
38                $cmd->texto='DELETE  FROM hardwares  WHERE '.$nombreid.'='.$identificador;
39        $resul=$cmd->Ejecutar();
40        return($resul);
41}
42
Note: See TracBrowser for help on using the repository browser.