--- Context-orig.pm Wed Jun 19 01:42:56 2002 +++ Context.pm Wed Jun 19 21:35:53 2002 @@ -1225,10 +1225,16 @@ sub _hdlr_google_search { my($ctx, $args) = @_; my $query; + my $title; + my $excerpt; my $blog = $ctx->stash('blog'); if ($query = $args->{query}) { } elsif (my $url = $args->{related}) { $query = 'related:' . $url eq '1' ? $blog->site_url : $url; + } elsif ($title = $args->{title}) { + $query = _hdlr_entry_title($ctx); + } elsif ($excerpt = $args->{excerpt}) { + $query = _hdlr_entry_excerpt($ctx); } else { return $ctx->error('You used without a query.'); } @@ -1258,6 +1264,11 @@ my $builder = $ctx->stash('builder'); my $res = ''; for my $rec (@{ $result->{resultElements} }) { + if ($args->{strip_html}) { + while( my($k, $v) = each(%$rec)) { + $rec->{$k} = remove_html($v); + } + } $ctx->stash('google_result', $rec); my $out = $builder->build($ctx, $tokens); return $ctx->error( $builder->errstr ) unless defined $out;