Changeset 8078 for lang/perl/plagger/lib/Plagger

Timestamp:

03/18/08 18:22:58 (9 months ago)

Author:

mattn

Message:

lang/perl/plagger/lib/Plagger/Plugin/Publish/NiftyClip.pm:
nifty clipの変更に追従

Files:

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

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

@@ -32 +32 @@
 
     my @tags = @{$args->{entry}->tags};
+    my $tag_string = @tags ? join(' ', @tags) : '';
 
     my $summary;
@@ -41 +42 @@
     if ($res && $res->is_success) {
         eval {
-            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(
                 form_name => 'savingForm',
@@ -59 +48 @@
                     url         => encode('utf-8', $args->{entry}->link),
                     comment     => $summary,
+                    suggesttags => $tag_string,
                     public_flag => ($self->conf->{default_public} ? 'on' : 'off'),
                 }