import.php

<?php

/**
 * prints the form to import items from xml-file
 *
 * @author Andreas Grabs
 * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
 * @package feedback
 */

    require_once("../../config.php");
    require_once("lib.php");
    require_once('import_form.php');

    // get parameters
    $id = required_param('id', PARAM_INT);
    $choosefile = optional_param('choosefile', false, PARAM_PATH);
    $action = optional_param('action', false, PARAM_ALPHA);

    $url = new moodle_url('/mod/feedback/import.php', array('id'=>$id));
    if ($choosefile !== false) {
        $url->param('choosefile', $choosefile);
    }
    if ($action !== false) {
        $url->param('action', $action);
    }
    $PAGE->set_url($url);

    if (! $cm = get_coursemodule_from_id('feedback', $id)) {
        print_error('invalidcoursemodule');
    }

    if (! $course = $DB->get_record("course", array("id"=>$cm->course))) {
        print_error('coursemisconf');
    }

    if (! $feedback = $DB->get_record("feedback", array("id"=>$cm->instance))) {
        print_error('invalidcoursemodule');
    }

    if (!$context = get_context_instance(CONTEXT_MODULE, $cm->id)) {
        print_error('badcontext');
    }

    require_login($course->id, true, $cm);

    require_capability('mod/feedback:edititems', $context);

    $mform = new feedback_import_form();
    $newformdata = array('id'=>$id,
                        'deleteolditems'=>'1',
                        'action'=>'choosefile',
                        'confirmadd'=>'1',
                        'do_show'=>'templates');
    $mform->set_data($newformdata);
    $formdata = $mform->get_data();

    if ($mform->is_cancelled()) {
        redirect('edit.php?id='.$id.'&do_show=templates');
    }


    // unset($filename);
    // if ($action == 'choosefile' AND confirm_sesskey() ) {

        ////file checks out ok
        // $fileisgood = false;

        ////work out if this is an uploaded file
        ////or one from the filesarea.
        // if ($choosefile) {
            // $filename = "{$CFG->dataroot}/{$course->id}/{$choosefile}";
        // }
    // }

    // process if we are happy file is ok
    if ($choosefile) {
        $xmlcontent = $mform->get_file_content('choosefile');

        if(!$xmldata = feedback_load_xml_data($xmlcontent)) {
            print_error('cannotloadxml', 'feedback', 'edit.php?id='.$id);
        }

        $importerror = feedback_import_loaded_data($xmldata, $feedback->id);
        if($importerror->stat == true) {
            redirect('edit.php?id='.$id.'&do_show=templates', get_string('import_successfully', 'feedback'), 3);
            exit;
        }
    }


    /// Print the page header
    $strfeedbacks = get_string("modulenameplural", "feedback");
    $strfeedback  = get_string("modulename", "feedback");

    $PAGE->set_heading(format_string($course->fullname));
    $PAGE->set_title(format_string($feedback->name));
    echo $OUTPUT->header();

    /// print the tabs
    include('tabs.php');

    /// Print the main part of the page
    ///////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////////////////////
    echo $OUTPUT->heading(get_string('import_questions','feedback'));

    if(isset($importerror->msg) AND is_array($importerror->msg)) {
        echo $OUTPUT->box_start('generalbox errorboxcontent boxaligncenter');
        foreach($importerror->msg as $msg) {
            echo $msg.'<br />';
        }
        echo $OUTPUT->box_end();
    }

    $mform->display();

    // echo $OUTPUT->container_start('mdl-align');
    // echo $OUTPUT->single_button(new moodle_url('edit.php', array('id'=>$id, 'do_show'=>'templates')), get_string('cancel'));
    // echo $OUTPUT->container_end();
    echo $OUTPUT->footer();

    function feedback_load_xml_data($xmlcontent) {
        global $CFG;
        require_once($CFG->dirroot.'/lib/xmlize.php');

        if(!$xmlcontent = feedback_check_xml_utf8($xmlcontent)) return false;

        $data = xmlize($xmlcontent, 1, 'UTF-8');

        if(intval($data['FEEDBACK']['@']['VERSION']) != 200701) {
            return false;
        }
        $data = $data['FEEDBACK']['#']['ITEMS'][0]['#']['ITEM'];
        return $data;
    }

    function feedback_import_loaded_data(&$data, $feedbackid){
        global $CFG, $DB;

        feedback_load_feedback_items();

        $deleteolditems = optional_param('deleteolditems', 0, PARAM_INT);

        $error = new stdClass();
        $error->stat = true;
        $error->msg = array();

        if(!is_array($data)) {
            $error->msg[] = get_string('data_is_not_an_array', 'feedback');
            $error->stat = false;
            return $error;
        }

        if($deleteolditems) {
            feedback_delete_all_items($feedbackid);
            $position = 0;
        } else {
            //items will be add to the end of the existing items
            $position = $DB->count_records('feedback_item', array('feedback'=>$feedbackid));
        }

        //depend items we are storing temporary in an mapping list array(new id => dependitem)
        //we also store a mapping of all items array(oldid => newid)
        $dependitemsmap = array();
        $itembackup = array();
        foreach($data as $item) {
            $position++;
            //check the typ
            $typ = $item['@']['TYPE'];

            //check oldtypes first
            switch($typ) {
                case 'radio':
                    $typ = 'multichoice';
                    $oldtyp = 'radio';
                    break;
                case 'dropdown':
                    $typ = 'multichoice';
                    $oldtyp = 'dropdown';
                    break;
                case 'check':
                    $typ = 'multichoice';
                    $oldtyp = 'check';
                    break;
                case 'radiorated':
                    $typ = 'multichoicerated';
                    $oldtyp = 'radiorated';
                    break;
                case 'dropdownrated':
                    $typ = 'multichoicerated';
                    $oldtyp = 'dropdownrated';
                    break;
                default:
                    $oldtyp = $typ;
            }

            $itemclass = 'feedback_item_'.$typ;
            if($typ != 'pagebreak' AND !class_exists($itemclass)) {
                $error->stat = false;
                $error->msg[] = 'type ('.$typ.') not found';
                continue;
            }
            $itemobj = new $itemclass();

            $newitem = new stdClass();
            $newitem->feedback = $feedbackid;
            $newitem->template = 0;
            $newitem->typ = $typ;
            $newitem->name = trim($item['#']['ITEMTEXT'][0]['#']);
            $newitem->label = trim($item['#']['ITEMLABEL'][0]['#']);
            $newitem->options = trim($item['#']['OPTIONS'][0]['#']);
            $newitem->presentation = trim($item['#']['PRESENTATION'][0]['#']);
            //check old types of radio, check, and so on
            switch($oldtyp) {
                case 'radio':
                    $newitem->presentation = 'r>>>>>'.$newitem->presentation;
                    break;
                case 'dropdown':
                    $newitem->presentation = 'd>>>>>'.$newitem->presentation;
                    break;
                case 'check':
                    $newitem->presentation = 'c>>>>>'.$newitem->presentation;
                    break;
                case 'radiorated':
                    $newitem->presentation = 'r>>>>>'.$newitem->presentation;
                    break;
                case 'dropdownrated':
                    $newitem->presentation = 'd>>>>>'.$newitem->presentation;
                    break;
            }

            if(isset($item['#']['DEPENDITEM'][0]['#'])) {
                $newitem->dependitem = intval($item['#']['DEPENDITEM'][0]['#']);
            }else {
                $newitem->dependitem = 0;
            }
            if(isset($item['#']['DEPENDVALUE'][0]['#'])) {
                $newitem->dependvalue = trim($item['#']['DEPENDVALUE'][0]['#']);
            }else {
                $newitem->dependvalue = '';
            }
            $olditemid = intval($item['#']['ITEMID'][0]['#']);

            if($typ != 'pagebreak') {
                $newitem->hasvalue = $itemobj->get_hasvalue();
            }else {
                $newitem->hasvalue = 0;
            }
            $newitem->required = intval($item['@']['REQUIRED']);
            $newitem->position = $position;
            $newid = $DB->insert_record('feedback_item', $newitem);

            $itembackup[$olditemid] = $newid;
            if($newitem->dependitem) {
                $dependitemsmap[$newid] = $newitem->dependitem;
            }

        }
        //remapping the dependency
        foreach($dependitemsmap as $key => $dependitem) {
            $newitem = $DB->get_record('feedback_item', array('id'=>$key));
            $newitem->dependitem = $itembackup[$newitem->dependitem];
            $DB->update_record('feedback_item', $newitem);
        }

        return $error;
    }

    function feedback_check_xml_utf8($text) {
        //find the encoding
        $searchpattern = '/^\<\?xml.+(encoding=\"([a-z0-9-]*)\").+\?\>/is';

        if(!preg_match($searchpattern, $text, $match)) return false; //no xml-file

        //$match[0] = \<\? xml ... \?\> (without \)
        //$match[1] = encoding="...."
        //$match[2] = ISO-8859-1 or so on
        if(isset($match[0]) AND !isset($match[1])){ //no encoding given. we assume utf-8
            return $text;
        }

        if(isset($match[0]) AND isset($match[1]) AND isset($match[2])) { //encoding is given in $match[2]
            $enc = $match[2];
            $textlib = textlib_get_instance();
            return $textlib->convert($text, $enc);
        }
    }