[Bps-public-commit] r18313 - in Net-Google-Code/branches/write: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb 10 00:52:59 2009
New Revision: 18313

Modified:
   Net-Google-Code/branches/write/   (props changed)
   Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm

Log:
 r19739 at sunnavys-mb:  sunnavy | 2009-02-10 11:05:10 +0800
 rename label arg in update sub to labels


Modified: Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm
==============================================================================
--- Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm	(original)
+++ Net-Google-Code/branches/write/lib/Net/Google/Code/Issue.pm	Tue Feb 10 00:52:59 2009
@@ -140,23 +140,23 @@
     my %args = validate(
         @_,
         {
-            label => { type => HASHREF | ARRAYREF, optional => 1 },
+            labels => { type => HASHREF | ARRAYREF, optional => 1 },
             map { $_ => { type => SCALAR, optional => 1 } }
               qw/comment summary status owner merge_into cc blocked_on/,
         }
     );
 
     # convert hash to array. e.g. Type => Defect to Type-Defect
-    if ( $args{label} && ref $args{label} eq 'HASH' ) {
-        $args{label} =
-          [ map { $_ . '-' . $args{label}{$_} } keys %{ $args{label} } ];
+    if ( $args{labels} && ref $args{labels} eq 'HASH' ) {
+        $args{labels} =
+          [ map { $_ . '-' . $args{labels}{$_} } keys %{ $args{labels} } ];
     }
 
     $self->signin;
     $self->fetch( 'issues/detail?id=' . $self->id );
     $self->mech->form_with_fields( 'comment', 'summary' );
 
-    $self->mech->field( 'label', $args{label} );
+    $self->mech->field( 'label', $args{labels} );
     $self->mech->submit_form(
         fields => {
             map { $_ => $args{$_} }
@@ -224,7 +224,7 @@
 =head2 description
 
 =head2 update
-comment, summary, status, owner, merge_into, cc, label, blocked_on
+comment, summary, status, owner, merge_into, cc, labels, blocked_on
 
 =head1 AUTHOR