source: admin/WebConsole/gestores/gestor_perfilcomponente_soft.php @ dc00c0f

918-git-images-111dconfigfileconfigure-oglivegit-imageslgromero-new-oglivemainmaint-cronmount-efivarfsmultivmmultivm-ogboot-installerogClonningEngineogboot-installer-jenkinsoglive-ipv6test-python-scriptsticket-301ticket-50ticket-50-oldticket-577ticket-585ticket-611ticket-612ticket-693ticket-700ubu24tplunification2use-local-agent-oglivevarios-instalacionwebconsole3
Last change on this file since dc00c0f was a6b881e, checked in by alonso <alonso@…>, 15 years ago

primeros archivos de administración

git-svn-id: https://opengnsys.es/svn/trunk@520 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 2.9 KB
Line 
1<?
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 2003-2004
6// Fecha Última modificación: Marzo-2005
7// Nombre del fichero: gestor_perfilcomponente_soft.php
8// Descripción :
9//              Gestiona el mantenimiento de la tabla de perfilessoft_softwares
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../clases/AdoPhp.php");
13include_once("../includes/CreaComando.php");
14include_once("../includes/opciones.php");
15//________________________________________________________________________________________________________
16$opcion=0; // Inicializa parametros
17$idperfilsoft=0;
18$idsoftware=0;
19
20if (isset($_GET["opcion"])) $opcion=$_GET["opcion"]; // Recoge parametros
21if (isset($_GET["idperfilsoft"])) $idperfilsoft=$_GET["idperfilsoft"];
22if (isset($_GET["idsoftware"])) $idsoftware=$_GET["idsoftware"];
23
24$cmd=CreaComando($cadenaconexion); // Crea objeto comando
25$resul=false;
26if ($cmd){
27        $resul=Gestiona();
28        $cmd->Conexion->Cerrar();
29}
30?>
31<HTML>
32<HEAD>
33        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
34<BODY>
35<?
36$literal="";
37switch($opcion){
38        case $op_alta :
39                $literal="resultado_insertar_perfilcomponente_soft";
40                break;
41        case $op_eliminacion :
42                $literal="resultado_eliminar_perfilcomponente_soft";
43                break;
44        default:
45                break;
46}
47if ($resul){
48        echo '<SCRIPT language="javascript">'.chr(13);
49        if ($opcion==$op_alta )
50                echo 'window.parent.'.$literal."(1,'".$cmd->DescripUltimoError()." ',".$idsoftware.");".chr(13);
51        else
52                echo 'window.parent.'.$literal."(1,'".$cmd->DescripUltimoError()." ',".$idsoftware.");".chr(13);
53        echo '</SCRIPT>';
54}
55else{
56        echo '<SCRIPT language="javascript">';
57        echo "  window.parent.".$literal."(0,'".$cmd->DescripUltimoError()."',".$idsoftware.")";
58        echo '</SCRIPT>';
59}
60?>
61</BODY>
62</HTML>
63<?
64// *************************************************************************************************************************************************
65function Gestiona(){
66        global  $cmd;
67        global  $opcion;
68        global  $idperfilsoft;
69        global  $idsoftware;
70        global   $urlimgth;
71        global  $op_alta;
72        global  $op_eliminacion;
73
74        $cmd->CreaParametro("@idperfilsoft",$idperfilsoft,1);
75        $cmd->CreaParametro("@idsoftware",$idsoftware,1);
76
77        switch($opcion){
78                case $op_alta :
79                        $cmd->texto="INSERT INTO perfilessoft_softwares (idperfilsoft,idsoftware) VALUES (@idperfilsoft,@idsoftware)";
80                        $resul=$cmd->Ejecutar();
81                        break;
82                case $op_eliminacion :
83                        $cmd->texto='DELETE  FROM perfilessoft_softwares WHERE idperfilsoft='.$idperfilsoft.' AND idsoftware='.$idsoftware;
84                        $resul=$cmd->Ejecutar();
85                        break;
86                default:
87                        break;
88        }
89        return($resul);
90}
91?>
Note: See TracBrowser for help on using the repository browser.