Tengo una duda que llevo varios días dándole vuelta y no he podido resolverla.
A ver si me explico:
En un programa de Inserción de registros (Altas) a una tabla de MySQL, tengo algo como esto:
Using perl Syntax Highlighting
$sex[0] = "Masculino";
$sex[1] = "Femenino";
# alta de alumno
print "<form action='alta3_alumnos.pl?fec=$dt&fam=$fam&nivel=$nivel&cod=$doc[0]&last1=$last1&last2=$last2&first=$first&cod=$cod&types=$types&ciclo=$ciclo&CGISESSID=$CGISESSID' ID='form1' onsubmit='return verificar();'>";
print "Alumno............: ";
print textfield('alumno', '' ,15,25);
print "<BR>";
print "Apellidos..........: ";
print textfield(last1, '' ,50,50);
print textfield(last2, '' ,50,50);
print "<BR>";
print "Nombre.............: ";
print textfield(first, '' ,50,80);
print "<BR>";
print "Sexo..................: ";
print scrolling_list(-name=>'sex', -values=>[@sex],,-size=>1);
print "<BR>";
$sex[1] = "Femenino";
# alta de alumno
print "<form action='alta3_alumnos.pl?fec=$dt&fam=$fam&nivel=$nivel&cod=$doc[0]&last1=$last1&last2=$last2&first=$first&cod=$cod&types=$types&ciclo=$ciclo&CGISESSID=$CGISESSID' ID='form1' onsubmit='return verificar();'>";
print "Alumno............: ";
print textfield('alumno', '' ,15,25);
print "<BR>";
print "Apellidos..........: ";
print textfield(last1, '' ,50,50);
print textfield(last2, '' ,50,50);
print "<BR>";
print "Nombre.............: ";
print textfield(first, '' ,50,80);
print "<BR>";
print "Sexo..................: ";
print scrolling_list(-name=>'sex', -values=>[@sex],,-size=>1);
print "<BR>";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Aquí el campo 'sex' viene en una scrolling_list y el usuario es forzado a seleccionar una opción de la lista. No le queda de otra.
Pero en el programa de modificación, tengo que acceder a la tabla primero y luego presentar los datos para su posible modificación,
Using perl Syntax Highlighting
# cambios al alumno
print "<form action='cambio2_alumnos.pl?fec=$dt&fam=$fam&nivel=$nivel&cod=$cod&last1=$last1&last2=$last2&first=$first&cod=$cod&types=$types&ciclo=$ciclo&CGISESSID=$CGISESSID' ID='form1' onsubmit='return verificar($ind);'>";
#print start_form(GET,'cambio2_alumnos.pl?fec=$dt&fam=$fam&nivel=$nivel&cod=$cod&last1=$last1&last2=$last2&first=$first&cod=$cod&types=$types&ciclo=$ciclo&CGISESSID=$CGISESSID', );
print "<B><I>Fecha: " . $dt ;
print "<BR>";
print "Apellidos..........: ";
print textfield('last1', $doc[2] ,50,50);
print textfield('last2', $doc[3] ,50,50);
print "<BR>";
print "Nombre.............: ";
print textfield('first', $doc[1] ,50,80);
print "<BR>";
print "Sexo..................: ";
print textfield('sexo',$doc[5] ,15,15);
print "<BR>";
print "<form action='cambio2_alumnos.pl?fec=$dt&fam=$fam&nivel=$nivel&cod=$cod&last1=$last1&last2=$last2&first=$first&cod=$cod&types=$types&ciclo=$ciclo&CGISESSID=$CGISESSID' ID='form1' onsubmit='return verificar($ind);'>";
#print start_form(GET,'cambio2_alumnos.pl?fec=$dt&fam=$fam&nivel=$nivel&cod=$cod&last1=$last1&last2=$last2&first=$first&cod=$cod&types=$types&ciclo=$ciclo&CGISESSID=$CGISESSID', );
print "<B><I>Fecha: " . $dt ;
print "<BR>";
print "Apellidos..........: ";
print textfield('last1', $doc[2] ,50,50);
print textfield('last2', $doc[3] ,50,50);
print "<BR>";
print "Nombre.............: ";
print textfield('first', $doc[1] ,50,80);
print "<BR>";
print "Sexo..................: ";
print textfield('sexo',$doc[5] ,15,15);
print "<BR>";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Mi pregunta es cómo puedo integrar una scrolling_list en este script para forzarlos a teclear algo que yo quiero, no lo que ellos quieran.
Puede que mi pregunta no esté en el Foro correcto, por lo que pido asesoría al respecto.
Si mi pregunta es cambiada de Foro, por favor avísenme para seguirle la pista.
Gracias.
