fix start_row when using excel import

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index c2d258c..d486bb1 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -795,7 +795,8 @@ foreach my $database ($cfg->Sections) {
                my $excel_file = $cfg -> val($database, 'excel_file') || die "$database doesn't have 'excel_file' defined!";
 
                my $sheet = x($config->{sheet}) || die "no sheet in $type.xml";
-               my $start_row = x($config->{start_row}) - 1 || die "no start_row in $type.xml";
+               my $start_row = x($config->{start_row}) || die "no start_row in $type.xml";
+               $start_row--;
 
                my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($excel_file) || die "can't open Excel file '$excel_file'";