/[Grep]/lib/Grep/Source/MoinMoin.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Grep/Source/MoinMoin.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 82 by dpavlin, Fri Feb 23 11:48:39 2007 UTC revision 83 by dpavlin, Fri Feb 23 18:38:48 2007 UTC
# Line 66  sub fetch { Line 66  sub fetch {
66          my $max = 5;          my $max = 5;
67          my $nr = 1;          my $nr = 1;
68    
69            my $base_uri = $uri;
70            $base_uri =~ s!\?.*$!!;
71    
72          foreach my $dt ( $div->look_down( '_tag', 'dt' ) ) {          foreach my $dt ( $div->look_down( '_tag', 'dt' ) ) {
73                  my $a = $dt->look_down( '_tag', 'a', sub { $_[0]->attr('href') } );                  my $a = $dt->look_down( '_tag', 'a', sub { $_[0]->attr('href') } );
74                  if ( $a ) {                  if ( $a ) {
75    
76                          my $page_uri = $uri . $a->attr('href');                          my $page_uri = $base_uri . $a->attr('href');
77                          $page_uri =~ s!\Q?highlight=\E.*$!!;                          $page_uri =~ s!\Q?highlight=\E.*$!!;
78    
79                          warn "fetching page: ",$a->as_text," from $page_uri\n";                          warn "fetching page: ",$a->as_text," from $page_uri\n";
Legend:
Removed from v.82  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.26