92 |
|
|
93 |
foreach my $result ( @{ $self->results_as_data } ) { |
foreach my $result ( @{ $self->results_as_data } ) { |
94 |
|
|
95 |
warn $self->dump( $result ); |
warn $self->dump( $result ) if $self->debug; |
96 |
|
|
97 |
my $text = $result->{text} || die "no text"; |
my $text = $result->{text} || die "no text"; |
98 |
|
|
125 |
$html = $self->error( "No results for $patt\n" ); |
$html = $self->error( "No results for $patt\n" ); |
126 |
} |
} |
127 |
|
|
128 |
|
$self->add_head(qq| |
129 |
|
<link rel="search" type="application/opensearchdescription+xml" title="Frey::Shell::Grep" href="/Frey::OpenSearch/grep_as_markup"> |
130 |
|
|); |
131 |
|
|
132 |
return $html; |
return $html; |
133 |
} |
} |
134 |
|
|