1 files changed, 43 insertions, 0 deletions
diff --git a/admin/ogAdmSources/ogAdmWebCon/gestores/relaciones/imagenes_eliminacion.php b/admin/ogAdmSources/ogAdmWebCon/gestores/relaciones/imagenes_eliminacion.php
new file mode 100644
index 00000000..857c2ec0
--- /dev/null
+++ b/admin/ogAdmSources/ogAdmWebCon/gestores/relaciones/imagenes_eliminacion.php
@@ -0,0 +1,43 @@
+<?
+// *************************************************************************************************************************************************
+// Aplicación WEB: ogAdmWebCon
+// Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla
+// Fecha Creación: Año 2003-2004
+// Fecha Última modificación: Marzo-2005
+// Nombre del fichero: imagenes_eliminacion.php
+// Descripción :
+//	Elimina en cascada registros de la tabla imagenes 
+//		Parametros: 
+//		-	cmd:Una comando ya operativo (con conexión abierta)  
+//		-	identificador: El identificador por el que se eliminará la imagen
+//		-	nombreid: Nombre del campo identificador del registro 
+//		-	swid: Indica 0= El identificador es tipo alfanumérico	1= EI identificador es tipo numérico ( valor por defecto) *************************************************************************************************************************************************
+function	EliminaImagenes($cmd,$identificador,$nombreid,$swid=1){
+	global $EJECUCION_TAREA;
+	if (empty($identificador)) return(true);
+	if($swid==0)
+		$cmd->texto="SELECT  idimagen  FROM  imagenes WHERE ".$nombreid."='".$identificador."'";
+	else
+		$cmd->texto='SELECT  idimagen  FROM imagenes WHERE '.$nombreid.'='.$identificador;
+	$rs=new Recordset; 
+	$rs->Comando=&$cmd; 
+	if (!$rs->Abrir()) return(false); // Error al abrir recordset
+	if ($rs->numeroderegistros==0) return(true);
+	$rs->Primero(); 
+	while (!$rs->EOF){
+		$cmd->texto="DELETE  FROM ordenador_imagen WHERE idimagen=".$rs->campos["idimagen"];
+		$resul=$cmd->Ejecutar();
+		if (!$resul){
+			$rs->Cerrar();
+			return(false);
+		}
+		$rs->Siguiente();
+	}
+	if($swid==0)
+		$cmd->texto="DELETE  FROM imagenes WHERE ".$nombreid."='".$identificador."'";
+	else
+		$cmd->texto='DELETE  FROM imagenes  WHERE '.$nombreid.'='.$identificador;
+	$resul=$cmd->Ejecutar();
+	return($resul);
+}
+?>