source: admin/WebConsole/propiedades/propiedades_procedimientos.php

lgromero-new-oglive
Last change on this file was b0d5fb32, checked in by Ramón M. Gómez <ramongomez@…>, 6 years ago

#834: Fixing more code cleanup: CSS units, HTML syntax and PHP closing tags.
  • Property mode set to 100644
File size: 5.3 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: propiedades_procedimientos.php
8// Descripción :
9//               Presenta el formulario de captura de datos de un procedimiento para insertar,modificar y eliminar
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../includes/opciones.php");
13include_once("../includes/CreaComando.php");
14include_once("../clases/AdoPhp.php");
15include_once("../idiomas/php/".$idioma."/propiedades_procedimientos_".$idioma.".php");
16//________________________________________________________________________________________________________
17$opcion=0;
18$opciones=array($TbMsg[0],$TbMsg[1],$TbMsg[2],$TbMsg[3]);
19//________________________________________________________________________________________________________
20$idprocedimiento=0;
21$descripcion="";
22$comentarios="";
23$grupoid=0;
24 
25if (isset($_GET["opcion"])) $opcion=$_GET["opcion"];  // Recoge parametros
26if (isset($_GET["idprocedimiento"])) $idprocedimiento=$_GET["idprocedimiento"];
27if (isset($_GET["grupoid"])) $grupoid=$_GET["grupoid"];
28if (isset($_GET["identificador"])) $idprocedimiento=$_GET["identificador"];
29//________________________________________________________________________________________________________
30$cmd=CreaComando($cadenaconexion); // Crea objeto comando
31if (!$cmd)
32        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
33if  ($opcion!=$op_alta){
34        $resul=TomaPropiedades($cmd,$idprocedimiento);
35        if (!$resul)
36                Header('Location: '.$pagerror.'?herror=3'); // Error de recuperación de datos.
37}
38//________________________________________________________________________________________________________
39?>
40<HTML>
41<HEAD>
42    <TITLE>Administración web de aulas</TITLE>
43        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
44        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
45        <SCRIPT language="javascript" src="../jscripts/propiedades_procedimientos.js"></SCRIPT>
46        <SCRIPT language="javascript" src="../jscripts/opciones.js"></SCRIPT>
47        <?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/propiedades_procedimientos_'.$idioma.'.js"></SCRIPT>'?>
48</HEAD>
49<BODY>
50<DIV  align=center>
51<FORM name="fdatos" action="../gestores/gestor_procedimientos.php" method="post"> 
52        <INPUT type=hidden name=opcion value=<?php echo $opcion?>>
53        <INPUT type=hidden name=idprocedimiento value=<?php echo $idprocedimiento?>>
54        <INPUT type=hidden name=grupoid value=<?php echo $grupoid?>>
55        <P align=center class=cabeceras><?php echo $TbMsg[4]?><BR>
56        <SPAN class=subcabeceras><?php echo $opciones[$opcion]?></SPAN></P>
57        <TABLE  align=center border=0 cellPadding=1 cellSpacing=1 class=tabla_datos>
58<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
59                <TR>
60                        <TH align=center>&nbsp;<?php echo $TbMsg[5]?>&nbsp;</TH>
61                        <?php if ($opcion==$op_eliminacion)
62                                        echo '<TD style="width:300px">'.$descripcion.'</TD>';
63                                else
64                                        echo '<TD><INPUT  class="formulariodatos" name=descripcion style="width:300px" type=text value="'.$descripcion.'"></TD>';?>
65                </TR>
66<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
67                <TR>
68                        <TH align=center>&nbsp;<?php echo $TbMsg[6]?>&nbsp;</TH>
69                        <?php if ($opcion==$op_eliminacion)
70                                        echo '<TD>'.$comentarios.'</TD>';
71                                else
72                                        echo '<TD><TEXTAREA   class="formulariodatos" name=comentarios rows=3 cols=55>'.$comentarios.'</TEXTAREA></TD>';
73                        ?>
74                </TR>   
75<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
76        </TABLE>
77</FORM>
78</DIV>
79<?php
80//________________________________________________________________________________________________________
81include_once("../includes/opcionesbotonesop.php");
82//________________________________________________________________________________________________________
83?>
84</BODY>
85</HTML>
86<?php
87//________________________________________________________________________________________________________
88//      Recupera los datos de un procedimiento
89//              Parametros:
90//              - cmd: Una comando ya operativo (con conexión abierta) 
91//              - id: El identificador del procedimiento
92//________________________________________________________________________________________________________
93function TomaPropiedades($cmd,$id){
94        global $descripcion;
95        global $comentarios;
96        $rs=new Recordset;
97        $cmd->texto="SELECT * FROM procedimientos WHERE idprocedimiento=".$id;
98        $rs->Comando=&$cmd;
99        if (!$rs->Abrir()) return(false); // Error al abrir recordset
100        $rs->Primero();
101        if (!$rs->EOF){
102                $descripcion=$rs->campos["descripcion"];
103                $comentarios=$rs->campos["comentarios"];
104                $rs->Cerrar();
105                return(true);
106        }
107        else
108                return(false);
109}
Note: See TracBrowser for help on using the repository browser.