$opt = null;
        foreach ($size_fonts as $size_fontop) {
            $prop = null;
            $prop->value = $size_fontop;
            if ($size_fontop == $size_font_default) {
                $prop->selected = "selected";
            }
            $opt .= wiki_option($size_fontop, $prop, true);
        }
        $prop = null;
        $prop->name = "size";
        $prop->size = "1";
        $prop->events = "onchange=\"javascript:view_evaluations(event)\"";
        wiki_select($opt, $prop);
    }
    $prop = null;
    $prop->colspan = '2';
    $prop->class = "textcenter";
    wiki_change_row($prop);
    wiki_br();
    $prop = null;
    $prop->name = "continue";
    $prop->value = get_string('continue');
    wiki_input_submit($prop);
    wiki_table_end();
    wiki_div_end();
    wiki_form_end();
    echo "<!-- Fi del Formulari -->" . "\n";
    /// Finish the page
    print_footer($COURSE);
}
function printfilelist($filelist)
{
    global $CFG, $basedir;
    foreach ($filelist as $file) {
        if (is_dir($basedir . $file)) {
            $prop = null;
            $prop->src = "{$CFG->pixpath}/f/folder.gif";
            $prop->height = "16";
            $prop->width = "16";
            $prop->alt = "";
            wiki_img($prop);
            echo $file;
            wiki_br();
            $subfilelist = array();
            $currdir = opendir($basedir . $file);
            while (false !== ($subfile = readdir($currdir))) {
                if ($subfile != ".." && $subfile != ".") {
                    $subfilelist[] = $file . "/" . $subfile;
                }
            }
            printfilelist($subfilelist);
        } else {
            $icon = mimeinfo("icon", $file);
            $prop = null;
            $prop->src = "{$CFG->pixpath}/f/{$icon}";
            $prop->height = "16";
            $prop->width = "16";
            $prop->alt = "";
            wiki_img($prop);
            echo $file;
            wiki_br();
        }
    }
}
function wiki_print_menu_teachers($listteachers, $cm)
{
    //this function prints the list of theachers in the wiki's student
    if (empty($listteachers)) {
        return;
    }
    wiki_br(2);
    $prop = null;
    $prop->border = "0";
    $prop->class = "boxalignright";
    $prop->classtd = "nwikileftnow";
    wiki_table_start($prop);
    print_string('anotherteacher', 'wiki');
    wiki_change_column();
    $prop = null;
    $prop->id = "selectteacher";
    $prop->method = "post";
    $prop->action = 'view.php?id=' . $cm->id;
    wiki_form_start($prop);
    wiki_div_start();
    $opt = null;
    foreach ($listteachers as $lteacher) {
        $prop = null;
        $prop->value = $lteacher->id;
        $opt .= wiki_option($lteacher->lastname . ', ' . $lteacher->firstname, $prop, true);
    }
    $prop = null;
    $prop->name = "dfformselectteacher";
    wiki_select($opt, $prop);
    $prop = null;
    $prop->value = get_string("continue");
    wiki_input_submit($prop);
    wiki_div_end();
    wiki_form_end();
    $prop = null;
    $prop->class = "nwikileftnow";
    wiki_change_row($prop);
    echo "&nbsp;";
    wiki_table_end();
}
function wiki_import_wiki(&$WS)
{
    global $file;
    //if the form is complete
    $sure = optional_param('dfformsure', NULL, PARAM_ALPHA);
    if (isset($sure)) {
        //import to xml
        wiki_import_wiki_XML($WS);
        $prop = null;
        $prop->class = 'textcenter';
        $info = wiki_size_text(get_string("importcorrectly", 'wiki'), 2, '', true);
        wiki_div($info, $prop);
        $prop = null;
        $prop->action = '../view.php?id=' . $WS->cm->id;
        $prop->method = 'post';
        $prop->id = 'form';
        wiki_form_start($prop);
        $prop = null;
        $prop->border = '0';
        $prop->class = 'boxaligncenter';
        $prop->classtd = 'nwikileftnow';
        wiki_table_start($prop);
        $prop = null;
        $prop->name = 'dfformcontinue';
        $prop->value = get_string('continue');
        $input = wiki_input_submit($prop, true);
        wiki_div($input);
        wiki_table_end();
        wiki_form_end();
    } else {
        if (isset($WS->dfform['import'])) {
            $extension = explode("/", $WS->path);
            $num = count($extension) - 1;
            $name = $extension[$num];
            $info = wiki_b(get_string("importcheckwarning", 'wiki'), '', true);
            $info .= '    ' . $name;
            $prop = null;
            $prop->class = 'textcenter';
            wiki_paragraph($info, $prop);
            switch ($WS->dfform['incase']) {
                case 0:
                    $name = get_string("always", 'diki');
                    break;
                case 1:
                    $name = get_string("never", 'wiki');
                    break;
                case 2:
                    $name = get_string("before", 'wiki');
                    break;
                case 3:
                    $name = get_string("after", 'wiki');
                    break;
                default:
                    break;
            }
            $info = wiki_b(get_string("incase", 'wiki'), '', true);
            $info .= '  ' . $name;
            $prop = null;
            $prop->class = 'textcenter';
            wiki_paragraph($info, $prop);
            switch ($WS->dfform['incaseatach']) {
                case 0:
                    $name = get_string("alwaysatach", 'wiki');
                    break;
                case 1:
                    $name = get_string("neveratach", 'wiki');
                    break;
                case 2:
                    $name = get_string("beforeatach", 'wiki');
                    break;
                case 3:
                    $name = get_string("afteratach", 'wiki');
                    break;
                case 4:
                    $name = get_string("bigeratach", 'wiki');
                    break;
                case 5:
                    $name = get_string("smalleratach", 'wiki');
                    break;
                default:
                    break;
            }
            $info = wiki_b(get_string("incaseatach", 'wiki'), '', true);
            $info .= '  ' . $name;
            $prop = null;
            $prop->class = 'textcenter';
            wiki_paragraph($info, $prop);
            wiki_br();
            $prop = null;
            $prop->class = 'textcenter';
            wiki_paragraph(get_string("importcheckfiles", 'wiki'), $prop);
            $prop = null;
            $prop->class = 'boxaligncenter';
            wiki_table_start($prop);
            $prop = null;
            $prop->action = 'exportxml.php?id=' . $WS->cm->id . '&amp;pageaction=importxml&amp;path=' . $WS->path;
            $prop->method = 'post';
            $prop->id = 'form1';
            wiki_form_start($prop);
            $prop = null;
            $prop->name = 'dfformincase';
            $prop->value = $WS->dfform['incase'];
            wiki_input_hidden($prop);
            $prop = null;
            $prop->name = 'dfformincaseatach';
            $prop->value = $WS->dfform['incaseatach'];
            wiki_input_hidden($prop);
            $prop = null;
            $prop->name = 'dfformsure';
            $prop->value = get_string('yes');
            wiki_input_submit($prop);
            wiki_form_end();
            wiki_change_column();
            $prop = null;
            $prop->action = 'exportxml.php?id=' . $WS->cm->id . '&amp;pageaction=importewiki&amp;path=' . $WS->path . '&amp;file=' . $file;
            $prop->method = 'post';
            $prop->id = 'form2';
            wiki_form_start($prop);
            $prop = null;
            $prop->name = 'dfformcancel';
            $prop->value = get_string('no');
            wiki_input_submit($prop);
            wiki_form_end();
            wiki_table_end();
        } else {
            //create the form to import
            $prop = null;
            $prop->action = 'exportxml.php?id=' . $WS->cm->id . '&amp;pageaction=importewiki&amp;type=' . $WS->type . '&amp;path=' . $WS->path . '&amp;file=' . $file;
            $prop->method = 'post';
            $prop->id = 'form';
            wiki_form_start($prop);
            $prop = null;
            $prop->border = '0';
            $prop->class = 'boxaligncenter';
            $prop->classtd = 'nwikileftnow';
            wiki_table_start($prop);
            wiki_b(get_string('incase', 'wiki'));
            wiki_table_start();
            $prop = null;
            $prop->name = 'dfformincase';
            $prop->value = '0';
            $prop->checked = 'checked';
            wiki_input_radio($prop);
            print_string('always', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincase';
            $prop->value = '1';
            wiki_input_radio($prop);
            print_string('never', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincase';
            $prop->value = '2';
            wiki_input_radio($prop);
            print_string('before', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincase';
            $prop->value = '3';
            wiki_input_radio($prop);
            print_string('after', 'wiki');
            wiki_table_end();
            wiki_br(2);
            $prop = null;
            $prop->class = "nwikileftnow";
            wiki_change_row($prop);
            wiki_b(get_string('incaseatach', 'wiki'));
            wiki_table_start();
            $prop = null;
            $prop->name = 'dfformincaseatach';
            $prop->value = '0';
            $prop->checked = 'checked';
            wiki_input_radio($prop);
            print_string('alwaysatach', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincaseatach';
            $prop->value = '1';
            wiki_input_radio($prop);
            print_string('neveratach', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincaseatach';
            $prop->value = '2';
            wiki_input_radio($prop);
            print_string('beforeatach', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincaseatach';
            $prop->value = '3';
            wiki_input_radio($prop);
            print_string('afteratach', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincaseatach';
            $prop->value = '4';
            wiki_input_radio($prop);
            print_string('bigeratach', 'wiki');
            wiki_change_row();
            $prop = null;
            $prop->name = 'dfformincaseatach';
            $prop->value = '5';
            wiki_input_radio($prop);
            print_string('smalleratach', 'wiki');
            wiki_table_end();
            wiki_br(2);
            $prop = null;
            $prop->class = "nwikicenternow";
            wiki_change_row($prop);
            $prop = null;
            $prop->name = 'dfformimport';
            $prop->value = get_string('import', 'wiki');
            wiki_input_submit($prop);
            wiki_table_end();
            wiki_form_end();
        }
    }
}
function wiki_hist_diff_print_versions($diff = "diff")
{
    global $WS;
    //if ($diff=="newdiff"){
    $vers->current = $WS->pageolddata->version;
    $vers->old = $WS->pageverdata->version;
    wiki_size_text(get_string('comparingwith', 'wiki', $vers), 2);
    //}
    $prev = $WS->pageolddata->version - 1;
    $next = $WS->pageolddata->version + 1;
    $specialvers = array();
    $prop = null;
    $prop->href = 'view.php?id=' . $WS->linkid . '&amp;page=' . $diff . '/' . urlencode($WS->pageolddata->pagename) . '&amp;gid=' . $WS->groupmember->groupid . '&amp;uid=' . $WS->member->id . '&amp;ver=' . $WS->pageolddata->version . '/1&amp;dfcontent=11';
    if ($WS->pageolddata->version != 1) {
        $out = wiki_a(get_string('initial', 'wiki'), $prop, true);
    } else {
        $out = '<b>1</b>';
    }
    $specialvers[1] = $out;
    $prop = null;
    $prop->href = 'view.php?id=' . $WS->linkid . '&amp;page=' . $diff . '/' . urlencode($WS->pageolddata->pagename) . '&amp;gid=' . $WS->groupmember->groupid . '&amp;uid=' . $WS->member->id . '&amp;ver=' . $WS->pageolddata->version . '/' . $next . '&amp;dfcontent=11';
    $out = wiki_a(get_string('next'), $prop, true);
    $specialvers[$next] = $out;
    $prop = null;
    $prop->href = 'view.php?id=' . $WS->linkid . '&amp;page=' . $diff . '/' . urlencode($WS->pageolddata->pagename) . '&amp;gid=' . $WS->groupmember->groupid . '&amp;uid=' . $WS->member->id . '&amp;ver=' . $WS->pageolddata->version . '/' . $prev . '&amp;dfcontent=11';
    $out = wiki_a(get_string('previous'), $prop, true);
    $specialvers[$prev] = $out;
    $prop = null;
    $prop->href = 'view.php?id=' . $WS->linkid . '&amp;page=' . $diff . '/' . urlencode($WS->pageolddata->pagename) . '&amp;gid=' . $WS->groupmember->groupid . '&amp;uid=' . $WS->member->id . '&amp;ver=' . $WS->pageolddata->version . '&amp;dfcontent=11';
    $out = wiki_a(get_string('current', 'wiki'), $prop, true);
    $specialvers[$WS->pagedata->version] = $out;
    print_simple_box_start('center', '100%', '', '20');
    //get how many versions have the page
    $ead = wiki_manager_get_instance();
    $vers = $ead->get_wiki_page_versions($WS->pageolddata->dfwiki);
    if (!$vers) {
        $vers = array();
    }
    $vers = count($vers);
    echo get_string('comparewith', 'wiki') . ': ';
    //wiki_table_start();
    $j = false;
    for ($i = $WS->pagedata->version; $i > $WS->pagedata->version - $vers && $i > 0; $i--) {
        /*
         *if($j){
         *    wiki_change_column();
         *}else {
         *    $j=true;
         *}
         */
        //put in bold the compared version
        if ($i == $WS->pageverdata->version) {
            $bolds = array('<b>', '</b>');
        } else {
            $bolds = array('', '');
        }
        //print the version link
        if (isset($specialvers[$i])) {
            echo $bolds[0] . $specialvers[$i] . $bolds[1];
        } else {
            $prop = null;
            if ($i != $WS->pageolddata->version) {
                $prop->href = 'view.php?id=' . $WS->linkid . '&amp;page=' . $diff . '/' . urlencode($WS->pageolddata->pagename) . '&amp;gid=' . $WS->groupmember->groupid . '&amp;uid=' . $WS->member->id . '&amp;ver=' . $WS->pageolddata->version . '/' . $i . '&amp;dfcontent=11';
                wiki_a($bolds[0] . $i . $bolds[1], $prop);
            } else {
                echo '<b>' . $i . '</b> ';
            }
        }
        if ($i != $WS->pagedata->version - $vers + 1 && $i > 1) {
            //wiki_change_column();
            echo '- ';
        }
    }
    wiki_table_end();
    print_simple_box_end();
    wiki_br();
}
function wiki_print_edit_smileis(&$WS)
{
    global $CFG;
    $smileis = array(':-)', ':-D', ';-)', ':-/', 'V-.', ':-P', 'B-)', '^-)', '8-)', '8-o', ':-(', '8-.', ':-I', ':-X', ':o)', 'P-|', '8-[', 'xx-P', '|-.', '}-]');
    //import javascript
    $prop = null;
    $prop->href = '#';
    if (isset($WS->dfcourse)) {
        $prop->class = 'wiki_folding_co';
    } else {
        $prop->class = 'wiki_folding';
    }
    $button = wiki_a('', $prop, true);
    $prop = null;
    $prop->class = 'wiki_listme';
    $prop->classli = 'wiki_listme';
    wiki_start_ul($prop);
    $prop = null;
    $prop->src = $CFG->wwwroot . '/mod/wiki/editor/images/ed_smiley1.gif';
    if (isset($WS->dfcourse)) {
        $prop->class = 'icsme_co';
    } else {
        $prop->class = 'icsme';
    }
    wiki_img($prop);
    echo $button;
    $prop = null;
    $prop->class = 'wiki_listme';
    $prop->style = 'margin:auto auto auto 5px;display:none';
    $prop->classli = 'wiki_listme';
    wiki_start_ul($prop);
    //generate tree content.
    $put = 1;
    foreach ($smileis as $smiley) {
        //image url: http://147.83.59.184/moodle15/file.php/#courseid/
        $img = $smiley;
        replace_smilies($img);
        $prop = null;
        $prop->href = 'javascript:insertTags(\'' . $smiley . '\',\'\',\'\')';
        wiki_a($img, $prop);
        //only 10 emoticons per line
        if ($put > 4) {
            wiki_br();
            $put = 0;
        }
        $put++;
    }
    wiki_end_ul();
    wiki_end_ul();
}