Changeset 35309 for lang/perl

Show
Ignore:
Timestamp:
09/10/09 18:33:57 (5 years ago)
Author:
poppen
Message:

updated _get_user_private_adress and private_update.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/WWW-Wassr/trunk/lib/WWW/Wassr.pm

    r35121 r35309  
    469469  my $scraper = scraper 
    470470  { 
    471     process 'p.buttons>a', 'path' => '@href'; 
     471    process 'p.buttons>a#btn-privatetalk', 'path' => '@href'; 
    472472    result 'path'; 
    473473  }; 
     
    602602  $self->{'wm'}->get("$self->{site_root}$pad"); 
    603603  my $forms       = $self->{'wm'}->forms(); 
    604   my $to_user_rid = $forms->[1]->{'inputs'}->[2]->{value}; 
     604  my $to_user_rid = $forms->[2]->{'inputs'}->[2]->{value}; 
    605605  my $post        = { 
    606606    CSRFPROTECT => $self->CSRFPROTECT(),