Changeset 559 for lang/perl/plagger/lib/Plagger/Plugin/Publish

Timestamp:

10/19/07 22:25:46 (14 months ago)

Author:

mattn

Message:

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

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Publish/NiftyClip.pm (modified) (2 diffs)

lang/perl/plagger/lib/Plagger/Plugin/Publish/NiftyClip.pm

@@ -41 +41 @@
     if ($res && $res->is_success) {
         eval {
-                        for (my $num = 1; $num < @tags; $num++) {
-              $self->{mech}->form_name('savingForm')->push_input(
-                                  'text', {
-                                          name  => 'tagname',
-                                          value => $tags[$num],
-                                  });
+            for (my $num = 0; $num < @tags; $num++) {
+                if ($num == 0) {
+                    $self->{mech}->form_name('savingForm')->find_input(
+                        'tagname')->value($tags[0]);
+                } else {
+                    $self->{mech}->form_name('savingForm')->push_input(
+                        'text', {
+                            name  => 'tagname',
+                            value => $tags[$num],
+                        });
+                }
             }
             $self->{mech}->submit_form(
@@ -54 +59 @@
                     url         => encode('utf-8', $args->{entry}->link),
                     comment     => $summary,
-                    tagname     => (@tags ? $tags[0] : ''),
                     public_flag => ($self->conf->{default_public} ? 'on' : 'off'),
                 }