function set_data(&$question) {
		$mform = &$this->_form;
		wrsqz_set_data('multichoice', 'wmultiprom', $mform, $question);
		
		return parent::set_data($question);
	}
 function set_data(&$question)
 {
     $mform =& $this->_form;
     wrsqz_set_data('essay', 'wessaprom', $mform, $question);
     return parent::set_data($question);
 }
 function set_data(&$question)
 {
     $mform =& $this->_form;
     wrsqz_set_data('match', 'wmatprom', $mform, $question);
     return parent::set_data($question);
 }
 function set_data(&$question)
 {
     $mform =& $this->_form;
     wrsqz_set_data('shortanswer', 'wshanprom', $mform, $question);
     return parent::set_data($question);
 }
	function set_data(&$question) {
		$mform = &$this->_form;
		wrsqz_set_data('multianswer', 'wmansprom', $mform, $question);

        if (isset($question->options->questions) && is_array($question->options->questions)){
            foreach($question->options->questions as $key=>$wrapped){
                if(substr($wrapped->qtype, -5)=='wiris'){
                    $wrapped->qtype = substr($wrapped->qtype, 0, -5);
                }
            }
        }
        
		$result=parent::set_data($question);

        if (isset($question->options->questions) && is_array($question->options->questions)){
            foreach($question->options->questions as $key=>$wrapped){
              if(!empty($wrapped)){
                if(($wrapped->qtype == 'shortanswer' || $wrapped->qtype == 'multichoice')
                    && strpos($wrapped->questiontext,'#')!==false){  //Perhaps we should change '#' by '\#'
                    $wrapped->qtype .= 'wiris';
                }
                $question->options->questions[$key] = $wrapped;
              }
            }
        }
        return $result;
	}
 function set_data(&$question)
 {
     $mform =& $this->_form;
     wrsqz_set_data('truefalse', 'wtrflsprom', $mform, $question);
     return parent::set_data($question);
 }