Changeset 27259 for lang/perl/Net-Google-Spreadsheets

Timestamp:

12/23/08 04:20:06 (4 years ago)

Author:

lopnor

Message:

tiny fix

Location:

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets

Files:

• Spreadsheet.pm (modified) (1 diff)
• Worksheet.pm (modified) (1 diff)

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets/Spreadsheet.pm

@@ -35 +35 @@
 sub add_worksheet {
     my ($self, $args) = @_;
-    my $entry = Net::Google::Spreadsheets::Worksheet->new->entry;
+    my $entry = Net::Google::Spreadsheets::Worksheet->new($args)->entry;
     my $atom = $self->service->post($self->content, $entry);
     $self->sync;

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets/Worksheet.pm

@@ -64 +64 @@
     for ( @args ) {
         my $id = sprintf("%s/R%sC%s",$self->cellsfeed, $_->{row}, $_->{col});
-        $_->{id} = $id;
-        $_->{editurl} = $id;
+        $_->{id} = $_->{editurl} = $id;
         my $entry = Net::Google::Spreadsheets::Cell->new($_)->entry;
         $entry->set($self->batch, operation => '', {type => 'update'});