El presente mensaje es para solicitar de su ayuda. Estoy desarrollando una aplicación que muestre los datos de mi BD en un formulario en HTML, pero no logro entender cómo debo decirle que cada campo se guarde o muestre o busque cada campo de diferentes tablas. El formulario es para gestionar la base de datos desde un interfaz pero los botones de agregar, modificar, buscar, eliminar. No los sé programar en Perl. Les dejo el código:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use CGI;
- use DBI;
- use DBD::Pg;
- use CGI::Carp qw(fatalsToBrowser);
- my $dbh = DBI->connect("dbi:Pg:dbname=directorio","directorio","directorio");
- $sth = $dbh->prepare("SELECT institucion.name, sede.name, estado.name, customer_user.first_name, customer_user.last_name, customer_user.phone, customer_user.email FROM customer_user INNER JOIN sede ON customer_user.sede_id=sede.id JOIN institucion ON sede.id_institucion=institucion.id JOIN estado ON sede.id_estado=estado.id");
- $sth->execute;
- print"Content-type: text/html\n\n";
- print"<html>";
- print"<body>";
- print"<form>";
- print"<p>Nombre: <input type=\"text\"name=\"text\"></p>";
- print"<p>Apellido: <input type=\"text\" name=\"text\"></p>";
- print"<p>Telefono1: <input type=\"text\" name=\"text\"> Telefono2: <input type=\"text\" name=\"text\"></p>";
- print"<p>Email: <input type=\"text\" name=\"text\"></p>";
- print"Institucion: <select name=\"institucion\"></select> ";
- print"Sede : <select name\"sede\"></select> ";
- print"Estado: <select name=\"estado\"></select>";
- print"<p><input type=\"button\"name=\"agregar\" value=\"AGREGAR\"> <input type=\"button\"name=\"modificar\" value=\"MODIFICAR\"> <input type=\"button\"name=\"eliminar\" value=\"ELIMINAR\"> <input type=\"button\"name=\"buscar\" value=\"BUSCAR\"></p>";
- print"</form>";
- print"</body>";
- print"</html>";
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
