diff options
Diffstat (limited to 'admin/ogAdmSources/ogAdmWebCon/propiedades/propiedades_perfilhardwares.php')
| -rw-r--r-- | admin/ogAdmSources/ogAdmWebCon/propiedades/propiedades_perfilhardwares.php | 122 |
1 files changed, 122 insertions, 0 deletions
diff --git a/admin/ogAdmSources/ogAdmWebCon/propiedades/propiedades_perfilhardwares.php b/admin/ogAdmSources/ogAdmWebCon/propiedades/propiedades_perfilhardwares.php new file mode 100644 index 00000000..0e8d099d --- /dev/null +++ b/admin/ogAdmSources/ogAdmWebCon/propiedades/propiedades_perfilhardwares.php @@ -0,0 +1,122 @@ +<? +// ************************************************************************************************************************************************* +// 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: propiedades_perfilhardwares.php +// Descripción : +// Presenta el formulario de captura de datos de un pefil hardware para insertar,modificar y eliminar +// ************************************************************************************************************************************************* +include_once("../includes/ctrlacc.php"); +include_once("../includes/opciones.php"); +include_once("../includes/CreaComando.php"); +include_once("../clases/AdoPhp.php"); +include_once("../idiomas/php/".$idioma."/propiedades_perfilhardwares_".$idioma.".php"); +//________________________________________________________________________________________________________ +$opcion=0; +$opciones=array($TbMsg[0],$TbMsg[1],$TbMsg[2],$TbMsg[3]); +//________________________________________________________________________________________________________ +$idperfilhard=0; +$descripcion=""; +$comentarios=""; +$grupoid=0; +$ordenadores=0; // Número de ordenador que tienen este perfil + +if (isset($_GET["opcion"])) $opcion=$_GET["opcion"]; // Recoge parametros +if (isset($_GET["idperfilhard"])) $idperfilhard=$_GET["idperfilhard"]; +if (isset($_GET["grupoid"])) $grupoid=$_GET["grupoid"]; +if (isset($_GET["identificador"])) $idperfilhard=$_GET["identificador"]; +//________________________________________________________________________________________________________ +$cmd=CreaComando($cadenaconexion); // Crea objeto comando +if (!$cmd) + Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D. +if ($opcion!=$op_alta){ + $resul=TomaPropiedades($cmd,$idperfilhard); + if (!$resul) + Header('Location: '.$pagerror.'?herror=3'); // Error de recuperación de datos. +} +//________________________________________________________________________________________________________ +?> +<HTML> +<TITLE>Administración web de aulas</TITLE> +<HEAD> + <LINK rel="stylesheet" type="text/css" href="../estilos.css"> + <SCRIPT language="javascript" src="../jscripts/propiedades_perfilhardwares.js"></SCRIPT> + <SCRIPT language="javascript" src="../jscripts/opciones.js"></SCRIPT> + <? echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/propiedades_perfilhardwares_'.$idioma.'.js"></SCRIPT>'?> +</HEAD> +<BODY> +<DIV align=center> +<FORM name="fdatos"> + <INPUT type=hidden name=idperfilhard value=<?=$idperfilhard?>> + <INPUT type=hidden name=ordenadores value=<?=$ordenadores?>> + <INPUT type=hidden name=grupoid value=<?=$grupoid?>> + <P align=center class=cabeceras><?echo $TbMsg[4]?><BR> + <SPAN align=center class=subcabeceras><? echo $opciones[$opcion]?></SPAN></P> + <TABLE align=center border=0 cellPadding=1 cellSpacing=1 class=tabla_datos > +<!-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------> + <TR> + <TH align=center> <?echo $TbMsg[5]?> </TD> + <?if ($opcion==$op_eliminacion) + echo '<TD style="width:215">'.$descripcion.'</TD>'; + else + echo '<TD><INPUT class="formulariodatos" name=descripcion style="width:215" type=text value="'.$descripcion.'"></TD>';?> + <TD align=left rowspan=2><IMG border=3 style="border-color:#63676b" src="../images/aula.jpg"><br><center> Ordenadores: <? echo $ordenadores?></center></TD> + </TR> +<!-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------> + <TR> + <TH align=center> <?echo $TbMsg[6]?> </TD> + <?if ($opcion==$op_eliminacion) + echo '<TD>'.$comentarios.'</TD>'; + else + echo '<TD><TEXTAREA class="formulariodatos" name=comentarios rows=3 cols=40>'.$comentarios.'</TEXTAREA></TD>'; + ?> + </TR> +<!-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------> + </TABLE> +</FORM> +</DIV> +<? +//________________________________________________________________________________________________________ +include_once("../includes/opcionesbotonesop.php"); +//________________________________________________________________________________________________________ +//________________________________________________________________________________________________________ +include_once("../includes/iframecomun.php"); +//________________________________________________________________________________________________________ +?> +</BODY> +</HTML> +<? +//________________________________________________________________________________________________________ +// Recupera los datos de un perfil hardware +// Parametros: +// - cmd: Una comando ya operativo (con conexión abierta) +// - id: El identificador del perfil hardware +//________________________________________________________________________________________________________ +function TomaPropiedades($cmd,$id){ + global $descripcion; + global $comentarios; + global $ordenadores; + $rs=new Recordset; + $cmd->texto="SELECT * FROM perfileshard WHERE idperfilhard=".$id; + $rs->Comando=&$cmd; + if (!$rs->Abrir()) return(0); // Error al abrir recordset + $rs->Primero(); + if (!$rs->EOF){ + $descripcion=$rs->campos["descripcion"]; + $comentarios=$rs->campos["comentarios"]; + $rs->Cerrar(); + $cmd->texto="SELECT count(*) as numordenadores FROM ordenadores WHERE idperfilhard=".$id; + $rs->Comando=&$cmd; + if (!$rs->Abrir()) return(false); // Error al abrir recordset + $rs->Primero(); + if (!$rs->EOF) + $ordenadores=$rs->campos["numordenadores"]; + $rs->Cerrar(); + return(true); + } + else + return(false); +} +?>
\ No newline at end of file |