Changeset 559 for lang/perl/plagger

Show
Ignore:
Timestamp:
10/19/07 22:25:46 (7 years ago)
Author:
mattn
Message:

lang/perl/plagger/lib/Plagger/Plugin/Publish/NiftyClip.pm: fixed: bits changes for treating tags.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/plagger/lib/Plagger/Plugin/Publish/NiftyClip.pm

    r557 r559  
    4141    if ($res && $res->is_success) { 
    4242        eval { 
    43                         for (my $num = 1; $num < @tags; $num++) { 
    44               $self->{mech}->form_name('savingForm')->push_input( 
    45                                   'text', { 
    46                                           name  => 'tagname', 
    47                                           value => $tags[$num], 
    48                                   }); 
     43            for (my $num = 0; $num < @tags; $num++) { 
     44                if ($num == 0) { 
     45                    $self->{mech}->form_name('savingForm')->find_input( 
     46                        'tagname')->value($tags[0]); 
     47                } else { 
     48                    $self->{mech}->form_name('savingForm')->push_input( 
     49                        'text', { 
     50                            name  => 'tagname', 
     51                            value => $tags[$num], 
     52                        }); 
     53                } 
    4954            } 
    5055            $self->{mech}->submit_form( 
     
    5459                    url         => encode('utf-8', $args->{entry}->link), 
    5560                    comment     => $summary, 
    56                     tagname     => (@tags ? $tags[0] : ''), 
    5761                    public_flag => ($self->conf->{default_public} ? 'on' : 'off'), 
    5862                }