- #!/usr/bin/perl
- use CGI;
- use CGI::Carp qw(fatalsToBrowser);
- use Mod_dir::buscar;
- #use strict;
- #use warnings;
- print error;
- #print "Content-type: text/html;charset=UTF-8\n\n";
- $query = new CGI;
- $query->charset('UTF-8');
- print $query->header('text/html');
- print $query->start_html({-title=>'', -style=>"../../Css/style_formulario.css"});
- print $query->startform;
- print"<div id=\"buscar\">";
- print $query->div({id=>'bBuscar'},($query->submit({class=>'boton', -value=>'Buscar'})));
- print $query->div({id=>'cajatext'},($query->textfield({class=>'bus', -name=>'busq'})));
- print "</div>";
- print $query->end_form;
- my $value = $query->param('busq');
- my $campo = buscar->new;
- if ($value =~ /[a-zA-Z]/) {
- my @resultado = @{ $campo->busqueda($value) };
- print"<div id=\"tablaM\">";
- print $query->start_table;
- print $query->Tr($query->th( {id=>'tablaSubTitulo'}, ['Resultados'] ) ), "\n";
- for my $resultado (@resultado) {
- print $query->Tr($query->td({id=>'tablaSmall'},$query->a({href=>"mostrar.pl?name=$resultado", -target=>'_self'}, $resultado)));
- print "</div>";
- #print $query->br;
- }
- print $query->end_table();
- }
- else{
- my $tabla=buscar->new;
- my @ins=@{$tabla->llamar_inst};
- print"<div id=\"tablaM\">";
- print $query->start_table;
- print $query->Tr($query->th( {id=>'tablaSubTitulo'}, ['Instituciones'] ) ), "\n";
- for my $ins (@ins) {
- print $query->Tr($query->td( {id=>'tablaSmall'},$query->a({href=>"mostrar.pl?$ins", -target=>'_self'}, $ins)));
- }
- print $query->end_table;
- print "</div>";
y en el navegador me bota el siguiente error: Can't locate object method "llamar_inst" via package "UTF-8" (perhaps you forgot to load "UTF-8"?) at /var/www/cgi-bin/Directorio/info.pl line 43.
¿¿Por qué?? ¡No entiendo por qué el error? Ayuda, por favor.
