class.ilDclContentImporter.php

Go to the documentation of this file.

<?php

/* Copyright (c) 1998-2010 ILIAS open source, Extended GPL, see docs/LICENSE */

require_once('./Modules/DataCollection/classes/class.ilObjDataCollectionAccess.php');
require_once('./Modules/DataCollection/classes/class.ilObjDataCollectionGUI.php');
require_once('./Modules/DataCollection/classes/Content/class.ilDclRecordListGUI.php');
require_once('./Modules/DataCollection/classes/Table/class.ilDclTable.php');
require_once ('./Services/Export/classes/class.ilExport.php');
require_once ('./Services/Excel/classes/class.ilExcel.php');


class ilDclContentImporter
{
        //const SOAP_FUNCTION_NAME = 'exportDataCollectionContent';

        const EXPORT_EXCEL = 'xls';

        protected $max_imports = 100;

        protected $supported_import_datatypes = array(
                ilDclDatatype::INPUTFORMAT_BOOLEAN,
                ilDclDatatype::INPUTFORMAT_NUMBER,
                ilDclDatatype::INPUTFORMAT_REFERENCE,
                ilDclDatatype::INPUTFORMAT_TEXT,
                ilDclDatatype::INPUTFORMAT_DATETIME,
                ilDclDatatype::INPUTFORMAT_PLUGIN
        );

        protected $warnings;

        protected $ref_id;

        protected $table_id;

        protected $dcl;

        protected $tables;

        protected $lng;

        public function __construct($ref_id, $table_id = null) {
                global $DIC;
                $lng = $DIC['lng'];

                $this->ref_id = $ref_id;
                $this->table_id = $table_id;

                $this->lng = $lng;

                $this->dcl = new ilObjDataCollection($ref_id);
                $this->tables = ($table_id)? array($this->dcl->getTableById($table_id)) : $this->dcl->getTables();
        }

        public function import($file, $simulate = false) {
                global $DIC;
                $ilUser = $DIC['ilUser'];

                $this->warnings = array();
                try {
                        $excel = new ilExcel();
                        $excel->loadFromFile($file);
                } catch (Exception $e) {
                        $this->warnings[] = $this->lng->txt("dcl_file_not_readable");
                }

                $sheet_count = $excel->getSheetCount();
                $excel->setActiveSheet(0);

                if($sheet_count != count($this->tables)) {
                        $this->warnings[] = $this->lng->txt('dcl_file_not_readable');
                }

                if (count($this->warnings)) {
                        return array('line'=>0, 'warnings'=>$this->warnings);
                }

                for($sheet = 0; $sheet < $sheet_count; $sheet++) {
                        $excel->setActiveSheet($sheet);
                        $table = $this->tables[$sheet];

                        // only 31 character-long table-titles are allowed
                        $sheet_title = substr($table->getTitle(), 0, 31);
                        if($excel->getSheetTitle() != $sheet_title) {
                                $this->warnings[] = $this->lng->txt('dcl_table_title_not_matching');
                                continue;
                        }

                        $field_names = array();
                        $sheet_data = $excel->getSheetAsArray();

                        foreach ($sheet_data[0] as $column) {
                                $field_names[] = $column;
                        }
                        $fields = $this->getImportFieldsFromTitles($table, $field_names);

                        $records_failed = 0;
                        for ($i = 2; $i <= count($sheet_data); $i ++) {
                                $record = new ilDclBaseRecordModel();
                                $record->setOwner($ilUser->getId());
                                $date_obj = new ilDateTime(time(), IL_CAL_UNIX);
                                $record->setCreateDate($date_obj->get(IL_CAL_DATETIME));
                                $record->setTableId($table->getId());
                                if (!$simulate) {
                                        $record->doCreate();
                                }
                                $fields_failed = 0;
                                foreach ($fields as $col => $field) {
                                        try {
                                                $value = $record->getRecordFieldValueFromExcel($excel, $i, $col, $field);

                                                if (is_array($value) && isset($value['warning'])) {
                                                        $this->warnings[] = $value['warning'];
                                                        $value = '';
                                                }

                                                $field->checkValidity($value, $record->getId());
                                                if (!$simulate) {
                                                        $record->setRecordFieldValue($field->getId(), $value);
                                                }
                                        } catch (ilDclInputException $e) {
                                                $fields_failed++;
                                                $this->warnings[] = "(" . $i . ", " . ilDataCollectionImporter::getExcelCharForInteger($col + 1) . ") " . $e;
                                        }
                                }

                                if ($fields_failed < count($fields)) {
                                        $record_imported = true;
                                } else {
                                        $records_failed++;
                                        $record_imported = false;
                                }

                                if (!$simulate) {
                                        if (!$record_imported) { // if no fields have been filled, delete the record again
                                                $record->doDelete(true); // omit notification
                                        } else {
                                                $record->doUpdate();
                                        }
                                }
                                if (($i - 1) - $records_failed > $this->max_imports) {
                                        $this->warnings[] = $this->lng->txt("dcl_max_import") . (count($sheet_data) - 1) . " > " . $this->max_imports;
                                        break;
                                }
                        }
                }


                return array('line'=>($i-2 < 0 ? 0 : $i-2), 'warnings'=>$this->warnings);
        }

        protected function checkImportType($field) {
                if (in_array($field->getDatatypeId(), $this->supported_import_datatypes)) {
                        return true;
                } else {
                        $this->warnings[] = $field->getTitle() . ": " . $this->lng->txt("dcl_not_supported_in_import");

                        return false;
                }
        }


        protected function getImportFieldsFromTitles($table, $titles) {
                $fields = $table->getRecordFields();
                $import_fields = array();
                foreach ($fields as $field) {
                        if ($this->checkImportType($field)) {
                                // the fields will add themselves to $import_fields if their title is in $titles
                                $field->checkTitlesForImport($titles, $import_fields);
                        }
                }

                foreach ($titles as $key => $value) {
                        $std_field_titles = ilDclStandardField::_getAllStandardFieldTitles();
                        if (in_array($value, $std_field_titles)) {
                                $this->warnings[] = "(1, " . ilDataCollectionImporter::getExcelCharForInteger($key) . ") \"" . $value . "\" " . $this->lng->txt("dcl_std_field_not_importable");
                        } else if (!isset($import_fields[$key])) {
                                $this->warnings[] = "(1, " . ilDataCollectionImporter::getExcelCharForInteger($key+1) . ") \"" . $value . "\" " . $this->lng->txt("dcl_row_not_found");
                        }
                }

                return $import_fields;
        }
}

?>