Форум программистов [Powered by Invision Power Board]

Код

    open (LOG, ">$sitepath/Admin/log.txt");
    #Загрузим информацю из файла в БД
    if ($PARAMS{FileFormat} eq "xls"){
        #Загружаем информацию о товарах
        my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => 'CP1251');
        my $excel = Spreadsheet::ParseExcel::Workbook->Parse("$sitepath/Admin/suppliers/Files/$PARAMS{SupplierId}.xls", $oFmtJ);
        my $sheet = $excel->{Worksheet}[0];
        foreach my $rownum ($PARAMS{HeaderLine} .. $sheet->{MaxRow}){
            print LOG $rownum. ": ";
            my @ColumsValues;
            foreach my $cellnum (@Columns){
                my $cell = $sheet->{Cells}[$rownum][$cellnum];
                if ($cell) {
                    my $Val = $oFmtJ->TextFmt($cell->{Val}, $cell->{Code});
                    $Val =~ s/'/`/g;
                    if ($Val){
                        push (@ColumsValues, "'$Val'");
                    }
                    else{
                        push (@ColumsValues, "''");
                    }
                }
                else{
                    push (@ColumsValues, "''");
                }
            }
            $query = "INSERT INTO SuppliersFileRows (SupplierId, GoodType, RowNumber, Col" . (join(", Col" , @Columns)) . ") VALUES
                                                    ($PARAMS{SupplierId}, $PARAMS{GoodType}, $rownum, " . (join(", " , @ColumsValues)) . ")";
            print LOG "$query\n";
            if (!$SQLFastbook->do($query)){
                print "<span id=\"result\">" . $SQLFastbook->errstr . "<br>\n$query</span>\n";
                exit;
            }
            
            $query = "SELECT COUNT(*) AS CNT FROM SuppliersFileRows WHERE SupplierId = $PARAMS{SupplierId} AND GoodType = $PARAMS{GoodType}";
            my $sth = $SQLFastbook->prepare($query);
            $sth->execute || die "~~" . $sth->errstr . "<br>\n" . $query;
            my $count = $sth->fetchrow_hashref;
            print LOG "COUNT(*) = $$count{CNT}\n";
        }
    }
    close (LOG);
    print times;