Parent Directory | Revision Log | Patch
revision 112 by dpavlin, Wed Mar 14 20:02:19 2007 UTC | revision 113 by dpavlin, Sun Mar 25 11:41:54 2007 UTC | |
---|---|---|
# | Line 252 sub scrape { | Line 252 sub scrape { |
252 | my $base_uri = $uri; | my $base_uri = $uri; |
253 | $base_uri =~ s!\?.*$!!; | $base_uri =~ s!\?.*$!!; |
254 | ||
255 | foreach my $dt ( $div->look_down( '_tag', $args->{results} ) ) { | my @r = $div->look_down( '_tag', $args->{results} ); |
256 | $self->log->debug("found ", scalar @r, " <$args->{results}>"); | |
257 | ||
258 | foreach my $dt ( @r ) { | |
259 | my $a = $dt->look_down( '_tag', 'a', sub { $_[0]->attr('href') } ); | my $a = $dt->look_down( '_tag', 'a', sub { $_[0]->attr('href') } ); |
260 | if ( $a ) { | if ( $a ) { |
261 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |