From: <de...@de...> - 2008-07-29 05:13:18
|
Author: SvenDowideit Date: 2008-07-29 00:13:27 -0500 (Tue, 29 Jul 2008) New Revision: 17195 Trac url: http://develop.twiki.org/trac/changeset/17195 Modified: twiki/trunk/ExcelImportExportPlugin/lib/TWiki/Plugins/ExcelImportExportPlugin/Export.pm Log: Item5838: ExcelImportExportPlugin export has lots of apache log complaints. Modified: twiki/trunk/ExcelImportExportPlugin/lib/TWiki/Plugins/ExcelImportExportPlugin/Export.pm =================================================================== --- twiki/trunk/ExcelImportExportPlugin/lib/TWiki/Plugins/ExcelImportExportPlugin/Export.pm 2008-07-29 04:52:08 UTC (rev 17194) +++ twiki/trunk/ExcelImportExportPlugin/lib/TWiki/Plugins/ExcelImportExportPlugin/Export.pm 2008-07-29 05:13:27 UTC (rev 17195) @@ -257,7 +257,7 @@ my $col = 0; my $row = 0; foreach my $name (@sortorder) { - if ( $orientation{$name} eq 'v' ) { + if ( defined($orientation{$name}) && $orientation{$name} eq 'v' ) { $worksheet->write( $row, $col, $shortname{$name}, $headerformat90 ); $worksheet->write_comment( $row, $col, $name, height => 10 ); if ( defined( $width{$name} ) ) { @@ -300,7 +300,7 @@ ) { my ( $meta, $text ) = &TWiki::Func::readTopic( $web, $topic ); - if ( $meta->{FORM}[0]{name} eq $config{FORM} + if ( defined($meta->{FORM}[0]{name}) && $meta->{FORM}[0]{name} eq $config{FORM} and not $topic =~ /$config{TEMPLATETOPIC}$/ ) { # Exclude the template topcic my %value; @@ -350,6 +350,10 @@ $format{$name} ); } elsif ( $type{$name} eq 'text' ) { + if (!defined($value{$name})) { + #print STDERR "value of $name undefined - defaulting to ''\n"; + $value{$name} = ''; + } $worksheet->write_string( $row, $col, $value{$name}, $format{$name} ); } @@ -751,6 +755,10 @@ $format{$name} ); } elsif ( $type{$name} eq 'text' ) { + if (!defined($value{$name})) { + #print STDERR "value of $name undefined - defaulting to ''\n"; + $value{$name} = ''; + } $worksheet->write_string( $row, $col, $value{$name}, $format{$name} ); } |