From 5938401cffc545c8dbd926f8712588139005758f Mon Sep 17 00:00:00 2001
From: moodler <moodler>
Date: Tue, 2 Nov 2004 12:53:32 +0000
Subject: [PATCH] Updated Resource, Wiki and Scorm to use the new
 files/index.php to choose files.   The old coursefiles.php is obsolete.

---
 mod/resource/coursefiles.php     | 768 ------------------------------
 mod/resource/type/file/file.html |   2 +-
 mod/resource/version.php         |   4 +-
 mod/scorm/coursefiles.php        | 793 -------------------------------
 mod/scorm/mod.html               |   2 +-
 mod/scorm/version.php            |   4 +-
 mod/wiki/mod.html                |   2 +-
 mod/wiki/version.php             |   3 +-
 mod/wiki/wikifiles.php           | 781 ------------------------------
 version.php                      |   2 +-
 10 files changed, 10 insertions(+), 2351 deletions(-)
 delete mode 100644 mod/resource/coursefiles.php
 delete mode 100755 mod/scorm/coursefiles.php
 delete mode 100755 mod/wiki/wikifiles.php

diff --git a/mod/resource/coursefiles.php b/mod/resource/coursefiles.php
deleted file mode 100644
index 579b007a9a..0000000000
--- a/mod/resource/coursefiles.php
+++ /dev/null
@@ -1,768 +0,0 @@
-<?php // $Id$
-
-//  Manage all uploaded files in a course file area
-
-//  This file is a hack to files/index.php that removes
-//  the headers and adds file selection capability
-
-//  All the Moodle-specific stuff is in this top section
-//  Configuration and access control occurs here.
-//  Must define:  USER, basedir, baseweb, html_header and html_footer
-//  USER is a persistent variable using sessions
-
-    require("../../config.php");
-    require("../../files/mimetypes.php");
-
-    $id      = required_param('id', PARAM_INT);
-    $file    = optional_param('file', '', PARAM_PATH);
-    $wdir    = optional_param('wdir', '', PARAM_PATH);
-    $action  = optional_param('action', '', PARAM_ACTION);
-    $name    = optional_param('name', '', PARAM_FILE);
-    $oldname = optional_param('oldname', '', PARAM_FILE);
-
-    if (! $course = get_record("course", "id", $id) ) {
-        error("That's an invalid course id");
-    }
-
-    require_login($course->id);
-
-    if (! isteacheredit($course->id) ) {
-        error("You need to be a teacher with editing privileges");
-    }
-
-    function html_footer() {
-        echo "</td></tr></table></body></html>";
-    }
-
-    function html_header($course, $wdir, $formfield=""){
-
-        global $CFG, $THEME, $ME;
-
-        if ($course->id == SITEID) {
-            $strfiles = get_string("sitefiles");
-        } else {
-            $strfiles = get_string("files");
-        }
-
-        if ($wdir == "/") {
-            $fullnav = "$strfiles";
-        } else {
-            $dirs = explode("/", $wdir);
-            $numdirs = count($dirs);
-            $link = "";
-            $navigation = "";
-            for ($i=1; $i<$numdirs-1; $i++) {
-               $navigation .= " -> ";
-               $link .= "/".urlencode($dirs[$i]);
-               $navigation .= "<a href=\"".$ME."?id=$course->id&amp;wdir=$link\">".$dirs[$i]."</a>";
-            }
-            $fullnav = "<a href=\"".$ME."?id=$course->id&amp;wdir=/\">$strfiles</a> $navigation -> ".$dirs[$numdirs-1];
-        }
-
-        print_header();
-        ?>
-        <script language="javascript" type="text/javascript">
-        <!--
-        function set_value(txt) {
-            opener.document.forms['form'].reference.value = txt;
-            window.close();
-        }
-        -->
-        </script>
-        <?php
-
-        $fullnav = str_replace('->', '&raquo;', "$course->shortname -> $fullnav");
-        echo '<table border="0" cellpadding="3" cellspacing="0" width="100%">';
-        echo '<tr>';
-        echo '<td bgcolor="'.$THEME->cellheading.'" class="navbar">';
-        echo '<font size="2"><b>'.$fullnav.'</b></font>';
-        echo '</td>';
-        echo '</tr>';
-        echo '</table>';
-
-        if ($course->id == SITEID) {
-            print_heading(get_string("publicsitefileswarning"), "center", 2);
-        }
-
-        echo "<table border=\"0\" align=\"center\" cellspacing=\"3\" cellpadding=\"3\" width=\"640\">";
-        echo "<tr>";
-        echo "<td colspan=\"2\">";
-    }
-
-    if (! $basedir = make_upload_directory("$course->id")) {
-        error("The site administrator needs to fix the file permissions");
-    }
-
-    $baseweb = $CFG->wwwroot;
-
-//  End of configuration and access control
-
-
-    if (!$wdir) {
-        $wdir="/";
-    }
-
-    if (($wdir != '/' and detect_munged_arguments($wdir, 0))
-      or ($file != '' and detect_munged_arguments($file, 0))) {
-        $message = "Error: Directories can not contain \"..\"";
-        $wdir = "/";
-        $action = "";
-    }
-
-
-    switch ($action) {
-
-        case "upload":
-            html_header($course, $wdir);
-            require_once($CFG->dirroot.'/lib/uploadlib.php');
-                
-            if (!empty($save) and confirm_sesskey()) {
-                $um = new upload_manager('userfile',false,false,$course,false,0);
-                $dir = "$basedir$wdir";
-                if ($um->process_file_uploads($dir)) {
-                    notify(get_string('uploadedfile'));
-                }
-                // um will take care of error reporting.
-                displaydir($wdir);
-
-            } else {
-                $upload_max_filesize = get_max_upload_file_size($CFG->maxbytes);
-                $filesize = display_size($upload_max_filesize);
-
-                $struploadafile = get_string("uploadafile");
-                $struploadthisfile = get_string("uploadthisfile");
-                $strmaxsize = get_string("maxsize", "", $filesize);
-                $strcancel = get_string("cancel");
-
-                echo "<p>$struploadafile ($strmaxsize) --> <b>$wdir</b>";
-                echo "<table><tr><td colspan=\"2\">";
-                echo "<form enctype=\"multipart/form-data\" method=\"post\" action=\"".$ME."\">";
-                upload_print_form_fragment(1,array('userfile'),null,false,null,$course->maxbytes,0,false);
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"upload\" />";
-                echo " <input type=\"hidden\" name=\"sesskey\" value=\"$USER->sesskey\" />";
-                echo " </td><tr><td width=\"10\">";
-                echo " <input type=\"submit\" name=\"save\" value=\"$struploadthisfile\" />";
-                echo "</form>";
-                echo "</td><td width=\"100%\">";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "delete":
-            if (!empty($confirm) and confirm_sesskey()) {
-                html_header($course, $wdir);
-                foreach ($USER->filelist as $file) {
-                    $fullfile = $basedir.$file;
-                    if (! fulldelete($fullfile)) {
-                        echo "<br />Error: Could not delete: $fullfile";
-                    }
-                }
-                clearfilelist();
-                displaydir($wdir);
-                html_footer();
-
-            } else {
-                html_header($course, $wdir);
-                if (setfilelist($_POST)) {
-                    echo "<p align=\"center\">".get_string("deletecheckwarning").":</p>";
-                    print_simple_box_start("center");
-                    printfilelist($USER->filelist);
-                    print_simple_box_end();
-                    echo "<br />";
-                    notice_yesno (get_string("deletecheckfiles"),
-                                "".basename($ME)."?id=$id&amp;wdir=$wdir&amp;action=delete&amp;confirm=1&amp;sesskey=$USER->sesskey",
-                                "".basename($ME)."?id=$id&amp;wdir=$wdir&amp;action=cancel");
-                } else {
-                    displaydir($wdir);
-                }
-                html_footer();
-            }
-            break;
-
-        case "move":
-            html_header($course, $wdir);
-            if (($count = setfilelist($_POST)) and confirm_sesskey()) {
-                $USER->fileop     = $action;
-                $USER->filesource = $wdir;
-                echo "<p align=\"center\">";
-                print_string("selectednowmove", "moodle", $count);
-                echo "</p>";
-            }
-            displaydir($wdir);
-            html_footer();
-            break;
-
-        case "paste":
-            html_header($course, $wdir);
-            if (isset($USER->fileop) and ($USER->fileop == "move") and confirm_sesskey()) {
-                foreach ($USER->filelist as $file) {
-                    $shortfile = basename($file);
-                    $oldfile = $basedir.$file;
-                    $newfile = $basedir.$wdir."/".$shortfile;
-                    if (!rename($oldfile, $newfile)) {
-                        echo "<p>Error: $shortfile not moved";
-                    }
-                }
-            }
-            clearfilelist();
-            displaydir($wdir);
-            html_footer();
-            break;
-
-        case "rename":
-            if (!empty($name) and confirm_sesskey()) {
-                html_header($course, $wdir);
-                $name    = clean_filename($name);
-                if (file_exists($basedir.$wdir."/".$name)) {
-                    echo "Error: $name already exists!";
-                } else if (!rename($basedir.$wdir."/".$oldname, $basedir.$wdir."/".$name)) {
-                    echo "Error: could not rename $oldname to $name";
-                }
-                displaydir($wdir);
-
-            } else {
-                $strrename = get_string("rename");
-                $strcancel = get_string("cancel");
-                $strrenamefileto = get_string("renamefileto", "moodle", $file);
-                html_header($course, $wdir, "form.name");
-                echo "<p>$strrenamefileto:";
-                echo "<table><tr><td>";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"rename\" />";
-                echo " <input type=\"hidden\" name=\"oldname\" value=\"$file\" />";
-                echo " <input type=\"text\" name=\"name\" size=\"35\" value=\"$file\" />";
-                echo " <input type=\"hidden\" name=\"sesskey\" value=\"$USER->sesskey\" />";
-                echo " <input type=\"submit\" value=\"$strrename\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "mkdir":
-            if (!empty($name) and confirm_sesskey()) {
-                html_header($course, $wdir);
-                $name = clean_filename($name);
-                if (file_exists("$basedir$wdir/$name")) {
-                    echo "Error: $name already exists!";
-                } else if (! make_upload_directory("$course->id/$wdir/$name")) {
-                    echo "Error: could not create $name";
-                }
-                displaydir($wdir);
-
-            } else {
-                $strcreate = get_string("create");
-                $strcancel = get_string("cancel");
-                $strcreatefolder = get_string("createfolder", "moodle", $wdir);
-                html_header($course, $wdir, "form.name");
-                echo "<p>$strcreatefolder:";
-                echo "<table><tr><td>";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"mkdir\" />";
-                echo " <input type=\"text\" name=\"name\" size=\"35\" />";
-                echo " <input type=\"hidden\" name=\"sesskey\" value=\"$USER->sesskey\" />";
-                echo " <input type=\"submit\" value=\"$strcreate\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "edit":
-            html_header($course, $wdir);
-            if (isset($text) and confirm_sesskey()) {
-                $fileptr = fopen($basedir.$file,"w");
-                fputs($fileptr, stripslashes($text));
-                fclose($fileptr);
-                displaydir($wdir);
-
-            } else {
-                $streditfile = get_string("edit", "", "<b>$file</b>");
-                $fileptr  = fopen($basedir.$file, "r");
-                $contents = fread($fileptr, filesize($basedir.$file));
-                fclose($fileptr);
-
-                if (mimeinfo("type", $file) == "text/html") {
-                    $usehtmleditor = can_use_html_editor();
-                } else {
-                    $usehtmleditor = false;
-                }
-                $usehtmleditor = false;    // Always keep it off for now
-
-                print_heading("$streditfile");
-
-                echo "<table><tr><td colspan=\"2\">";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"file\" value=\"$file\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"edit\" />";
-                echo " <input type=\"hidden\" name=\"sesskey\" value=\"$USER->sesskey\" />";
-                print_textarea($usehtmleditor, 25, 80, 680, 400, "text", $contents);
-                echo "</td></tr><tr><td>";
-                echo " <input type=\"submit\" value=\"".get_string("savechanges")."\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"".get_string("cancel")."\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-
-                if ($usehtmleditor) { 
-                    use_html_editor();
-                }
-
-
-            }
-            html_footer();
-            break;
-
-        case "zip":
-            if (!empty($name) and confirm_sesskey()) {
-                html_header($course, $wdir);
-                $name = clean_filename($name);
-
-                $files = array();
-                foreach ($USER->filelist as $file) {
-                   $files[] = "$basedir/$file";
-                }
-
-                if (!zip_files($files,"$basedir/$wdir/$name")) {
-                    error(get_string("zipfileserror","error"));
-                }
-
-                clearfilelist();
-                displaydir($wdir);
-
-            } else {
-                html_header($course, $wdir, "form.name");
-
-                if (setfilelist($_POST)) {
-                    echo "<p align=\"center\">".get_string("youareabouttocreatezip").":</p>";
-                    print_simple_box_start("center");
-                    printfilelist($USER->filelist);
-                    print_simple_box_end();
-                    echo "<br />";
-                    echo "<p align=\"center\">".get_string("whattocallzip");
-                    echo "<table><tr><td>";
-                    echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                    echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                    echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                    echo " <input type=\"hidden\" name=\"action\" value=\"zip\" />";
-                    echo " <input type=\"text\" name=\"name\" size=\"35\" value=\"new.zip\" />";
-                    echo " <input type=\"submit\" value=\"".get_string("createziparchive")."\" />";
-                    echo "</form>";
-                    echo "</td><td>";
-                    echo "<form action=\"".$ME."\" method=\"get\">";
-                    echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                    echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                    echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                    echo " <input type=\"submit\" value=\"".get_string("cancel")."\" />";
-                    echo "</form>";
-                    echo "</td></tr></table>";
-                } else {
-                    displaydir($wdir);
-                    clearfilelist();
-                }
-            }
-            html_footer();
-            break;
-
-        case "unzip":
-            html_header($course, $wdir);
-            if (!empty($file) and confirm_sesskey()) {
-                $strok = get_string("ok");
-                $strunpacking = get_string("unpacking", "", $file);
-
-                echo "<p align=\"center\">$strunpacking:</p>";
-
-                $file = basename($file);
-
-                if (!unzip_file("$basedir/$wdir/$file")) {
-                    error(get_string("unzipfileserror","error"));
-                }
-
-                echo "<center><form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strok\" />";
-                echo "</form>";
-                echo "</center>";
-            } else {
-                displaydir($wdir);
-            }
-            html_footer();
-            break;
-
-        case "listzip":
-            html_header($course, $wdir);
-            if (!empty($file) and confirm_sesskey()) {
-                $strname = get_string("name");
-                $strsize = get_string("size");
-                $strmodified = get_string("modified");
-                $strok = get_string("ok");
-                $strlistfiles = get_string("listfiles", "", $file);
-
-                echo "<p align=\"center\">$strlistfiles:</p>";
-                $file = basename($file);
-
-                include_once($CFG->libdir.'/pclzip/pclzip.lib.php');
-                $archive = new PclZip(cleardoubleslashes("$basedir/$wdir/$file"));
-                if (!$list = $archive->listContent(cleardoubleslashes("$basedir/$wdir"))) {
-                    notify($archive->errorInfo(true));
-
-                } else {
-                    echo "<table cellpadding=\"4\" cellspacing=\"2\" border=\"0\" width=\"640\">";
-                    echo "<tr><th align=\"left\">$strname</th><th align=\"right\">$strsize</th><th align=\"right\">$strmodified</th></tr>";
-                    foreach ($list as $item) {
-                        echo "<tr>";
-                        print_cell("left", $item['filename']);
-                        if (! $item['folder']) {
-                            print_cell("right", display_size($item['size']));
-                        } else {
-                            echo "<td>&nbsp;</td>";
-                        }
-                        $filedate  = userdate($item['mtime'], get_string("strftimedatetime"));
-                        print_cell("right", $filedate);
-                        echo "</tr>";
-                    }
-                    echo "</table>";
-                }
-                echo "<br /><center><form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strok\" />";
-                echo "</form>";
-                echo "</center>";
-            } else {
-                displaydir($wdir);
-            }
-            html_footer();
-            break;
-
-        case "cancel";
-            clearfilelist();
-
-        default:
-            html_header($course, $wdir);
-            displaydir($wdir);
-            html_footer();
-            break;
-}
-
-
-/// FILE FUNCTIONS ///////////////////////////////////////////////////////////
-
-
-function fulldelete($location) {
-    if (is_dir($location)) {
-        $currdir = opendir($location);
-        while ($file = readdir($currdir)) {
-            if ($file <> ".." && $file <> ".") {
-                $fullfile = $location."/".$file;
-                if (is_dir($fullfile)) {
-                    if (!fulldelete($fullfile)) {
-                        return false;
-                    }
-                } else {
-                    if (!unlink($fullfile)) {
-                        return false;
-                    }
-                }
-            }
-        }
-        closedir($currdir);
-        if (! rmdir($location)) {
-            return false;
-        }
-
-    } else {
-        if (!unlink($location)) {
-            return false;
-        }
-    }
-    return true;
-}
-
-
-
-function setfilelist($VARS) {
-    global $USER;
-
-    $USER->filelist = array ();
-    $USER->fileop = "";
-
-    $count = 0;
-    foreach ($VARS as $key => $val) {
-        if (substr($key,0,4) == "file") {
-            $count++;
-            $val = rawurldecode($val);
-            if (!detect_munged_arguments($val, 0)) {
-                $USER->filelist[] = $val;
-            }
-        }
-    }
-    return $count;
-}
-
-function clearfilelist() {
-    global $USER;
-
-    $USER->filelist = array ();
-    $USER->fileop = "";
-}
-
-
-function printfilelist($filelist) {
-    global $basedir, $CFG;
-
-    foreach ($filelist as $file) {
-        if (is_dir($basedir.$file)) {
-            echo "<img src=\"$CFG->pixpath/f/folder.gif\" height=\"16\" width=\"16\" alt=\"\" /> $file<br />";
-            $subfilelist = array();
-            $currdir = opendir($basedir.$file);
-            while ($subfile = readdir($currdir)) {
-                if ($subfile <> ".." && $subfile <> ".") {
-                    $subfilelist[] = $file."/".$subfile;
-                }
-            }
-            printfilelist($subfilelist);
-
-        } else {
-            $icon = mimeinfo("icon", $file);
-            echo "<img src=\"$CFG->pixpath/f/$icon\"  height=\"16\" width=\"16\" alt=\"\" /> $file<br />";
-        }
-    }
-}
-
-
-function print_cell($alignment="center", $text="&nbsp;") {
-    echo "<td align=\"$alignment\" nowrap=\"nowrap\">";
-    echo "<font size=\"-1\" face=\"Arial, Helvetica\">";
-    echo "$text";
-    echo "</font>";
-    echo "</td>\n";
-}
-
-function displaydir ($wdir) {
-
-//  $wdir == / or /a or /a/b/c/d  etc
-
-    global $basedir;
-    global $id;
-    global $USER, $CFG, $ME;
-
-    $fullpath = $basedir.$wdir;
-
-    $directory = opendir($fullpath);             // Find all files
-    while ($file = readdir($directory)) {
-        if ($file == "." || $file == "..") {
-            continue;
-        }
-
-        if (is_dir($fullpath."/".$file)) {
-            $dirlist[] = $file;
-        } else {
-            $filelist[] = $file;
-        }
-    }
-    closedir($directory);
-
-    $strname = get_string("name");
-    $strsize = get_string("size");
-    $strmodified = get_string("modified");
-    $straction = get_string("action");
-    $strmakeafolder = get_string("makeafolder");
-    $struploadafile = get_string("uploadafile");
-    $strwithchosenfiles = get_string("withchosenfiles");
-    $strmovetoanotherfolder = get_string("movetoanotherfolder");
-    $strmovefilestohere = get_string("movefilestohere");
-    $strdeletecompletely = get_string("deletecompletely");
-    $strcreateziparchive = get_string("createziparchive");
-    $strrename = get_string("rename");
-    $stredit   = get_string("edit");
-    $strunzip  = get_string("unzip");
-    $strlist   = get_string("list");
-    $strchoose   = get_string("choose");
-
-
-    echo "<form action=\"".$ME."\" method=\"post\" name=\"dirform\">";
-    echo "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" width=\"640\">";
-    echo "<tr>";
-    echo "<th width=\"5\"></th>";
-    echo "<th align=\"left\">$strname</th>";
-    echo "<th align=\"right\">$strsize</th>";
-    echo "<th align=\"right\">$strmodified</th>";
-    echo "<th align=\"right\">$straction</th>";
-    echo "</tr>\n";
-
-    if ($wdir == "/") {
-        $wdir = "";
-    }
-
-    $count = 0;
-
-    if (!empty($dirlist)) {
-        asort($dirlist);
-        foreach ($dirlist as $dir) {
-
-            $count++;
-
-            $filename = $fullpath."/".$dir;
-            $fileurl  = rawurlencode($wdir."/".$dir);
-            $filesafe = rawurlencode($dir);
-            $filesize = display_size(get_directory_size("$fullpath/$dir"));
-            $filedate = userdate(filemtime($filename), "%d %b %Y, %I:%M %p");
-
-            echo "<tr>";
-
-            print_cell("center", "<input type=\"checkbox\" name=\"file$count\" value=\"$fileurl\" />");
-            print_cell("left", "<a href=\"".basename($ME)."?id=$id&amp;wdir=$fileurl\"><img src=\"$CFG->pixpath/f/folder.gif\" height=\"16\" width=\"16\" border=\"0\" alt=\"Folder\" /></a> <a href=\"".basename($ME)."?id=$id&amp;wdir=$fileurl\">".htmlspecialchars($dir)."</a>");
-            print_cell("right", "-");
-            print_cell("right", $filedate);
-            print_cell("right", "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$filesafe&amp;action=rename\">$strrename</a>");
-
-            echo "</tr>";
-        }
-    }
-
-    if (!empty($filelist)) {
-        asort($filelist);
-        foreach ($filelist as $file) {
-
-            $icon = mimeinfo("icon", $file);
-
-            $count++;
-            $filename    = "$fullpath/$file";
-            $fileurl     = "$wdir/$file";
-            $filesafe    = rawurlencode($file);
-            $fileurlsafe = rawurlencode($fileurl);
-            $filedate    = userdate(filemtime($filename), "%d %b %Y, %I:%M %p");
-
-            if (substr($fileurl,0,1) == '/') {
-                $selectfile = substr($fileurl,1);
-            } else {
-                $selectfile = $fileurl;
-            }
-            if ($CFG->slasharguments) {
-                $ffurl = "/file.php/$id$fileurl";
-            } else {
-                $ffurl = "/file.php?file=/$id$fileurl";
-            }
-
-            echo "<tr>";
-
-            print_cell("center", "<input type=\"checkbox\" name=\"file$count\" value=\"$fileurl\" />");
-
-            echo "<td align=\"left\" nowrap=\"nowrap\">";
-            link_to_popup_window ($ffurl, "display",
-                                  "<img src=\"$CFG->pixpath/f/$icon\" height=\"16\" width=\"16\" border=\"0\" alt=\"file\" />",
-                                  480, 640);
-            echo "<font size=\"-1\" face=\"Arial, Helvetica\">";
-            link_to_popup_window ($ffurl, "display", htmlspecialchars($file), 480, 640);
-            echo "</font></td>";
-
-            $file_size = filesize($filename);
-            print_cell("right", display_size($file_size));
-            print_cell("right", $filedate);
-
-            $edittext = "<b><a onMouseDown=\"return set_value('$selectfile')\" href=\"\">$strchoose</a></b>&nbsp;";
-
-            if ($icon == "text.gif" || $icon == "html.gif") {
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=edit\">$stredit</a>";
-            } else if ($icon == "zip.gif") {
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=unzip&amp;sesskey=$USER->sesskey\">$strunzip</a>&nbsp;";
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=listzip&amp;sesskey=$USER->sesskey\">$strlist</a> ";
-            }
-
-            print_cell("right", "$edittext <a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$filesafe&amp;action=rename\">$strrename</a>");
-
-            echo "</tr>";
-        }
-    }
-    echo "</table>";
-    echo "<hr width=\"640\" align=\"center\" selected=\"selected\" size=\"1\" />";
-
-    if (empty($wdir)) {
-        $wdir = "/";
-    }
-
-    echo "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" width=\"640\">";
-    echo "<tr><td>";
-    echo "<input type=\"hidden\" name=\"id\" value=\"$id\" />";
-    echo "<input type=\"hidden\" name=\"wdir\" value=\"$wdir\" /> ";
-    echo "<input type=\"hidden\" name=\"sesskey\" value=\"$USER->sesskey\" />";
-    $options = array (
-                   "move" => "$strmovetoanotherfolder",
-                   "delete" => "$strdeletecompletely",
-                   "zip" => "$strcreateziparchive"
-               );
-    if (!empty($count)) {
-        choose_from_menu ($options, "action", "", "$strwithchosenfiles...", "javascript:document.dirform.submit()");
-    }
-
-    echo "</form>";
-    echo "<td align=\"center\">";
-    if (!empty($USER->fileop) and ($USER->fileop == "move") and ($USER->filesource <> $wdir)) {
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"paste\" />";
-        echo " <input type=\"hidden\" name=\"sesskey\" value=\"$USER->sesskey\" />";
-        echo " <input type=\"submit\" value=\"$strmovefilestohere\" />";
-        echo "</form>";
-    }
-    echo "<td align=\"right\">";
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"mkdir\" />";
-        echo " <input type=\"submit\" value=\"$strmakeafolder\" />";
-        echo "</form>";
-    echo "</td>";
-    echo "<td align=\"right\">";
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"upload\" />";
-        echo " <input type=\"submit\" value=\"$struploadafile\" />";
-        echo "</form>";
-    echo "</td></tr>";
-    echo "</table>";
-    echo "<hr width=\"640\" align=\"center\" selected=\"selected\" size=\"1\" />";
-
-}
-
-?>
diff --git a/mod/resource/type/file/file.html b/mod/resource/type/file/file.html
index 3745fb3157..548f2b85d2 100644
--- a/mod/resource/type/file/file.html
+++ b/mod/resource/type/file/file.html
@@ -36,7 +36,7 @@
     <td>
     <?php
         echo "<input name=\"reference\" size=\"90\" value=\"$form->reference\" alt=\"reference\" /><br />";
-        button_to_popup_window ("/mod/resource/coursefiles.php?id=$form->course", "coursefiles", $strchooseafile, 500, 750, $strchooseafile);
+        button_to_popup_window ("/files/index.php?id=$form->course&choose=form.reference", "coursefiles", $strchooseafile, 500, 750, $strchooseafile);
         echo "<input type=\"button\" name=\"searchbutton\" value=\"$strsearch ...\" ".
              "onclick=\"return window.open('$CFG->resource_websearch', 'websearch', 'menubar=1,location=1,directories=1,toolbar=1,scrollbars,resizable,width=800,height=600');\" />\n";
     ?>
diff --git a/mod/resource/version.php b/mod/resource/version.php
index b5f834ffcb..120987655b 100644
--- a/mod/resource/version.php
+++ b/mod/resource/version.php
@@ -5,8 +5,8 @@
 //  This fragment is called by /admin/index.php
 ////////////////////////////////////////////////////////////////////////////////
 
-$module->version  = 2004091700;
-$module->requires = 2004091700;  // Requires this Moodle version
+$module->version  = 2004110200;
+$module->requires = 2004110200;  // Requires this Moodle version
 $module->cron     = 0;
 
 ?>
diff --git a/mod/scorm/coursefiles.php b/mod/scorm/coursefiles.php
deleted file mode 100755
index 7ca83be6b6..0000000000
--- a/mod/scorm/coursefiles.php
+++ /dev/null
@@ -1,793 +0,0 @@
-<?php // $Id$
-
-//  Manage ONLY ZIP & PIF uploaded files in a course file area
-
-//  This file is a hack to files/index.php that removes
-//  the headers and adds some controls so that images
-//  can be selected within the Richtext editor.
-
-//  All the Moodle-specific stuff is in this top section
-//  Configuration and access control occurs here.
-//  Must define:  USER, basedir, baseweb, html_header and html_footer
-//  USER is a persistent variable using sessions
-
-    require("../../config.php");
-    require("../../files/mimetypes.php");
-
-    require_variable($id);
-    optional_variable($file, "");
-    optional_variable($wdir, "");
-    optional_variable($action, "");
-
-    if (! $course = get_record("course", "id", $id) ) {
-        error("That's an invalid course id");
-    }
-
-    require_login($course->id);
-
-    if (! isteacher($course->id) ) {
-        error("Only teachers can edit files");
-    }
-
-    function html_footer() {
-        echo "</td></tr></table></body></html>";
-    }
-
-    function html_header($course, $wdir, $formfield=""){
-
-        global $CFG, $THEME, $ME;
-
-        if ($course->id == SITEID) {
-            $strfiles = get_string("sitefiles");
-        } else {
-            $strfiles = get_string("files");
-        }
-
-        if ($wdir == "/") {
-            $fullnav = "$strfiles";
-        } else {
-            $dirs = explode("/", $wdir);
-            $numdirs = count($dirs);
-            $link = "";
-            $navigation = "";
-            for ($i=1; $i<$numdirs; $i++) {
-               $navigation .= " -> ";
-               $link .= "/".urlencode($dirs[$i]);
-               $navigation .= "<a href=\"".$ME."?id=$course->id&amp;wdir=$link\">".$dirs[$i]."</a>";
-            }
-            $fullnav = "<a href=\"".$ME."?id=$course->id&amp;wdir=/\">$strfiles</a> $navigation";
-        }
-
-        print_header();
-        ?>
-        <script language="javascript" type="text/javascript">
-        <!--
-        function set_value(txt) {
-            opener.document.forms['form'].reference.value = txt;
-            window.close();
-        }
-        -->
-        </script>
-        <?php
-
-        echo '<table border="0" cellpadding="3" cellspacing="0" width="100%">';
-        echo '<tr>';
-        echo '<td bgcolor="'.$THEME->cellheading.'" class="navbar">';
-        echo '<font size="2"><b>'."$course->shortname -> $fullnav".'</b></font>';
-        echo '</td>';
-        echo '</tr>';
-        echo '</table>';
-
-        if ($course->id == SITEID) {
-            print_heading(get_string("publicsitefileswarning"), "center", 2);
-        }
-
-        echo "<table border=\"0\" align=\"center\" cellspacing=\"3\" cellpadding=\"3\" width=\"640\">";
-        echo "<tr>";
-        echo "<td colspan=\"2\">";
-    }
-
-    if (! $basedir = make_upload_directory("$course->id")) {
-        error("The site administrator needs to fix the file permissions");
-    }
-
-    $baseweb = $CFG->wwwroot;
-
-//  End of configuration and access control
-
-
-    $regexp="\\.\\.";
-    if (ereg( $regexp, $file, $regs )| ereg( $regexp, $wdir,$regs )) {
-        $message = "Error: Directories can not contain \"..\"";
-        $wdir = "/";
-        $action = "";
-    }
-
-    if (!$wdir) {
-        $wdir="/";
-    }
-
-
-    switch ($action) {
-
-        case "upload":
-            html_header($course, $wdir);
-            require_once($CFG->dirroot.'/lib/uploadlib.php');
-                
-            if (!empty($save)) {
-                $um = new upload_manager('userfile',false,false,$course,false,0);
-                $dir = "$basedir$wdir";
-                if ($um->process_file_uploads($dir)) {
-                    notify(get_string('uploadedfile'));
-                }
-                // um will take care of error reporting.
-                displaydir($wdir);
-            } else {
-                $upload_max_filesize = get_max_upload_file_size($CFG->maxbytes);
-                $filesize = display_size($upload_max_filesize);
-
-                $struploadafile = get_string("uploadafile");
-                $struploadthisfile = get_string("uploadthisfile");
-                $strmaxsize = get_string("maxsize", "", $filesize);
-                $strcancel = get_string("cancel");
-
-                echo "<p>$struploadafile ($strmaxsize) --> <b>$wdir</b>";
-                echo "<table><tr><td colspan=\"2\">";
-                echo "<form enctype=\"multipart/form-data\" method=\"post\" action=\"".$ME."\">";
-                upload_print_form_fragment(1,array('userfile'),null,false,null,$course->maxbytes,0,false);
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"upload\" />";
-                echo " </td><tr><td width=\"10\">";
-                echo " <input type=\"submit\" name=\"save\" value=\"$struploadthisfile\" />";
-                echo "</form>";
-                echo "</td><td width=\"100%\">";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "delete":
-            if (!empty($confirm)) {
-                html_header($course, $wdir);
-                foreach ($USER->filelist as $file) {
-                    $fullfile = $basedir.$file;
-                    if (! fulldelete($fullfile)) {
-                        echo "<br />Error: Could not delete: $fullfile";
-                    }
-                }
-                clearfilelist();
-                displaydir($wdir);
-                html_footer();
-
-            } else {
-                html_header($course, $wdir);
-                if (setfilelist($_POST)) {
-                    echo "<p align=\"center\">".get_string("deletecheckwarning").":</p>";
-                    print_simple_box_start("center");
-                    printfilelist($USER->filelist);
-                    print_simple_box_end();
-                    echo "<br />";
-                    notice_yesno (get_string("deletecheckfiles"),
-                                "".basename($ME)."?id=$id&amp;wdir=$wdir&amp;action=delete&amp;confirm=1",
-                                "".basename($ME)."?id=$id&amp;wdir=$wdir&amp;action=cancel");
-                } else {
-                    displaydir($wdir);
-                }
-                html_footer();
-            }
-            break;
-
-        case "move":
-            html_header($course, $wdir);
-            if ($count = setfilelist($_POST)) {
-                $USER->fileop     = $action;
-                $USER->filesource = $wdir;
-                echo "<p align=\"center\">";
-                print_string("selectednowmove", "moodle", $count);
-                echo "</p>";
-            }
-            displaydir($wdir);
-            html_footer();
-            break;
-
-        case "paste":
-            html_header($course, $wdir);
-            if (isset($USER->fileop) and $USER->fileop == "move") {
-                foreach ($USER->filelist as $file) {
-                    $shortfile = basename($file);
-                    $oldfile = $basedir.$file;
-                    $newfile = $basedir.$wdir."/".$shortfile;
-                    if (!rename($oldfile, $newfile)) {
-                        echo "<p>Error: $shortfile not moved";
-                    }
-                }
-            }
-            clearfilelist();
-            displaydir($wdir);
-            html_footer();
-            break;
-
-        case "rename":
-            if (!empty($name)) {
-                html_header($course, $wdir);
-                $name    = clean_filename($name);
-                $oldname = clean_filename($oldname);
-                if (file_exists($basedir.$wdir."/".$name)) {
-                    echo "Error: $name already exists!";
-                } else if (!rename($basedir.$wdir."/".$oldname, $basedir.$wdir."/".$name)) {
-                    echo "Error: could not rename $oldname to $name";
-                }
-                displaydir($wdir);
-
-            } else {
-                $strrename = get_string("rename");
-                $strcancel = get_string("cancel");
-                $strrenamefileto = get_string("renamefileto", "moodle", $file);
-                html_header($course, $wdir, "form.name");
-                echo "<p>$strrenamefileto:";
-                echo "<table><tr><td>";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"rename\" />";
-                echo " <input type=\"hidden\" name=\"oldname\" value=\"$file\" />";
-                echo " <input type=\"text\" name=\"name\" size=\"35\" value=\"$file\" />";
-                echo " <input type=\"submit\" value=\"$strrename\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "mkdir":
-            if (!empty($name)) {
-                html_header($course, $wdir);
-                $name = clean_filename($name);
-                if (file_exists("$basedir$wdir/$name")) {
-                    echo "Error: $name already exists!";
-                } else if (! make_upload_directory("$course->id/$wdir/$name")) {
-                    echo "Error: could not create $name";
-                }
-                displaydir($wdir);
-
-            } else {
-                $strcreate = get_string("create");
-                $strcancel = get_string("cancel");
-                $strcreatefolder = get_string("createfolder", "moodle", $wdir);
-                html_header($course, $wdir, "form.name");
-                echo "<p>$strcreatefolder:";
-                echo "<table><tr><td>";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"mkdir\" />";
-                echo " <input type=\"text\" name=\"name\" size=\"35\" />";
-                echo " <input type=\"submit\" value=\"$strcreate\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "edit":
-            html_header($course, $wdir);
-            if (isset($text)) {
-                $fileptr = fopen($basedir.$file,"w");
-                fputs($fileptr, stripslashes($text));
-                fclose($fileptr);
-                displaydir($wdir);
-
-            } else {
-                $streditfile = get_string("edit", "", "<b>$file</b>");
-                $fileptr  = fopen($basedir.$file, "r");
-                $contents = fread($fileptr, filesize($basedir.$file));
-                fclose($fileptr);
-
-                if (mimeinfo("type", $file) == "text/html") {
-                    if ($usehtmleditor = can_use_richtext_editor()) {
-                        $onsubmit = "onsubmit=\"copyrichtext(document.form.text);\"";
-                    } else {
-                        $onsubmit = "";
-                    }
-                } else {
-                    $usehtmleditor = false;
-                    $onsubmit = "";
-                }
-                $usehtmleditor = false;    // Always keep it off for now
-
-                print_heading("$streditfile");
-
-                echo "<table><tr><td colspan=\"2\">";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\" $onsubmit>";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"file\" value=\"$file\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"edit\" />";
-                print_textarea($usehtmleditor, 25, 80, 680, 400, "text", $contents);
-                echo "</td></tr><tr><td>";
-                echo " <input type=\"submit\" value=\"".get_string("savechanges")."\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"".get_string("cancel")."\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-
-                if ($usehtmleditor) {
-                    print_richedit_javascript("form", "text", "yes");
-                }
-
-
-            }
-            html_footer();
-            break;
-
-        case "zip":
-            if (!empty($name)) {
-                html_header($course, $wdir);
-                $name = clean_filename($name);
-
-                $files = array();
-                foreach ($USER->filelist as $file) {
-                   $files[] = "$basedir/$file";
-                }
-
-                if (!zip_files($files,"$basedir/$wdir/$name")) {
-                    error(get_string("zipfileserror","error"));
-                }
-
-                clearfilelist();
-                displaydir($wdir);
-
-            } else {
-                html_header($course, $wdir, "form.name");
-
-                if (setfilelist($_POST)) {
-                    echo "<p align=\"center\">".get_string("youareabouttocreatezip").":</p>";
-                    print_simple_box_start("center");
-                    printfilelist($USER->filelist);
-                    print_simple_box_end();
-                    echo "<br />";
-                    echo "<p align=\"center\">".get_string("whattocallzip");
-                    echo "<table><tr><td>";
-                    echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                    echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                    echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                    echo " <input type=\"hidden\" name=\"action\" value=\"zip\" />";
-                    echo " <input type=\"text\" name=\"name\" size=\"35\" value=\"new.zip\" />";
-                    echo " <input type=\"submit\" value=\"".get_string("createziparchive")."\" />";
-                    echo "</form>";
-                    echo "</td><td>";
-                    echo "<form action=\"".$ME."\" method=\"get\">";
-                    echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                    echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                    echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                    echo " <input type=\"submit\" value=\"".get_string("cancel")."\" />";
-                    echo "</form>";
-                    echo "</td></tr></table>";
-                } else {
-                    displaydir($wdir);
-                    clearfilelist();
-                }
-            }
-            html_footer();
-            break;
-
-        case "unzip":
-            html_header($course, $wdir);
-            if (!empty($file)) {
-                $strok = get_string("ok");
-                $strunpacking = get_string("unpacking", "", $file);
-
-                echo "<p align=\"center\">$strunpacking:</p>";
-
-                $file = basename($file);
-
-                if (!unzip_file("$basedir/$wdir/$file")) {
-                    error(get_string("unzipfileserror","error"));
-                }
-
-                echo "<center><form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strok\" />";
-                echo "</form>";
-                echo "</center>";
-            } else {
-                displaydir($wdir);
-            }
-            html_footer();
-            break;
-
-        case "listzip":
-            html_header($course, $wdir);
-            if (!empty($file)) {
-                $strname = get_string("name");
-                $strsize = get_string("size");
-                $strmodified = get_string("modified");
-                $strok = get_string("ok");
-                $strlistfiles = get_string("listfiles", "", $file);
-
-                echo "<p align=\"center\">$strlistfiles:</p>";
-                $file = basename($file);
-
-                include_once($CFG->libdir.'/pclzip/pclzip.lib.php');
-                $archive = new PclZip("$basedir/$wdir/$file");
-                if (!$list = $archive->listContent("$basedir/$wdir")) {
-                    notify($archive->errorInfo(true));
-
-                } else {
-                    echo "<table cellpadding=\"4\" cellspacing=\"2\" border=\"0\" width=\"640\">";
-                    echo "<tr><th align=\"left\">$strname</th><th align=\"right\">$strsize</th><th align=\"right\">$strmodified</th></tr>";
-                    foreach ($list as $item) {
-                        echo "<tr>";
-                        print_cell("left", $item['filename']);
-                        if (! $item['folder']) {
-                            print_cell("right", display_size($item['size']));
-                        } else {
-                            echo "<td>&nbsp;</td>";
-                        }
-                        $filedate  = userdate($item['mtime'], get_string("strftimedatetime"));
-                        print_cell("right", $filedate);
-                        echo "</tr>";
-                    }
-                    echo "</table>";
-                }
-                echo "<br /><center><form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strok\" />";
-                echo "</form>";
-                echo "</center>";
-            } else {
-                displaydir($wdir);
-            }
-            html_footer();
-            break;
-
-        case "torte":
-            if($_POST)
-            {
-                while(list($key, $val) = each($_POST))
-                {
-                    if(ereg("file([0-9]+)", $key, $regs))
-                    {
-                        $file = $val;
-                    }
-                }
-                if(@filetype($CFG->dataroot ."/". $course->id . $file) == "file")
-                {
-                    if(mimeinfo("icon", $file) == "image.gif")
-                    {
-                        $url = $CFG->wwwroot ."/file.php?file=/" .$course->id . $file;
-                        runjavascript($url);
-                    }
-                    else
-                    {
-                        print "File is not a image!";
-                    }
-                }
-                else
-                {
-                    print "You cannot insert FOLDER into richtext editor!!!";
-                }
-            }
-            break;
-        case "cancel";
-            clearfilelist();
-
-        default:
-            html_header($course, $wdir);
-            displaydir($wdir);
-            html_footer();
-            break;
-}
-
-
-/// FILE FUNCTIONS ///////////////////////////////////////////////////////////
-
-
-function fulldelete($location) {
-    if (is_dir($location)) {
-        $currdir = opendir($location);
-        while ($file = readdir($currdir)) {
-            if ($file <> ".." && $file <> ".") {
-                $fullfile = $location."/".$file;
-                if (is_dir($fullfile)) {
-                    if (!fulldelete($fullfile)) {
-                        return false;
-                    }
-                } else {
-                    if (!unlink($fullfile)) {
-                        return false;
-                    }
-                }
-            }
-        }
-        closedir($currdir);
-        if (! rmdir($location)) {
-            return false;
-        }
-
-    } else {
-        if (!unlink($location)) {
-            return false;
-        }
-    }
-    return true;
-}
-
-
-
-function setfilelist($VARS) {
-    global $USER;
-
-    $USER->filelist = array ();
-    $USER->fileop = "";
-
-    $count = 0;
-    foreach ($VARS as $key => $val) {
-        if (substr($key,0,4) == "file") {
-            $count++;
-            $USER->filelist[] = rawurldecode($val);
-        }
-    }
-    return $count;
-}
-
-function clearfilelist() {
-    global $USER;
-
-    $USER->filelist = array ();
-    $USER->fileop = "";
-}
-
-
-function printfilelist($filelist) {
-    global $basedir, $CFG;
-
-    foreach ($filelist as $file) {
-        if (is_dir($basedir.$file)) {
-            echo "<img src=\"$CFG->pixpath/f/folder.gif\" height=\"16\" width=\"16\" alt=\"\" /> $file<br />";
-            $subfilelist = array();
-            $currdir = opendir($basedir.$file);
-            while ($subfile = readdir($currdir)) {
-                if ($subfile <> ".." && $subfile <> ".") {
-                    $subfilelist[] = $file."/".$subfile;
-                }
-            }
-            printfilelist($subfilelist);
-
-        } else {
-            $icon = mimeinfo("icon", $file);
-            echo "<img src=\"$CFG->pixpath/f/$icon\"  height=\"16\" width=\"16\" alt=\"\" /> $file<br />";
-        }
-    }
-}
-
-
-function print_cell($alignment="center", $text="&nbsp;") {
-    echo "<td align=\"$alignment\" nowrap=\"nowrap\">";
-    echo "<font size=\"-1\" face=\"Arial, Helvetica\">";
-    echo "$text";
-    echo "</font>";
-    echo "</td>\n";
-}
-
-function displaydir ($wdir) {
-
-//  $wdir == / or /a or /a/b/c/d  etc
-
-    global $basedir;
-    global $id;
-    global $USER, $CFG, $ME;
-
-    $fullpath = $basedir.$wdir;
-
-    $directory = opendir($fullpath);             // Find all files
-    while ($file = readdir($directory)) {
-        if ($file == "." || $file == "..") {
-            continue;
-        }
-
-        if (is_dir($fullpath."/".$file)) {
-            $dirlist[] = $file;
-        } else {
-            if ((basename(strtolower($file),".zip") != basename(strtolower($file))) || (basename(strtolower($file),".pif") != basename(strtolower($file)))) {
-                $filelist[] = $file;
-            }
-        }
-    }
-    closedir($directory);
-
-    $strname = get_string("name");
-    $strsize = get_string("size");
-    $strmodified = get_string("modified");
-    $straction = get_string("action");
-    $strmakeafolder = get_string("makeafolder");
-    $struploadafile = get_string("uploadafile");
-    $strwithchosenfiles = get_string("withchosenfiles");
-    $strmovetoanotherfolder = get_string("movetoanotherfolder");
-    $strmovefilestohere = get_string("movefilestohere");
-    $strdeletecompletely = get_string("deletecompletely");
-    $strcreateziparchive = get_string("createziparchive");
-    $strrename = get_string("rename");
-    $stredit   = get_string("edit");
-    $strunzip  = get_string("unzip");
-    $strlist   = get_string("list");
-    $strchoose   = get_string("choose");
-
-
-    echo "<form action=\"".$ME."\" method=\"post\" name=\"dirform\">";
-    echo "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" width=\"640\">";
-    echo "<tr>";
-    echo "<th width=\"5\"></th>";
-    echo "<th align=\"left\">$strname</th>";
-    echo "<th align=\"right\">$strsize</th>";
-    echo "<th align=\"right\">$strmodified</th>";
-    echo "<th align=\"right\">$straction</th>";
-    echo "</tr>\n";
-
-    if ($wdir == "/") {
-        $wdir = "";
-    }
-
-    $count = 0;
-
-    if (!empty($dirlist)) {
-        asort($dirlist);
-        foreach ($dirlist as $dir) {
-
-            $count++;
-
-            $filename = $fullpath."/".$dir;
-            $fileurl  = rawurlencode($wdir."/".$dir);
-            $filesafe = rawurlencode($dir);
-            $filedate = userdate(filectime($filename), "%d %b %Y, %I:%M %p");
-
-            echo "<tr>";
-
-            print_cell("center", "<input type=\"checkbox\" name=\"file$count\" value=\"$fileurl\" />");
-            print_cell("left", "<a href=\"".basename($ME)."?id=$id&amp;wdir=$fileurl\"><img src=\"$CFG->pixpath/f/folder.gif\" height=\"16\" width=\"16\" border=\"0\" alt=\"Folder\" /></a> <a href=\"".basename($ME)."?id=$id&amp;wdir=$fileurl\">".htmlspecialchars($dir)."</a>");
-            print_cell("right", "-");
-            print_cell("right", $filedate);
-            print_cell("right", "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$filesafe&amp;action=rename\">$strrename</a>");
-
-            echo "</tr>";
-        }
-    }
-
-    if (!empty($filelist)) {
-        asort($filelist);
-        foreach ($filelist as $file) {
-
-            $icon = mimeinfo("icon", $file);
-
-            $count++;
-            $filename    = "$fullpath/$file";
-            $fileurl     = "$wdir/$file";
-            $filesafe    = rawurlencode($file);
-            $fileurlsafe = rawurlencode($fileurl);
-            $filedate    = userdate(filectime($filename), "%d %b %Y, %I:%M %p");
-
-            if (substr($fileurl,0,1) == '/') {
-                $selectfile = substr($fileurl,1);
-            } else {
-                $selectfile = $fileurl;
-            }
-            if ($CFG->slasharguments) {
-                $ffurl = "/file.php/$id$fileurl";
-            } else {
-                $ffurl = "/file.php?file=/$id$fileurl";
-            }
-
-            echo "<tr>";
-
-            print_cell("center", "<input type=\"checkbox\" name=\"file$count\" value=\"$fileurl\" />");
-
-            echo "<td align=\"left\" nowrap=\"nowrap\">";
-            link_to_popup_window ($ffurl, "display",
-                                  "<img src=\"$CFG->pixpath/f/$icon\" height=\"16\" width=\"16\" border=\"0\" alt=\"file\" />",
-                                  480, 640);
-            echo "<font size=\"-1\" face=\"Arial, Helvetica\">";
-            link_to_popup_window ($ffurl, "display", htmlspecialchars($file), 480, 640);
-            echo "</font></td>";
-
-            $file_size = filesize($filename);
-            print_cell("right", display_size($file_size));
-            print_cell("right", $filedate);
-
-            $edittext = "<b><a onmousedown=\"return set_value('$selectfile')\" href=\"\">$strchoose</a></b>&nbsp;";
-
-            if ($icon == "text.gif" || $icon == "html.gif") {
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=edit\">$stredit</a>";
-            } else if ($icon == "zip.gif") {
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=unzip\">$strunzip</a>&nbsp;";
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=listzip\">$strlist</a> ";
-            }
-
-            print_cell("right", "$edittext <a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$filesafe&amp;action=rename\">$strrename</a>");
-
-            echo "</tr>";
-        }
-    }
-    echo "</table>";
-    echo "<hr width=\"640\" align=\"center\" size=\"1\" />";
-
-    if (empty($wdir)) {
-        $wdir = "/";
-    }
-
-    echo "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" width=\"640\" align=\"center\">";
-    echo "<tr><td align=\"center\">";
-    echo "<input type=\"hidden\" name=\"id\" value=\"$id\" />";
-    echo "<input type=\"hidden\" name=\"wdir\" value=\"$wdir\" /> ";
-    $options = array (
-                   "move" => "$strmovetoanotherfolder",
-                   "delete" => "$strdeletecompletely",
-                   "zip" => "$strcreateziparchive"
-               );
-    if (!empty($count)) {
-        choose_from_menu ($options, "action", "", "$strwithchosenfiles...", "javascript:document.dirform.submit()");
-    }
-
-    echo "</td></tr></table></form>";
-    echo "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" width=\"640\" align=\"center\"><tr>";
-    if (!empty($USER->fileop) and ($USER->fileop == "move") and ($USER->filesource <> $wdir)) {
-        echo "<td align=\"center\">";
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"paste\" />";
-        echo " <input type=\"submit\" value=\"$strmovefilestohere\" />";
-        echo "</form>";
-        echo "</td>";
-    }
-    echo "<td align=\"center\">";
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"mkdir\" />";
-        echo " <input type=\"submit\" value=\"$strmakeafolder\" />";
-        echo "</form>";
-    echo "</td>";
-    echo "<td align=\"center\">";
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"upload\" />";
-        echo " <input type=\"submit\" value=\"$struploadafile\" />";
-        echo "</form>";
-    echo "</td></tr>";
-    echo "</table>";
-    echo "<hr width=\"640\" align=\"center\" size=\"1\" />";
-
-}
-
-?>
diff --git a/mod/scorm/mod.html b/mod/scorm/mod.html
index 7b4584b0b5..0c3cd53496 100755
--- a/mod/scorm/mod.html
+++ b/mod/scorm/mod.html
@@ -33,7 +33,7 @@
 	    <td>
 	 	<?php
 	 	    echo "<input name=\"reference\" size=\"50\" value=\"$form->reference\" />&nbsp;";
-	 	    button_to_popup_window ("/mod/scorm/coursefiles.php?id=$course->id", 
+	 	    button_to_popup_window ("/files/index.php?id=$course->id&choose=form.reference", 
 	 				    "coursefiles", $strchooseafile, 500, 750, $strchooseafile);
 	 	?>
 	    </td>
diff --git a/mod/scorm/version.php b/mod/scorm/version.php
index 05bbc34f41..f2eee4bae0 100755
--- a/mod/scorm/version.php
+++ b/mod/scorm/version.php
@@ -5,8 +5,8 @@
 ///  This fragment is called by moodle_needs_upgrading() and /admin/index.php
 /////////////////////////////////////////////////////////////////////////////////
 
-$module->version  = 2004091700;   // The (date) version of this module
-$module->requires = 2004091700;   // The version of Moodle that is required
+$module->version  = 2004110200;   // The (date) version of this module
+$module->requires = 2004110200;   // The version of Moodle that is required
 $module->cron     = 0;            // How often should cron check this module (seconds)?
 
 ?>
diff --git a/mod/wiki/mod.html b/mod/wiki/mod.html
index 93db236aa5..120f04fe2e 100644
--- a/mod/wiki/mod.html
+++ b/mod/wiki/mod.html
@@ -197,7 +197,7 @@
             else {
                 $strchooseafile = get_string("chooseafile", "wiki");
                 echo "<input name=\"initialcontent\" size=\"50\" value=\"$form->initialcontent\" />&nbsp;";
-                button_to_popup_window ("/mod/wiki/wikifiles.php?id=$course->id", 
+                button_to_popup_window ("/files/index.php?choose=form.initialcontent&id=$course->id", 
                                         "wikifiles", $strchooseafile, 500, 750, $strchooseafile);
             }
         ?>
diff --git a/mod/wiki/version.php b/mod/wiki/version.php
index 8ade8e1c46..63c258e4db 100644
--- a/mod/wiki/version.php
+++ b/mod/wiki/version.php
@@ -5,7 +5,8 @@
 ///  This fragment is called by moodle_needs_upgrading() and /admin/index.php
 /////////////////////////////////////////////////////////////////////////////////
 
-$module->version  = 2004082303;  // The current module version (Date: YYYYMMDDXX)
+$module->version  = 2004110200;  // The current module version (Date: YYYYMMDDXX)
+$module->requires = 2004110200;  // The current module version (Date: YYYYMMDDXX)
 $module->cron     = 0;           // Period for cron to check this module (secs)
 
 ?>
diff --git a/mod/wiki/wikifiles.php b/mod/wiki/wikifiles.php
deleted file mode 100755
index 70e4caa721..0000000000
--- a/mod/wiki/wikifiles.php
+++ /dev/null
@@ -1,781 +0,0 @@
-<?php // $Id$
-
-//  Manage all uploaded files in a course file area
-
-//  This file is a hack to files/index.php that removes
-//  the headers and adds some controls so that images
-//  can be selected within the Richtext editor.  
-
-//  All the Moodle-specific stuff is in this top section
-//  Configuration and access control occurs here.
-//  Must define:  USER, basedir, baseweb, html_header and html_footer
-//  USER is a persistent variable using sessions
-
-    require("../../config.php");
-    require("../../files/mimetypes.php");
-
-    require_variable($id);
-    optional_variable($file, "");
-    optional_variable($wdir, "");
-    optional_variable($action, "");
-
-    if (! $course = get_record("course", "id", $id) ) {
-        error("That's an invalid course id");
-    }
-
-    require_login($course->id);
-
-    if (! isteacher($course->id) ) {
-        error("Only teachers can edit files");
-    }
-
-    function html_footer() {
-        echo "</td></tr></table></body></html>";
-    }
-    
-    function html_header($course, $wdir, $formfield=""){
-
-        global $CFG, $THEME, $ME;
-
-        if ($course->id == SITEID) {
-            $strfiles = get_string("sitefiles");
-        } else {
-            $strfiles = get_string("files");
-        }
-    
-        if ($wdir == "/") {
-            $fullnav = "$strfiles";
-        } else {
-            $dirs = explode("/", $wdir);
-            $numdirs = count($dirs);
-            $link = "";
-            $navigation = "";
-            for ($i=1; $i<$numdirs; $i++) {
-               $navigation .= " -> ";
-               $link .= "/".urlencode($dirs[$i]);
-               $navigation .= "<a href=\"".$ME."?id=$course->id&amp;wdir=$link\">".$dirs[$i]."</a>";
-            }
-            $fullnav = "<a href=\"".$ME."?id=$course->id&amp;wdir=/\">$strfiles</a> $navigation";
-        }
-
-        print_header();
-        ?>
-        <script language="javascript" type="text/javascript">
-        <!--
-        function set_value(txt) {
-            opener.document.forms['form'].initialcontent.value = txt;
-            window.close();
-        }
-        -->
-        </script>
-        <?php
-
-        echo '<table border="0" cellpadding="3" cellspacing="0" width="100%">';
-        echo '<tr>';
-        echo '<td bgcolor="'.$THEME->cellheading.'" class="navbar">';
-        echo '<font size="2"><b>'."$course->shortname -> $fullnav".'</b></font>';
-        echo '</td>';
-        echo '</tr>';
-        echo '</table>';
-
-        if ($course->id == SITEID) {
-            print_heading(get_string("publicsitefileswarning"), "center", 2);
-        }
-
-        echo "<table border=\"0\" align=\"center\" cellspacing=\"3\" cellpadding=\"3\" width=\"640\">";
-        echo "<tr>";
-        echo "<td colspan=\"2\">";
-    }
-
-    if (! $basedir = make_upload_directory("$course->id")) {
-        error("The site administrator needs to fix the file permissions");
-    }
-
-    $baseweb = $CFG->wwwroot;
-
-//  End of configuration and access control
-
-
-    $regexp="\\.\\.";
-    if (ereg( $regexp, $file, $regs )| ereg( $regexp, $wdir,$regs )) {           
-        $message = "Error: Directories can not contain \"..\"";
-        $wdir = "/";
-        $action = "";
-    }    
-
-    if (!$wdir) {
-        $wdir="/";
-    }
-
-
-    switch ($action) {
-
-        case "upload":
-            html_header($course, $wdir);
-            require_once($CFG->dirroot.'/lib/uploadlib.php');
-                
-            if (!empty($save)) {
-                $um = new upload_manager('userfile',false,false,$course,false,0);
-                $dir = "$basedir$wdir";
-                if ($um->process_file_uploads($dir)) {
-                    notify(get_string('uploadedfile'));
-                }
-                // um will take care of error reporting.
-                displaydir($wdir);
-            } else {
-                $upload_max_filesize = get_max_upload_file_size($CFG->maxbytes);
-                $filesize = display_size($upload_max_filesize);
-
-                $struploadafile = get_string("uploadafile");
-                $struploadthisfile = get_string("uploadthisfile");
-                $strmaxsize = get_string("maxsize", "", $filesize);
-                $strcancel = get_string("cancel");
-
-                echo "<p>$struploadafile ($strmaxsize) --> <b>$wdir</b>";
-                echo "<table><tr><td colspan=\"2\">";
-                echo "<form enctype=\"multipart/form-data\" method=\"post\" action=\"".$ME."\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"upload\" />";
-                upload_print_form_fragment(1,array('userfile'),null,false,null,$course->maxbytes,0,false);
-                echo " </td><tr><td width=\"10\">";
-                echo " <input type=\"submit\" name=\"save\" value=\"$struploadthisfile\" />";
-                echo "</form>";
-                echo "</td><td width=\"100%\">";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "delete":
-            if (!empty($confirm)) {
-                html_header($course, $wdir);
-                foreach ($USER->filelist as $file) {
-                    $fullfile = $basedir.$file;
-                    if (! fulldelete($fullfile)) {
-                        echo "<br />Error: Could not delete: $fullfile";
-                    }
-                }
-                clearfilelist();
-                displaydir($wdir);
-                html_footer();
-
-            } else {
-                html_header($course, $wdir);
-                if (setfilelist($_POST)) {
-                    echo "<p align=\"center\">".get_string("deletecheckwarning").":</p>";
-                    print_simple_box_start("center");
-                    printfilelist($USER->filelist);
-                    print_simple_box_end();
-                    echo "<br />";
-                    notice_yesno (get_string("deletecheckfiles"), 
-                                "".basename($ME)."?id=$id&amp;wdir=$wdir&amp;action=delete&amp;confirm=1",
-                                "".basename($ME)."?id=$id&amp;wdir=$wdir&amp;action=cancel");
-                } else {
-                    displaydir($wdir);
-                }
-                html_footer();
-            }
-            break;
-
-        case "move":
-            html_header($course, $wdir);
-            if ($count = setfilelist($_POST)) {
-                $USER->fileop     = $action;
-                $USER->filesource = $wdir;
-                echo "<p align=\"center\">";
-                print_string("selectednowmove", "moodle", $count);
-                echo "</p>";
-            }
-            displaydir($wdir);
-            html_footer();
-            break;
-
-        case "paste":
-            html_header($course, $wdir);
-            if (isset($USER->fileop) and $USER->fileop == "move") {
-                foreach ($USER->filelist as $file) {
-                    $shortfile = basename($file);
-                    $oldfile = $basedir.$file;
-                    $newfile = $basedir.$wdir."/".$shortfile;
-                    if (!rename($oldfile, $newfile)) {
-                        echo "<p>Error: $shortfile not moved";
-                    }
-                }
-            }
-            clearfilelist();
-            displaydir($wdir);
-            html_footer();
-            break;
-
-        case "rename":
-            if (!empty($name)) {
-                html_header($course, $wdir);
-                $name = clean_filename($name);
-                if (file_exists($basedir.$wdir."/".$name)) {
-                    echo "Error: $name already exists!";
-                } else if (!rename($basedir.$wdir."/".$oldname, $basedir.$wdir."/".$name)) {
-                    echo "Error: could not rename $oldname to $name";
-                }
-                displaydir($wdir);
-                    
-            } else {
-                $strrename = get_string("rename");
-                $strcancel = get_string("cancel");
-                $strrenamefileto = get_string("renamefileto", "moodle", $file);
-                html_header($course, $wdir, "form.name");
-                echo "<p>$strrenamefileto:";
-                echo "<table><tr><td>";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"rename\" />";
-                echo " <input type=\"hidden\" name=\"oldname\" value=\"$file\" />";
-                echo " <input type=\"text\" name=\"name\" size=\"35\" value=\"$file\" />";
-                echo " <input type=\"submit\" value=\"$strrename\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "mkdir":
-            if (!empty($name)) {
-                html_header($course, $wdir);
-                $name = clean_filename($name);
-                if (file_exists("$basedir$wdir/$name")) {
-                    echo "Error: $name already exists!";
-                } else if (! make_upload_directory("$course->id/$wdir/$name")) {
-                    echo "Error: could not create $name";
-                }
-                displaydir($wdir);
-                    
-            } else {
-                $strcreate = get_string("create");
-                $strcancel = get_string("cancel");
-                $strcreatefolder = get_string("createfolder", "moodle", $wdir);
-                html_header($course, $wdir, "form.name");
-                echo "<p>$strcreatefolder:";
-                echo "<table><tr><td>";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"mkdir\" />";
-                echo " <input type=\"text\" name=\"name\" size=\"35\" />";
-                echo " <input type=\"submit\" value=\"$strcreate\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strcancel\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-            }
-            html_footer();
-            break;
-
-        case "edit":
-            html_header($course, $wdir);
-            if (isset($text)) {
-                $fileptr = fopen($basedir.$file,"w");
-                fputs($fileptr, stripslashes($text));
-                fclose($fileptr);
-                displaydir($wdir);
-                    
-            } else {
-                $streditfile = get_string("edit", "", "<b>$file</b>");
-                $fileptr  = fopen($basedir.$file, "r");
-                $contents = fread($fileptr, filesize($basedir.$file));
-                fclose($fileptr);
-
-                if (mimeinfo("type", $file) == "text/html") {
-                    $usehtmleditor = can_use_html_editor();
-                } else {
-                    $usehtmleditor = false;
-                }
-
-                print_heading("$streditfile");
-
-                echo "<table><tr><td colspan=\"2\">";
-                echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"file\" value=\"$file\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"edit\" />";
-                print_textarea($usehtmleditor, 25, 80, 680, 400, "text", $contents);
-                echo "</td></tr><tr><td>";
-                echo " <input type=\"submit\" value=\"".get_string("savechanges")."\" />";
-                echo "</form>";
-                echo "</td><td>";
-                echo "<form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"".get_string("cancel")."\" />";
-                echo "</form>";
-                echo "</td></tr></table>";
-
-                if ($usehtmleditor) { 
-                    use_html_editor();
-                }
-
-            }
-            html_footer();
-            break;
-
-        case "zip":
-            if (!empty($name)) {
-                html_header($course, $wdir);
-                $name = clean_filename($name);
-
-                $files = array();
-                foreach ($USER->filelist as $file) {
-                   $files[] = "$basedir/$file";
-                }
-
-                if (!zip_files($files,"$basedir/$wdir/$name")) {
-                    error(get_string("zipfileserror","error"));
-                }
-
-                clearfilelist();
-                displaydir($wdir);
-                    
-            } else {
-                html_header($course, $wdir, "form.name");
-
-                if (setfilelist($_POST)) {
-                    echo "<p align=\"center\">".get_string("youareabouttocreatezip").":</p>";
-                    print_simple_box_start("center");
-                    printfilelist($USER->filelist);
-                    print_simple_box_end();
-                    echo "<br />";
-                    echo "<p align=\"center\">".get_string("whattocallzip");
-                    echo "<table><tr><td>";
-                    echo "<form action=\"".$ME."\" method=\"post\" name=\"form\">";
-                    echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                    echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                    echo " <input type=\"hidden\" name=\"action\" value=\"zip\" />";
-                    echo " <input type=\"text\" name=\"name\" size=\"35\" value=\"new.zip\" />";
-                    echo " <input type=\"submit\" value=\"".get_string("createziparchive")."\" />";
-                    echo "</form>";
-                    echo "</td><td>";
-                    echo "<form action=\"".$ME."\" method=\"get\">";
-                    echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                    echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                    echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                    echo " <input type=\"submit\" value=\"".get_string("cancel")."\" />";
-                    echo "</form>";
-                    echo "</td></tr></table>";
-                } else {
-                    displaydir($wdir);
-                    clearfilelist();
-                }
-            }
-            html_footer();
-            break;
-
-        case "unzip":
-            html_header($course, $wdir);
-            if (!empty($file)) {
-                $strok = get_string("ok");
-                $strunpacking = get_string("unpacking", "", $file);
-
-                echo "<p align=\"center\">$strunpacking:</p>";
-
-                $file = basename($file);
-
-                if (!unzip_file("$basedir/$wdir/$file")) {
-                    error(get_string("unzipfileserror","error"));
-                }
-
-                echo "<center><form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strok\" />";
-                echo "</form>";
-                echo "</center>";
-            } else {
-                displaydir($wdir);
-            }
-            html_footer();
-            break;
-
-        case "listzip":
-            html_header($course, $wdir);
-            if (!empty($file)) {
-                $strname = get_string("name");
-                $strsize = get_string("size");
-                $strmodified = get_string("modified");
-                $strok = get_string("ok");
-                $strlistfiles = get_string("listfiles", "", $file);
-
-                echo "<p align=\"center\">$strlistfiles:</p>";
-                $file = basename($file);
-
-                include_once($CFG->libdir.'/pclzip/pclzip.lib.php');
-                $archive = new PclZip("$basedir/$wdir/$file");
-                if (!$list = $archive->listContent("$basedir/$wdir")) {
-                    notify($archive->errorInfo(true));
-
-                } else {
-                    echo "<table cellpadding=\"4\" cellspacing=\"2\" border=\"0\" width=\"640\">";
-                    echo "<tr><th align=\"left\">$strname</th><th align=\"right\">$strsize</th><th align=\"right\">$strmodified</th></tr>";
-                    foreach ($list as $item) {
-                        echo "<tr>";
-                        print_cell("left", $item['filename']);
-                        if (! $item['folder']) {
-                            print_cell("right", display_size($item['size']));
-                        } else {
-                            echo "<td>&nbsp;</td>";
-                        }
-                        $filedate  = userdate($item['mtime'], get_string("strftimedatetime"));
-                        print_cell("right", $filedate);
-                        echo "</tr>";
-                    }
-                    echo "</table>";
-                }
-                echo "<br /><center><form action=\"".$ME."\" method=\"get\">";
-                echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-                echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-                echo " <input type=\"hidden\" name=\"action\" value=\"cancel\" />";
-                echo " <input type=\"submit\" value=\"$strok\" />";
-                echo "</form>";
-                echo "</center>";
-            } else {
-                displaydir($wdir);
-            }
-            html_footer();
-            break;
-
-        case "torte":
-            if($_POST)
-            {
-                while(list($key, $val) = each($_POST))
-                {
-                    if(ereg("file([0-9]+)", $key, $regs))
-                    {
-                        $file = $val;
-                    }
-                }
-                if(@filetype($CFG->dataroot ."/". $course->id . $file) == "file")
-                {
-                    if(mimeinfo("icon", $file) == "image.gif")
-                    {
-                        $url = $CFG->wwwroot ."/file.php?file=/" .$course->id . $file;
-                        runjavascript($url);
-                    }
-                    else
-                    {
-                        print "File is not a image!";
-                    }
-                }
-                else
-                {
-                    print "You cannot insert FOLDER into richtext editor!!!";
-                }
-            }
-            break;
-        case "cancel";
-            clearfilelist();
-
-        default:
-            html_header($course, $wdir);
-            displaydir($wdir);
-            html_footer();
-            break;
-}
-
-
-/// FILE FUNCTIONS ///////////////////////////////////////////////////////////
-
-
-function fulldelete($location) { 
-    if (is_dir($location)) {
-        $currdir = opendir($location);
-        while ($file = readdir($currdir)) { 
-            if ($file <> ".." && $file <> ".") {
-                $fullfile = $location."/".$file;
-                if (is_dir($fullfile)) { 
-                    if (!fulldelete($fullfile)) {
-                        return false;
-                    }
-                } else {
-                    if (!unlink($fullfile)) {
-                        return false;
-                    }
-                } 
-            }
-        } 
-        closedir($currdir);
-        if (! rmdir($location)) {
-            return false;
-        }
-
-    } else {
-        if (!unlink($location)) {
-            return false;
-        }
-    }
-    return true;
-}
-
-
-
-function setfilelist($VARS) {
-    global $USER;
-
-    $USER->filelist = array ();
-    $USER->fileop = "";
-
-    $count = 0;
-    foreach ($VARS as $key => $val) {
-        if (substr($key,0,4) == "file") {
-            $count++;
-            $USER->filelist[] = rawurldecode($val);
-        }
-    }
-    return $count;
-}
-
-function clearfilelist() {
-    global $USER;
-
-    $USER->filelist = array ();
-    $USER->fileop = "";
-}
-
-
-function printfilelist($filelist) {
-    global $basedir, $CFG;
-
-    foreach ($filelist as $file) {
-        if (is_dir($basedir.$file)) {
-            echo "<img src=\"$CFG->pixpath/f/folder.gif\" height=\"16\" width=\"16\" alt=\"\" /> $file<br />";
-            $subfilelist = array();
-            $currdir = opendir($basedir.$file);
-            while ($subfile = readdir($currdir)) { 
-                if ($subfile <> ".." && $subfile <> ".") {
-                    $subfilelist[] = $file."/".$subfile;
-                }
-            }
-            printfilelist($subfilelist);
-
-        } else { 
-            $icon = mimeinfo("icon", $file);
-            echo "<img src=\"$CFG->pixpath/f/$icon\"  height=\"16\" width=\"16\" alt=\"\" /> $file<br />";
-        }
-    }
-}
-
-
-function print_cell($alignment="center", $text="&nbsp;") {
-    echo "<td align=\"$alignment\" nowrap=\"nowrap\">";
-    echo "<font size=\"-1\" face=\"Arial, Helvetica\">";
-    echo "$text";
-    echo "</font>";
-    echo "</td>\n";
-}
-
-function displaydir ($wdir) {
-//  $wdir == / or /a or /a/b/c/d  etc
-
-    global $basedir;
-    global $id;
-    global $USER, $CFG;
-
-    $fullpath = $basedir.$wdir;
-
-    $directory = opendir($fullpath);             // Find all files
-    while ($file = readdir($directory)) {
-        if ($file == "." || $file == "..") {
-            continue;
-        }
-        
-        if (is_dir($fullpath."/".$file)) {
-            $dirlist[] = $file;
-        } else {
-            $filelist[] = $file;
-        }
-    }
-    closedir($directory);
-
-    $strname = get_string("name");
-    $strsize = get_string("size");
-    $strmodified = get_string("modified");
-    $straction = get_string("action");
-    $strmakeafolder = get_string("makeafolder");
-    $struploadafile = get_string("uploadafile");
-    $strwithchosenfiles = get_string("withchosenfiles");
-    $strmovetoanotherfolder = get_string("movetoanotherfolder");
-    $strmovefilestohere = get_string("movefilestohere");
-    $strdeletecompletely = get_string("deletecompletely");
-    $strcreateziparchive = get_string("createziparchive");
-    $strrename = get_string("rename");
-    $stredit   = get_string("edit");
-    $strunzip  = get_string("unzip");
-    $strlist   = get_string("list");
-    $strchoose   = get_string("choose");
-
-
-    echo "<form action=\"".$ME."\" method=\"post\" name=\"dirform\">";
-    echo "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" width=\"640\">";    
-    echo "<tr>";
-    echo "<th width=\"5\"></th>";
-    echo "<th align=\"left\">$strname</th>";
-    echo "<th align=\"right\">$strsize</th>";
-    echo "<th align=\"right\">$strmodified</th>";
-    echo "<th align=\"right\">$straction</th>";
-    echo "</tr>\n";
-
-    if ($wdir == "/") {
-        $wdir = "";
-    }
-
-    $count = 0;
-
-    if (!empty($dirlist)) {
-        asort($dirlist);
-        foreach ($dirlist as $dir) {
-
-            $count++;
-
-            $filename = $fullpath."/".$dir;
-            $fileurl  = rawurlencode($wdir."/".$dir);
-            $filesafe = rawurlencode($dir);
-            $filedate = userdate(filectime($filename), "%d %b %Y, %I:%M %p");
-    
-            echo "<tr>";
-
-            print_cell("center", "<input type=\"checkbox\" name=\"file$count\" value=\"$fileurl\" />");
-            print_cell("left", "<a href=\"".basename($ME)."?id=$id&amp;wdir=$fileurl\"><img src=\"$CFG->pixpath/f/folder.gif\" height=\"16\" width=\"16\" border=\"0\" alt=\"Folder\" /></a> <a href=\"".basename($ME)."?id=$id&amp;wdir=$fileurl\">".htmlspecialchars($dir)."</a>");
-            print_cell("right", "-");
-            print_cell("right", $filedate);
-            print_cell("right", "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$filesafe&amp;action=rename\">$strrename</a>");
-    
-            echo "</tr>";
-        }
-    }
-
-
-    if (!empty($filelist)) {
-        asort($filelist);
-        foreach ($filelist as $file) {
-
-            $icon = mimeinfo("icon", $file);
-
-            $count++;
-            $filename    = "$fullpath/$file";
-            $fileurl     = "$wdir/$file";
-            $filesafe    = rawurlencode($file);
-            $fileurlsafe = rawurlencode($fileurl);
-            $filedate    = userdate(filectime($filename), "%d %b %Y, %I:%M %p");
-
-            if (substr($fileurl,0,1) == '/') {
-                $selectfile = substr($fileurl,1);
-            } else {
-                $selectfile = $fileurl;
-            }
-            if ($CFG->slasharguments) {
-                $ffurl = "/file.php/$id$fileurl";
-            } else {
-                $ffurl = "/file.php?file=/$id$fileurl";
-            }
-
-            echo "<tr>";
-
-            print_cell("center", "<input type=\"checkbox\" name=\"file$count\" value=\"$fileurl\" />");
-
-            echo "<td align=\"left\" nowrap=\"nowrap\">";
-            link_to_popup_window ($ffurl, "display", 
-                                  "<img src=\"$CFG->pixpath/f/$icon\" height=\"16\" width=\"16\" border=\"0\" alt=\"file\" />", 
-                                  480, 640);
-            echo "<font size=\"-1\" face=\"Arial, Helvetica\">";
-            link_to_popup_window ($ffurl, "display", htmlspecialchars($file), 480, 640);
-            echo "</font></td>";
-
-            $file_size = filesize($filename);
-            print_cell("right", display_size($file_size));
-            print_cell("right", $filedate);
-
-            $edittext = "<b><a onmousedown=\"return set_value('$selectfile')\" href=\"\">$strchoose</a></b>&nbsp;";
-
-            if ($icon == "text.gif" || $icon == "html.gif") {
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=edit\">$stredit</a>";
-            } else if ($icon == "zip.gif") {
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=unzip\">$strunzip</a>&nbsp;";
-                $edittext .= "<a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$fileurl&amp;action=listzip\">$strlist</a> ";
-            }
-
-            print_cell("right", "$edittext <a href=\"".basename($ME)."?id=$id&amp;wdir=$wdir&amp;file=$filesafe&amp;action=rename\">$strrename</a>");
-    
-            echo "</tr>";
-        }
-    }
-    echo "</table>";
-    echo "<hr width=\"640\" align=\"center\" noshade=\"noshade\" size=\"1\" />";
-
-    if (empty($wdir)) {
-        $wdir = "/";
-    }
-
-    echo "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\" width=\"640\">";    
-    echo "<tr><td>";
-    echo "<input type=\"hidden\" name=\"id\" value=\"$id\" />";
-    echo "<input type=\"hidden\" name=\"wdir\" value=\"$wdir\" /> ";
-    $options = array (
-                   "move" => "$strmovetoanotherfolder",
-                   "delete" => "$strdeletecompletely",
-                   "zip" => "$strcreateziparchive"
-               );
-    if (!empty($count)) {
-        choose_from_menu ($options, "action", "", "$strwithchosenfiles...", "javascript:document.dirform.submit()");
-    }
-
-    echo "</form>";
-    echo "<td align=\"center\">";
-    if (!empty($USER->fileop) and ($USER->fileop == "move") and ($USER->filesource <> $wdir)) {
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"paste\" />";
-        echo " <input type=\"submit\" value=\"$strmovefilestohere\" />";
-        echo "</form>";
-    }
-    echo "<td align=\"right\">";
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"mkdir\" />";
-        echo " <input type=\"submit\" value=\"$strmakeafolder\" />";
-        echo "</form>";
-    echo "</td>";
-    echo "<td align=\"right\">";
-        echo "<form action=\"".$ME."\" method=\"get\">";
-        echo " <input type=\"hidden\" name=\"id\" value=\"$id\" />";
-        echo " <input type=\"hidden\" name=\"wdir\" value=\"$wdir\" />";
-        echo " <input type=\"hidden\" name=\"action\" value=\"upload\" />";
-        echo " <input type=\"submit\" value=\"$struploadafile\" />";
-        echo "</form>";
-    echo "</td></tr>";
-    echo "</table>";
-    echo "<hr width=\"640\" align=\"center\" noshade=\"noshade\" size=\"1\">";
-
-}
-
-?>
diff --git a/version.php b/version.php
index 8f67e1e329..fb22728f0c 100644
--- a/version.php
+++ b/version.php
@@ -6,7 +6,7 @@
 // This is compared against the values stored in the database to determine 
 // whether upgrades should be performed (see lib/db/*.php)
 
-   $version = 2004101900;  // YYYYMMDD = date of first major branch release 1.4
+   $version = 2004110200;  // YYYYMMDD = date of first major branch release 1.4
                            //       XY = increments within a single day
 
    $release = '1.5 UNSTABLE DEVELOPMENT';    // Human-friendly version name
-- 
2.39.5