From 169fae126d39f8d737de657c58fffdd2223f3612 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 25 Jun 2003 12:09:27 +0000 Subject: [PATCH] use start_row from excel.xml git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@56 13eb9ef6-21d5-0310-b721-a9d68796d827 --- all2xml.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/all2xml.pl b/all2xml.pl index 32381b3..c1cf212 100755 --- a/all2xml.pl +++ b/all2xml.pl @@ -297,7 +297,7 @@ print STDERR "using: $type...\n"; 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}) || die "no start_row in $type.xml"; + my $start_row = x($config->{start_row}) - 1 || die "no start_row in $type.xml"; my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($excel_file) || die "can't open Excel file '$excel_file'"; @@ -314,7 +314,7 @@ print STDERR "using: $type...\n"; defined ($oWorksheet) || die "can't find sheet '$sheet' in $excel_file"; my $end_row = x($config->{end_row}) || $oWorksheet->{MaxRow}; - for(my $iR = $oWorksheet->{MinRow} ; defined $end_row && $iR <= $end_row ; $iR++) { + for(my $iR = $start_row ; defined $end_row && $iR <= $end_row ; $iR++) { my $row; for(my $iC = $oWorksheet->{MinCol} ; defined $oWorksheet->{MaxCol} && $iC <= $oWorksheet->{MaxCol} ; $iC++) { my $cell = $oWorksheet->{Cells}[$iR][$iC]; -- 2.20.1