OK, this is IT.

salga en la 1.3. en unas horitas...

admin/admin.php

@@ -97,7 +97,7 @@
 
         foreach ($admins as $admin) {
             $adminarray[] = $admin->id;
-            echo "<p align=right>$admin->firstname $admin->lastname,
+            echo "<p align=right>".fullname($admin, true).",
                      $admin->email &nbsp;&nbsp; ";
             if ($primaryadmin->id == $admin->id){
                 print_spacer(10, 9, false);
@@ -138,7 +138,7 @@
         foreach ($users as $user) {
             echo "<p align=left><a href=\"{$_SERVER['PHP_SELF']}?add=$user->id\"".
                    "title=\"$straddadmin\"><img src=\"../pix/t/left.gif\"".
-                   "border=0></a>&nbsp;&nbsp;$user->firstname $user->lastname, $user->email";
+                   "border=0></a>&nbsp;&nbsp;".fullname($user).", $user->email";
         }
     }
 

admin/auth.php

@@ -95,7 +95,7 @@
     echo "<form TARGET=\"{$CFG->framename}\" NAME=\"authmenu\" method=\"post\" action=\"auth.php\">";
     print_string("chooseauthmethod","auth");
 
-	choose_from_menu ($options, "auth", $auth, "","top.location='auth.php?auth='+document.authmenu.auth.options[document.authmenu.auth.selectedIndex].value", "");
+	choose_from_menu ($options, "auth", $auth, "","document.location='auth.php?auth='+document.authmenu.auth.options[document.authmenu.auth.selectedIndex].value", "");
 
     echo "</B></P></CENTER>";
         

admin/backup.php

@@ -0,0 +1,133 @@
+<?PHP  // $Id$
+       // backup.php - allows admin to edit all configuration variables for scheduled backups
+
+    require_once("../config.php");
+    require_once("../backup/lib.php");
+    require_once("../backup/backup_scheduled.php");
+
+    require_login();
+
+    if (!isadmin()) {
+        error("Only an admin can use this page");
+    }
+
+    if (!$site = get_site()) {
+        error("Site isn't defined!");
+    }
+
+    //Initialise error variables
+    $error = false;
+    $sche_destination_error = "";
+
+    /// If data submitted, then process and store.
+
+    if ($config = data_submitted()) {
+
+        //First of all we check that everything is correct
+        //Check for trailing slash and backslash in backup_sche_destination
+        if (!empty($backup_sche_destination) and 
+            (substr($backup_sche_destination,-1) == "/" or substr($backup_sche_destination,-1) == "\\")) {
+            $error = true;
+            $sche_destination_error = get_string("pathslasherror");
+        //Now check that backup_sche_destination dir exists
+        } else if (!empty($backup_sche_destination) and
+            !is_dir($backup_sche_destination)) {
+            $error = true;
+            $sche_destination_error = get_string("pathnotexists");
+        }
+
+        //We need to do some weekdays conversions prior to continue
+        $i = 0;
+        $temp = "";
+        $a_config = (array)$config;
+        while ($i<7) {
+            $tocheck = "dayofweek_".$i;
+            if (isset($a_config[$tocheck])) {
+                $temp .= "1";
+            } else {
+                $temp .= "0"; 
+            }
+            unset($a_config[$tocheck]);
+            $i++;
+        }
+        $a_config['backup_sche_weekdays'] = $temp;
+        $config = (object)$a_config;
+        //weekdays conversions done. Continue
+
+        print_header();
+        foreach ($config as $name => $value) {
+            backup_set_config($name, $value);
+        }
+
+        //And now, we execute schedule_backup_next_execution() for each course in the server to have the next
+        //execution time updated automatically everytime it's changed.
+        $status = true;
+        //get admin
+        $admin = get_admin();
+        if (!$admin) {
+            $status = false;
+        }
+        //get backup config
+        if (! $backup_config =  backup_get_config()) {
+            $status = false;
+        }
+        if ($status) {
+            //get courses
+            if ($courses = get_records("course")) {
+                //For each course, we check (insert, update) the backup_course table
+                //with needed data
+                foreach ($courses as $course) {
+                    //We check if the course exists in backup_course
+                    $backup_course = get_record("backup_courses","courseid",$course->id);
+                    //If it doesn't exist, create 
+                    if (!$backup_course) {
+                        $temp_backup_course->courseid = $course->id;
+                        $newid = insert_record("backup_courses",$temp_backup_course);
+                        //And get it from db
+                        $backup_course = get_record("backup_courses","id",$newid);
+                    }
+                    //Now, calculate next execution of the course
+                    $nextstarttime = schedule_backup_next_execution ($backup_course,$backup_config,time(),$admin->timezone);
+                    //Save it to db
+                    set_field("backup_courses","nextstarttime",$nextstarttime,"courseid",$backup_course->courseid);
+                }
+            }
+        }
+
+        if (!$error) {
+            redirect("$CFG->wwwroot/$CFG->admin/index.php", get_string("changessaved"), 1);
+            exit;
+        }
+    }
+
+/// Otherwise print the form.
+
+    $stradmin = get_string("administration");
+    $strconfiguration = get_string("configuration");
+    $strbackup = get_string("backup");
+
+    print_header("$site->shortname: $strconfiguration: $strbackup", $site->fullname,
+                  "<a href=\"index.php\">$stradmin</a> -> ".
+                  "<a href=\"configure.php\">$strconfiguration</a> -> ".
+                  $strbackup);
+
+    echo "<p align=right><a href=\"../backup/log.php\">".get_string("logs")."</a></p>";
+
+    print_heading($strbackup);
+
+    print_simple_box("<center>".get_string("adminhelpbackup")."</center>", "center", "50%");
+    echo "<br />";
+
+    print_simple_box_start("center", "", "$THEME->cellheading");
+
+    //Check for required functions...
+    if(!function_exists('utf8_encode')) {
+        print_simple_box("<font color=\"red\">You need to add XML support to your PHP installation</font>", "center", "70%", "$THEME->cellheading", "20", "noticebox");
+    } 
+    include ("$CFG->dirroot/backup/config.html");
+
+    print_simple_box_end();
+
+    print_footer();
+
+?>

admin/block.php

@@ -0,0 +1,60 @@
+<?PHP  // $Id$
+
+// block.php - allows admin to edit all local configuration variables for a block
+
+    require_once('../config.php');
+    require_once($CFG->libdir.'/blocklib.php');
+
+    require_login();
+
+    if (!isadmin()) {
+        error('Only an admin can use this page');
+    }
+    if (!$site = get_site()) {
+        error("Site isn't defined!");
+    }
+
+    require_variable($_REQUEST['block']);
+    $blockid = intval($_REQUEST['block']);
+
+    if(($blockrecord = get_record('blocks', 'id', $blockid)) === false) {
+        error('This block does not exist');
+    }
+
+    $block = block_instance($blockrecord->name, NULL);
+    if($block === false) {
+        error('Problem in instantiating block object');
+    }
+
+/// If data submitted, then process and store.
+
+	if ($config = data_submitted()) {
+	    unset($config['block']); // This will always be set if we have reached this point
+	    $block->handle_config($config);
+        print_header();
+        redirect("$CFG->wwwroot/$CFG->admin/blocks.php", get_string("changessaved"), 1);
+        exit;
+	}
+
+/// Otherwise print the form.
+
+    $stradmin = get_string('administration');
+    $strconfiguration = get_string('configuration');
+    $strmanageblocks = get_string('manageblocks');
+    $strblockname = $block->get_title();
+
+    print_header($site->shortname.': '.$strblockname.": $strconfiguration", $site->fullname,
+                  "<a href=\"index.php\">$stradmin</a> -> ".
+                  "<a href=\"configure.php\">$strconfiguration</a> -> ".
+                  "<a href=\"blocks.php\">$strmanageblocks</a> -> ".$strblockname);
+
+    print_heading($strblockname);
+
+    print_simple_box('<center>'.get_string('configwarning').'</center>', 'center', '50%');
+    echo '<br />';
+
+    $block->print_config();
+
+    print_footer();
+
+?>

admin/blocks.php

@@ -0,0 +1,172 @@
+<?PHP // $Id$
+
+    // Allows the admin to configure blocks (hide/show, delete and configure)
+
+    require_once('../config.php');
+    require_once($CFG->libdir.'/blocklib.php');
+
+    optional_variable($_GET['hide']);
+    optional_variable($_GET['show']);
+    optional_variable($_GET['delete']);
+    optional_variable($_GET['confirm'], 0);
+    $delete = $_GET['delete']; // Dependency remover
+
+    require_login();
+
+    if (!isadmin()) {
+        error("Only administrators can use this page!");
+    }
+
+    if (!$site = get_site()) {
+        error("Site isn't defined!");
+    }
+
+
+/// Print headings
+
+    $stradministration = get_string('administration');
+    $strconfiguration = get_string('configuration');
+    $strmanageblocks = get_string('manageblocks');
+    $strdelete = get_string('delete');
+    $strversion = get_string('version');
+    $strhide = get_string('hide');
+    $strshow = get_string('show');
+    $strsettings = get_string('settings');
+    $strcourses = get_string('courses');
+    $strname = get_string('name');
+
+    print_header("$site->shortname: $strmanageblocks", "$site->fullname",
+                 "<a href=\"index.php\">$stradministration</a> -> ".
+                 "<a href=\"configure.php\">$strconfiguration</a> -> $strmanageblocks");
+
+    print_heading($strmanageblocks);
+
+
+/// If data submitted, then process and store.
+
+    if (!empty($_GET['hide'])) {
+        if (!$block = get_record('blocks', 'id', $_GET['hide'])) {
+            error("Block doesn't exist!");
+        }
+        set_field('blocks', 'visible', '0', 'id', $block->id);      // Hide block
+    }
+
+    if (!empty($_GET['show'])) {
+        if (!$block = get_record('blocks', 'id', $_GET['show'])) {
+            error("Block doesn't exist!");
+        }
+        set_field('blocks', 'visible', '1', 'id', $block->id);      // Show block
+    }
+
+    if (!empty($delete)) {
+
+        if (!$block = get_record('blocks', 'id', $delete)) {
+            error("Block doesn't exist!");
+        }
+
+        $blockobject = block_instance($block->name, $site);
+        $strblockname = $blockobject->get_title();
+
+        if (!$_GET['confirm']) {
+            notice_yesno(get_string('blockdeleteconfirm', '', $strblockname),
+                         'blocks.php?delete='.$block->id.'&amp;confirm=1',
+                         'blocks.php');
+            print_footer();
+            exit;
+
+        } else {
+            // Delete block
+            if (!delete_records('blocks', 'id', $block->id)) {
+                notify("Error occurred while deleting the $strblockname record from blocks table");
+            }
+
+            blocks_update_every_block_by_id($block->id, 'delete');                        // Delete blocks in all courses by id
+
+            // Then the tables themselves
+
+            if ($tables = $db->Metatables()) {
+                $prefix = $CFG->prefix.$block->name;
+                foreach ($tables as $table) {
+                    if (strpos($table, $prefix) === 0) {
+                        if (!execute_sql("DROP TABLE $table", false)) {
+                            notify("ERROR: while trying to drop table $table");
+                        }
+                    }
+                }
+            }
+
+            $a->block = $strblockname;
+            $a->directory = $CFG->dirroot.'/blocks/'.$block->name;
+            notice(get_string('blockdeletefiles', '', $a), 'blocks.php');
+        }
+    }
+
+/// Main display starts here
+
+/// Get and sort the existing blocks
+
+    if (!$blocks = get_records('blocks')) {
+        error('No blocks found!');  // Should never happen
+    }
+
+    foreach ($blocks as $block) {
+        if(($blockobject = block_instance($block->name, NULL)) === false) {
+            // Failed to load
+            continue;
+        }
+        $blockbyname[$blockobject->get_title()] = $block->id;
+        $blockobjects[$block->id] = $blockobject;
+    }
+    ksort($blockbyname);
+
+/// Print the table of all blocks
+
+    if (empty($THEME->custompix)) {
+        $pixpath = '../pix';
+        // [pj] This is not used anywhere, but I'm leaving it in for the future
+        //$modpixpath = '../mod';
+    } else {
+        $pixpath = '../theme/'.$CFG->theme.'/pix';
+        // [pj] This is not used anywhere, but I'm leaving it in for the future
+        //$modpixpath = '../theme/'.$CFG->theme.'/pix/mod';
+    }
+
+    $table->head  = array ($strname, $strcourses, $strversion, $strhide.'/'.$strshow, $strdelete, $strsettings);
+    $table->align = array ('LEFT', 'RIGHT', 'LEFT', 'CENTER', 'CENTER', 'CENTER');
+    $table->wrap = array ("NOWRAP", "", "", "", "","");
+    $table->size = array ("100%", "10", "10", "10", "10","12");
+    $table->width = "100";
+
+    foreach ($blockbyname as $blockname => $blockid) {
+
+        // [pj] This is not used anywhere, but I'm leaving it in for the future
+        //$icon = "<img src=\"$modpixpath/$block->name/icon.gif\" hspace=10 height=16 width=16 border=0>";
+        $blockobject = $blockobjects[$blockid];
+
+        $delete = '<a href="blocks.php?delete='.$blockid.'">'.$strdelete.'</a>';
+
+        $settings = ''; // By default, no configuration
+        if($blockobject->has_config()) {
+            $settings = '<a href="block.php?block='.$blockid.'">'.$strsettings.'</a>';
+        }
+
+        $count = blocks_get_courses_using_block_by_id($blockid);
+        $class = ''; // Nothing fancy, by default
+
+        if ($blocks[$blockid]->visible) {
+            $visible = '<a href="blocks.php?hide='.$blockid.'" title="'.$strhide.'">'.
+                       '<img src="'.$pixpath.'/i/hide.gif" style="height: 16px; width: 16px;" /></a>';
+        } else {
+            $visible = '<a href="blocks.php?show='.$blockid.'" title="'.$strshow.'">'.
+                       '<img src="'.$pixpath.'/i/show.gif" style="height: 16px; width: 16px;" /></a>';
+            $class = ' class="dimmed_text"'; // Leading space required!
+        }
+
+        $table->data[] = array ('<p'.$class.'>'.$blockobject->get_title().'</p>', $count, $blockobject->get_version(), $visible, $delete, $settings);
+    }
+    echo '<p>';
+    print_table($table);
+    echo '</p>';
+    print_footer();
+
+?>

admin/config.html

@@ -10,21 +10,6 @@
     <?php print_string("configlang") ?>
     </td>
 </tr>
-<tr valign=top>
-	<td align=right><p>langdir:</td>
-	<td>
-    <?php 
-       unset($options);
-       $options["LTR"] = get_string("langltr");
-       $options["RTL"] = get_string("langrtl");
-
-       choose_from_menu ($options, "langdir", $config->langdir, "", "", "");
-    ?>
-    </td>
-    <td>
-    <?php print_string("configlangdir") ?>
-    </td>
-</tr>
 <tr valign=top>
 	<td align=right><p>langmenu:</td>
 	<td>
@@ -58,9 +43,36 @@
     <?php print_string("configlocale") ?>
     </td>
 </tr>
+<tr valign=top>
+	<td align=right><p>timezone:</td>
+    <td><?php
+       if (abs($config->timezone) > 13) {
+           $config->timezone = 99;
+       }
+       $timenow = time();
+
+       for ($tz = -26; $tz <= 26; $tz++) {
+           $zone = (float)$tz/2.0;
+           $usertime = $timenow + ($tz * 1800);
+           if ($tz == 0) {
+               $timezones["$zone"] = gmstrftime("%a, %I:%M %p", $usertime)." (GMT)";
+           } else if ($tz < 0) {
+               $timezones["$zone"] = gmstrftime("%a, %I:%M %p", $usertime)." (GMT$zone)";
+           } else {
+               $timezones["$zone"] = gmstrftime("%a, %I:%M %p", $usertime)." (GMT+$zone)";
+           }
+       }
+
+       choose_from_menu ($timezones, "timezone", $config->timezone, get_string("serverlocaltime"), "", "99");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configtimezone") ?>
+    </td>
+</tr>
 <tr valign=top>
 	<td align=right><p>country:</td>
-	<td><?php choose_from_menu ($COUNTRIES, "country", $config->country, get_string("selectacountry"), "") ?>
+	<td><?php choose_from_menu (get_list_of_countries(), "country", $config->country, get_string("selectacountry"), "") ?>
 	</td>
     <td>
     <?php print_string("configcountry") ?>
@@ -165,6 +177,30 @@
     <?php print_string("configlongtimenosee") ?>
     </td>
 </tr>
+<tr valign=top>
+	<td align=right><p>deleteunconfirmed:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[0]    = get_string("never");
+       $options[168]  = get_string("numdays", "", 7);
+       $options[144]  = get_string("numdays", "", 6);
+       $options[120]  = get_string("numdays", "", 5);
+       $options[96]   = get_string("numdays", "", 4);
+       $options[72]   = get_string("numdays", "", 3);
+       $options[48]   = get_string("numdays", "", 2);
+       $options[24]   = get_string("numdays", "", 1);
+       $options[12]   = get_string("numhours", "", 12);
+       $options[6]    = get_string("numhours", "", 6);
+       $options[1]    = get_string("numhours", "", 1);
+
+       choose_from_menu ($options, "deleteunconfirmed", $config->deleteunconfirmed, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configdeleteunconfirmed") ?>
+    </td>
+</tr>
 <tr valign=top>
 	<td align=right><p>loglifetime:</td>
 	<td>
@@ -209,6 +245,15 @@
     <?php print_string("configsessiontimeout") ?>
     </td>
 </tr>
+<tr valign=top>
+	<td align=right><p>sessioncookie:</td>
+	<td>
+    <input name=sessioncookie type=text size=10 value="<?php p($config->sessioncookie)?>">
+    </td>
+    <td>
+    <?php print_string("configsessioncookie") ?>
+    </td>
+</tr>
 <tr valign=top>
 	<td align=right><p>zip:</td>
 	<td>
@@ -315,6 +360,132 @@
     <?php print_string("configteacherassignteachers") ?>
     </td>
 </tr>
+<tr valign=top>
+	<td align=right><p>allowunenroll:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[0]  = get_string("no");
+       $options[1]  = get_string("yes");
+
+       choose_from_menu ($options, "allowunenroll", $config->allowunenroll, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configallowunenroll") ?>
+    </td>
+</tr>
+<tr valign=top>
+	<td align=right><p>maxbytes:</td>
+	<td>
+    <?php 
+       $options = get_max_upload_sizes();
+       choose_from_menu ($options, "maxbytes", $config->maxbytes, "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configmaxbytes") ?>
+    </td>
+</tr>
+<tr valign=top>
+	<td align=right><p>fullnamedisplay:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options['language']  = get_string('language');
+       $options['firstname lastname']  = get_string('firstname') . ' + ' . get_string('lastname');
+       $options['lastname firstname']  = get_string('lastname') . ' + ' . get_string('firstname');
+       $options['firstname']  = get_string('firstname');
+
+       choose_from_menu ($options, "fullnamedisplay", $config->fullnamedisplay, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configfullnamedisplay") ?>
+    </td>
+</tr>
+<tr valign=top>
+	<td align=right><p>extendedusernamechars:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[0] = get_string("no");
+       $options[1] = get_string("yes");
+
+       choose_from_menu ($options, "extendedusernamechars", $config->extendedusernamechars, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configextendedusernamechars") ?>
+    </td>
+</tr>
+<tr valign=top>
+	<td align=right><p>forcelogin:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[0]  = get_string('no');
+       $options[1]  = get_string('yes');
+
+       choose_from_menu ($options, "forcelogin", $config->forcelogin, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configforcelogin") ?>
+    </td>
+</tr>
+<tr valign=top>
+	<td align=right><p>forceloginforprofiles:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[0]  = get_string('no');
+       $options[1]  = get_string('yes');
+
+       choose_from_menu ($options, "forceloginforprofiles", $config->forceloginforprofiles, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configforceloginforprofiles") ?>
+    </td>
+</tr>
+<tr valign=top>
+	<td align=right><p>opentogoogle:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[0] = get_string("no");
+       $options[1] = get_string("yes");
+
+       choose_from_menu ($options, "opentogoogle", $config->opentogoogle, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php print_string("configopentogoogle") ?>
+    </td>
+</tr>
+
+<tr valign=top>
+        <td align=right><p>enablerssfeeds:</td>
+        <td>
+    <?php
+       unset($options);
+       $options[0] = get_string("no");
+       $options[1] = get_string("yes");
+
+       choose_from_menu ($options, "enablerssfeeds", $config->enablerssfeeds, "", "", "");
+    ?>
+    </td>
+    <td>
+    <?php 
+        print_string("configenablerssfeeds");
+        //Check for required functions...
+        if(!function_exists('utf8_encode')) {
+            echo "<font color=\"red\"> You need to add XML support to your PHP installation.</font>";
+        } 
+    ?>
+    </td>
+</tr>
 
 <tr>
     <td colspan=3 align=center>

admin/config.php

@@ -2,7 +2,6 @@
        // config.php - allows admin to edit all configuration variables
 
     require_once("../config.php");
-	require_once("../lib/countries.php");
 
 
     if ($site = get_site()) {   // If false then this is a new installation
@@ -28,6 +27,9 @@
         if (count($err) == 0) {
             print_header();
             foreach ($config as $name => $value) {
+                if ($name == "sessioncookie") {
+                    $value = eregi_replace("[^a-zA-Z]", "", $value);
+                }
                 unset($conf);
                 $conf->name  = $name;
                 $conf->value = $value;

admin/configure.php

@@ -32,6 +32,14 @@
                            get_string("adminhelplanguage"));
     $table->data[] = array("<b><a href=\"modules.php\">".get_string("managemodules")."</a></b>",
                            get_string("adminhelpmanagemodules"));
+    $table->data[] = array("<b><a href=\"blocks.php\">".get_string("manageblocks")."</a></b>",
+                           get_string("adminhelpmanageblocks"));
+    $table->data[] = array("<b><a href=\"filters.php\">".get_string("managefilters")."</a></b>",
+                           get_string("adminhelpmanagefilters"));
+    if (!isset($CFG->disablescheduledbackups)) {
+        $table->data[] = array("<b><a href=\"backup.php\">".get_string("backup")."</a></b>",
+                               get_string("adminhelpbackup"));
+    }
 
     print_table($table);
     

admin/creators.php

@@ -94,8 +94,7 @@
         $creatorarray = array();
         foreach ($creators as $creator) {
             $creatorarray[] = $creator->id;
-            echo "<p align=right>$creator->firstname $creator->lastname,
-            $creator->email &nbsp;&nbsp; ";
+            echo "<p align=right>".fullname($creator, true).", $creator->email &nbsp;&nbsp; ";
                 echo "<a href=\"{$_SERVER['PHP_SELF']}?remove=$creator->id\"
                 title=\"$strremovecreator\"><img src=\"../pix/t/right.gif\"
                 border=0></a>";
@@ -128,9 +127,10 @@
         }
 
         foreach ($users as $user) {
+            $fullname = fullname($user, TRUE);
             echo "<p align=left><a href=\"{$_SERVER['PHP_SELF']}?add=$user->id\"".
                    "title=\"$straddcreator\"><img src=\"../pix/t/left.gif\"".
-                   "border=0></a>&nbsp;&nbsp;$user->firstname $user->lastname, $user->email";
+                   "border=0></a>&nbsp;&nbsp;$fullname, $user->email";
         }
     }
 

admin/cron.php

@@ -14,12 +14,29 @@
     $FULLME = "cron";
 
     $starttime = microtime();
+    
+/// The current directory in PHP version 4.3.0 and above isn't necessarily the
+/// directory of the script when run from the command line. The require_once()
+/// would fail, so we'll have to chdir()
+
+    if (!isset($_SERVER['REMOTE_ADDR']) && isset($_SERVER['argv'][0])) {
+        chdir(dirname($_SERVER['argv'][0]));
+    }
 
     require_once("../config.php");
 
+    if (!$alreadyadmin = isadmin()) {
+        unset($_SESSION['USER']);
+        unset($USER);
+        unset($_SESSION['SESSION']);
+        unset($SESSION);
+        $USER = get_admin();      /// Temporarily, to provide environment for this script
+    }
+
     echo "<pre>\n";
 
     $timenow  = time();
+    echo "Server Time: ".date('r',$timenow)."\n\n";
 
 /// Run all cron jobs for each module
 
@@ -54,23 +71,23 @@
 
         if ($CFG->longtimenosee) { // value in days
             $longtime = $timenow - ($CFG->longtimenosee * 3600 * 24);
-            if ($users = get_users_longtimenosee($longtime)) {
-                foreach ($users as $user) {
-                    if (unenrol_student($user->id)) {
-                        echo "Deleted student enrolment for $user->firstname $user->lastname ($user->id)\n";
+            if ($students = get_users_longtimenosee($longtime)) {
+                foreach ($students as $student) {
+                    if (unenrol_student($student->userid, $student->course)) {
+                        echo "Deleted student enrolment for user $student->userid from course $student->course\n";
                     }
                 }
             }
         }
     
     
-        /// Delete users who haven't confirmed within seven days
-    
-        $oneweek = $timenow - (7 * 24 * 3600);
+        /// Delete users who haven't confirmed within required period
+
+        $oneweek = $timenow - ($CFG->deleteunconfirmed * 3600);
         if ($users = get_users_unconfirmed($oneweek)) {
             foreach ($users as $user) {
                 if (delete_records("user", "id", $user->id)) {
-                    echo "Deleted unconfirmed user for $user->firstname $user->lastname ($user->id)\n";
+                    echo "Deleted unconfirmed user for ".fullname($user, true)." ($user->id)\n";
                 }
             }
         }
@@ -93,6 +110,55 @@
             $loglifetime = $timenow - ($CFG->loglifetime * 3600 * 24);
             delete_records_select("log", "time < '$loglifetime'");
         }
+
+        /// Delete old cached texts
+
+        if (!empty($CFG->cachetext)) {   // Defined in config.php
+            $cachelifetime = time() - $CFG->cachetext;
+            delete_records_select("cache_text", "timemodified < '$cachelifetime'");
+        }
+    }
+
+    if (file_exists("$CFG->dataroot/cronextra.php")) {
+        include("$CFG->dataroot/cronextra.php");
+    }
+
+    if (!isset($CFG->disablescheduledbackups)) {   // Defined in config.php
+        //Execute backup's cron
+        //Perhaps a long time and memory could help in large sites
+        @set_time_limit(0);
+        ini_set("memory_limit","56M");
+        if (file_exists("$CFG->dirroot/backup/backup_scheduled.php") and
+            file_exists("$CFG->dirroot/backup/backuplib.php") and
+            file_exists("$CFG->dirroot/backup/lib.php") and
+            file_exists("$CFG->libdir/blocklib.php")) {
+            include_once("$CFG->dirroot/backup/backup_scheduled.php");
+            include_once("$CFG->dirroot/backup/backuplib.php");
+            include_once("$CFG->dirroot/backup/lib.php");
+            require_once ("$CFG->libdir/blocklib.php");
+            echo "Running backups if required...\n";
+            flush();
+    
+            if (! schedule_backup_cron()) {
+                echo "Something went wrong while performing backup tasks!!!\n";
+            } else {
+                echo "Backup tasks finished\n";
+            }
+        }
+    }
+
+    if (!empty($CFG->enablerssfeeds)) {  //Defined in admin/variables page
+        if (file_exists("$CFG->dirroot/rss/rsslib.php")) {
+            include_once("$CFG->dirroot/rss/rsslib.php");
+            echo "Running rssfeeds if required...\n";
+            flush();
+
+            if ( ! cron_rss_feeds()) {
+                echo "Something went wrong while generating rssfeeds!!!\n";
+            } else {
+                echo "Rssfeeds finished\n";
+            }
+        }
     }
 
     echo "Cron script completed correctly\n";

admin/dbperformance.php

@@ -0,0 +1,36 @@
+<?PHP  // $Id$
+       // dbperformance.php - shows latest ADOdb stats for the current server
+
+    require_once("../config.php");
+
+    require_login();
+
+    if (!isadmin()) {
+        error("Only the admin can use this page");
+    }
+
+    $strdatabaseperformance = get_string("databaseperformance");
+    $stradministration = get_string("administration");
+    $site = get_site();
+
+    if (isset($topframe)) {
+	    print_header("$site->shortname: $strdatabaseperformance", "$site->fullname", 
+                     "<a target=\"$CFG->framename\" href=\"index.php\">$stradministration</a> -> Database performance");
+        exit;
+    }
+
+    if (isset($bottomframe) or isset($_GET['do'])) {
+        $perf =&NewPerfMonitor($db);
+        $perf->UI($pollsecs=5);
+        exit;
+    }
+
+?>
+<head>
+<title><?php echo "$site->shortname: $strdatabaseperformance" ?></title>
+</head>
+
+<frameset rows="80,*">
+   <frame src="dbperformance.php?topframe=true">
+   <frame src="dbperformance.php?bottomframe=true">
+</frameset>

admin/filters.html

@@ -0,0 +1,139 @@
+<?php print_simple_box_start("center", "", "$THEME->cellheading"); ?>
+
+<form name="filters" id="filters" method="post" action="filters.php">
+  <table align="center" border="0" cellpadding="5" cellspacing="0">
+    <tr>
+      <td valign="top"><div align="right">
+        <br />
+        <input name="up" type="submit" id="up" value="&uarr;" />
+        <br />
+        <input name="down" type="submit" id="down" value="&darr;" />
+        <br />
+        </div></td>
+      <td valign="top">
+          <?php p($stractive) ?>
+          <br />
+      
+          <select name="iselect" size="20" id="iselect" 
+                  onclick="document.filters.add.disabled=true;
+                           document.filters.remove.disabled=false;
+                           document.filters.uselect.selectedIndex=-1;">
+          <?php 
+              $runscript = "";
+              foreach ($installedfilters as $filter) {
+                  if ($selectedfilter == $filter) {
+                      $selected = " selected ";
+                      $runscript = "eval(\"document.filters.add.disabled=true\");
+                                    eval(\"document.filters.remove.disabled=false\");
+                                    eval(\"document.filters.uselect.selectedIndex=-1\");";
+                  } else {
+                      $selected = "";
+                  }
+                  echo "<option value=\"$filter\" $selected>".$allfilters[$filter]."</option>";
+              }
+          ?>
+          </select></td>
+      <td valign="top">
+        <br />
+        <input name="add" type="submit" id="add" value="&larr;" />
+        <br />
+        <input name="remove" type="submit" id="remove" value="&rarr;" />              
+        <br />
+      </td>
+      <td valign="top">
+          <?php p($strinactive) ?>
+          <br />
+          <select name="uselect" size="20" id="select" 
+                  onclick="document.filters.add.disabled=false;
+                           document.filters.remove.disabled=true;
+                           document.filters.iselect.selectedIndex=-1;">
+          <?php
+              foreach ($uninstalledfilters as $filter) {
+                  if ($selectedfilter == $filter) {
+                      $selected = " selected ";
+                      $runscript = "eval(\"document.filters.add.disabled=false\");
+                                    eval(\"document.filters.remove.disabled=true\");
+                                    eval(\"document.filters.iselect.selectedIndex=-1\");";
+                  } else {
+                      $selected = "";
+                  }
+                  echo "<option value=\"$filter\" $selected>".$allfilters[$filter]."</option>";
+              }
+          ?>
+         </select></td>
+    </tr>
+  </table>
+</form>
+
+<script language="Javascript">
+<!--
+<?php echo $runscript ?>
+
+-->
+</script>
+<?php print_simple_box_end(); ?>
+
+<br />
+<br />
+
+
+<?php print_simple_box_start("center", "", "$THEME->cellheading"); ?>
+
+<form name="options" id="options" method="post" action="filters.php">
+<input type="hidden" name="options" value="1">
+<table cellpadding="20">
+<tr valign=top>
+	<td nowrap="nowrap" align="right"><?php p($strcachetext) ?>:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[10800] = get_string('numhours', '', 3);
+       $options[7200]  = get_string('numhours', '', 2);
+       $options[3600]  = get_string('numhours', '', 1);
+       $options[2700]  = get_string('numminutes', '', 45);
+       $options[1800]  = get_string('numminutes', '', 30);
+       $options[900]   = get_string('numminutes', '', 15);
+       $options[600]   = get_string('numminutes', '', 10);
+       $options[540]   = get_string('numminutes', '',  9);
+       $options[480]   = get_string('numminutes', '',  8);
+       $options[420]   = get_string('numminutes', '',  7);
+       $options[360]   = get_string('numminutes', '',  6);
+       $options[300]   = get_string('numminutes', '',  5);
+       $options[240]   = get_string('numminutes', '',  4);
+       $options[180]   = get_string('numminutes', '',  3);
+       $options[120]   = get_string('numminutes', '',  2);
+       $options[60]    = get_string('numminutes', '',  1);
+       $options[30]    = get_string('numseconds', '',  30);
+       $options[0]     = get_string('no');
+
+       choose_from_menu ($options, "cachetext", $CFG->cachetext, "", "", "");
+    ?>
+    </td>
+    <td>
+	<?php p($strconfigcachetext) ?>
+    </td>
+</tr>
+<tr valign=top>
+	<td nowrap="nowrap" align="right"><?php p($strfilteruploadedfiles) ?>:</td>
+	<td>
+    <?php 
+       unset($options);
+       $options[0] = get_string('no');
+       $options[1] = get_string('yes');
+
+       choose_from_menu ($options, "filteruploadedfiles", $CFG->filteruploadedfiles, "", "", "");
+    ?>
+    </td>
+    <td>
+	<?php p($strconfigfilteruploadedfiles) ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td>&nbsp;</td>
+    <td><input type="submit" value="<?php print_string("savechanges") ?>"></td>
+    <td>&nbsp;</td>
+</tr>
+</table>
+</form>
+
+<?php print_simple_box_end(); ?>

admin/filters.php

@@ -0,0 +1,169 @@
+<?PHP // $Id$
+      // Allows the admin to create, delete and rename course categories
+
+    require_once("../config.php");
+
+    optional_variable($iselect);
+    optional_variable($uselect);
+    optional_variable($add);
+    optional_variable($remove);
+    optional_variable($up);
+    optional_variable($down);
+
+
+    if (!isadmin()) {
+        error("Only administrators can use this page!");
+    }
+
+    if (!$site = get_site()) {
+        error("Site isn't defined!");
+    }
+
+/// Print headings
+
+    $stradministration = get_string("administration");
+    $strconfiguration = get_string("configuration");
+    $strmanagefilters = get_string("managefilters");
+    $strversion = get_string("version");
+    $strsettings = get_string("settings");
+    $strup = get_string("up");
+    $strdown = get_string("down");
+    $stractive = get_string("active");
+    $strinactive = get_string("inactive");
+    $strcachetext = get_string("cachetext", "admin");
+    $strconfigcachetext = get_string("configcachetext");
+    $strfilteruploadedfiles = get_string("filteruploadedfiles", "admin");
+    $strconfigfilteruploadedfiles = get_string("configfilteruploadedfiles");
+
+    print_header("$site->shortname: $strmanagefilters", "$site->fullname", 
+                 "<a href=\"index.php\">$stradministration</a> -> ".
+                 "<a href=\"configure.php\">$strconfiguration</a> -> $strmanagefilters");
+
+    print_heading($strmanagefilters);
+
+
+/// Make a list of all available filters and the best names for them we can find
+    $allfilters = array();
+
+    $filterlocations = array("mod", "filter");
+
+    foreach ($filterlocations as $filterlocation) {
+        $plugins = get_list_of_plugins($filterlocation);
+        foreach ($plugins as $key => $plugin) {
+            if (is_readable("$CFG->dirroot/$filterlocation/$plugin/filter.php")) {
+                $name = trim(get_string("filtername", $plugin));
+                if (empty($name) or $name == "[[filtername]]") {
+                    $name = $plugin;
+                }
+                $allfilters["$filterlocation/$plugin"] = $name;
+            }
+        }
+    }
+
+   
+/// Make an array of all the currently installed filters
+
+    $installedfilters = array();
+    if (!empty($CFG->textfilters)) {
+        $installedfilters = explode(',',$CFG->textfilters);
+
+        // Do a little cleanup for robustness
+        foreach ($installedfilters as $key => $installedfilter) {
+            if (empty($installedfilter)) {
+                unset($installedfilters[$key]);
+                set_config("textfilters", implode(',', $installedfilters));
+            }
+        }
+    }
+
+    $selectedfilter = "none";
+
+/// If data submitted, then process and store.
+
+    if (!empty($options)) {
+	    if ($config = data_submitted()) {  
+            unset($config->options);
+            foreach ($config as $name => $value) {
+                set_config($name, $value);
+            }
+        }
+    }
+
+    if (!empty($add) and !empty($uselect)) {
+        $selectedfilter = $uselect;
+        if (!in_array($selectedfilter, $installedfilters)) {
+            $installedfilters[] = $selectedfilter;
+            set_config("textfilters", implode(',', $installedfilters));
+        }
+
+    } else if (!empty($remove) and !empty($iselect)) {
+        $selectedfilter = $iselect;
+        foreach ($installedfilters as $key => $installedfilter) {
+            if ($installedfilter == $selectedfilter) {
+                unset($installedfilters[$key]);
+            }
+        }
+        set_config("textfilters", implode(',', $installedfilters));
+
+    } else if ((!empty($up) or !empty($down)) and !empty($iselect)) {
+
+        if (!empty($up)) {
+            if ($allfilters[$iselect]) {
+                foreach ($installedfilters as $key => $installedfilter) {
+                    if ($installedfilter == $iselect) {
+                        $movefilter = $key;
+                        break;
+                    }
+                    $swapfilter = $key;
+                }
+            }
+        }
+        if (!empty($down)) {
+            if ($allfilters[$iselect]) {
+                $choosenext = false;
+                foreach ($installedfilters as $key => $installedfilter) {
+                    if ($choosenext) {
+                        $swapfilter = $key;
+                        break;
+                    }
+                    if ($installedfilter == $iselect) {
+                        $movefilter = $key;
+                        $choosenext = true;
+                    }
+                }
+            }
+        }
+        if (isset($swapfilter) and isset($movefilter)) {
+            $tempfilter = $installedfilters[$swapfilter];
+            $installedfilters[$swapfilter] = $installedfilters[$movefilter];
+            $installedfilters[$movefilter] = $tempfilter;
+            set_config("textfilters", implode(',', $installedfilters));
+        }
+        $selectedfilter = $iselect;
+    }
+
+
+
+/// Make an array of all the currently uninstalled filters
+
+    $uninstalledfilters = array();
+    foreach ($allfilters as $filter => $name) {
+        $installed = false;
+        foreach ($installedfilters as $installedfilter) {
+            if ($installedfilter == $filter) {
+                $installed = true;
+            }
+        }
+        if (!$installed) {
+            $uninstalledfilters[] = $filter;
+        }
+    }
+
+/// Print the current form
+
+    include("filters.html");
+
+
+    print_footer();
+
+?>

admin/index.php

@@ -18,11 +18,11 @@
         die;
     }
 
+
 /// Check some PHP server settings
 
     $documentationlink = "please read the <A HREF=\"../doc/?frame=install.html&sub=webserver\">install documentation</A>";
 
-
     if (ini_get_bool('session.auto_start')) {
         error("The PHP server variable 'session.auto_start' should be Off - $documentationlink");
     }
@@ -36,15 +36,6 @@
     }
 
 
-
-/// Check that sessions are supported
-
-    if (!is_readable(ini_get('session.save_path')) and !ini_get_bool('safe_mode')) {
-        $sessionpath = ini_get('session.save_path');
-        notify("Warning: It appears your server does not support sessions (session.save_path = '$sessionpath')");
-    }
-
-
 /// Check that config.php has been edited
 
     if ($CFG->wwwroot == "http://example.com/moodle") {
@@ -54,7 +45,7 @@
 
 /// Check settings in config.php
 
-    $dirroot = dirname(realpath("../config.php"));
+    $dirroot = dirname(realpath("../index.php"));
     if (!empty($dirroot) and $dirroot != $CFG->dirroot) {
         error("Please fix your settings in config.php:
               <P>You have:
@@ -75,7 +66,9 @@
         $CFG->version = "";
     }
 
+/// Turn off time limits, sometimes upgrades can be slow.
 
+    @set_time_limit(0);
 
 /// Check if the main tables have been installed yet or not.
 
@@ -115,7 +108,6 @@
         print_header($strdatabasesetup, $strdatabasesetup, $strdatabasesetup, "", "", false, "&nbsp;", "&nbsp;");
         if (file_exists("$CFG->libdir/db/$CFG->dbtype.sql")) {
             $db->debug = true;
-            set_time_limit(0);  // To allow slow databases to complete the long SQL
             if (modify_database("$CFG->libdir/db/$CFG->dbtype.sql")) {
                 $db->debug = false;
                 notify($strdatabasesuccess, "green");
@@ -202,11 +194,16 @@
 
 
 /// Upgrade backup/restore system if necessary
-
     require_once("$CFG->dirroot/backup/lib.php");
     upgrade_backup_db("$CFG->wwwroot/$CFG->admin/index.php");  // Return here afterwards
-    
 
+/// Upgrade blocks system if necessary
+    require_once("$CFG->dirroot/lib/blocklib.php");
+    upgrade_blocks_db("$CFG->wwwroot/$CFG->admin/index.php");  // Return here afterwards
+
+/// Check all blocks and load (or upgrade them if necessary)
+    upgrade_blocks_plugins("$CFG->wwwroot/$CFG->admin/index.php");  // Return here afterwards
+    
 /// Find and check all modules and load them up or upgrade them if necessary
 
     if (!$mods = get_list_of_plugins("mod") ) {
@@ -237,17 +234,32 @@
             continue;
         }
 
-
         if (!isset($module)) {
             continue;
         }
 
+        if (!empty($module->requires)) {
+            if ($module->requires > $CFG->version) {
+                $info->modulename = $mod;
+                $info->moduleversion  = $module->version;
+                $info->currentmoodle = $CFG->version;
+                $info->requiremoodle = $module->requires;
+                notify(get_string('modulerequirementsnotmet', 'error', $info));
+                unset($info);
+                continue;
+            }
+        }
+
         $module->name = $mod;   // The name MUST match the directory
         
         if ($currmodule = get_record("modules", "name", $module->name)) {
             if ($currmodule->version == $module->version) {
                 // do nothing
             } else if ($currmodule->version < $module->version) {
+                if (empty($updated_modules)) {
+                    $strmodulesetup  = get_string("modulesetup");
+                    print_header($strmodulesetup, $strmodulesetup, $strmodulesetup, "", "", false, "&nbsp;", "&nbsp;");
+                }
                 print_heading("$module->name module needs upgrading");
                 $upgrade_function = $module->name."_upgrade";
                 if (function_exists($upgrade_function)) {
@@ -279,7 +291,7 @@
             print_heading($module->name);
             $updated_modules = true;
             $db->debug = true;
-            set_time_limit(0);  // To allow slow databases to complete the long SQL
+            @set_time_limit(0);  // To allow slow databases to complete the long SQL
             if (modify_database("$fullmod/db/$CFG->dbtype.sql")) {
                 $db->debug = false;
                 if ($module->id = insert_record("modules", $module)) {
@@ -330,6 +342,8 @@
     }
 
 /// Check for valid admin user
+    require_login();
+
     if (!isadmin()) {
         error("You need to be an admin user to use this page.", "$CFG->wwwroot/login/index.php");
     }
@@ -342,6 +356,12 @@
     print_simple_box_start("center", "100%", "$THEME->cellcontent2", 20);
     print_heading($stradministration);
 
+    if (!empty($CFG->upgrade)) {  // Print notice about extra upgrading that needs to be done
+        print_simple_box(get_string("upgrade$CFG->upgrade", "admin", 
+                                    "$CFG->wwwroot/$CFG->admin/upgrade$CFG->upgrade.php"), "center");
+        print_spacer(10,10);
+    }
+
     $table->tablealign = "right";
     $table->align = array ("right", "left");
     $table->wrap = array ("nowrap", "nowrap");
@@ -359,6 +379,14 @@
                     get_string("adminhelplanguage")."</font><br />";
     $configdata .= "<font size=+1>&nbsp;</font><a href=\"modules.php\">".get_string("managemodules")."</a> - <font size=1>".
                     get_string("adminhelpmanagemodules")."</font><br />";
+    $configdata .= "<font size=+1>&nbsp;</font><a href=\"blocks.php\">".get_string("manageblocks")."</a> - <font size=1>".
+                    get_string("adminhelpmanageblocks")."</font><br />";
+    $configdata .= "<font size=+1>&nbsp;</font><a href=\"filters.php\">".get_string("managefilters")."</a> - <font size=1>".
+                    get_string("adminhelpmanagefilters")."</font><br />";
+    if (!isset($CFG->disablescheduledbackups)) {
+        $configdata .= "<font size=+1>&nbsp;</font><a href=\"backup.php\">".get_string("backup")."</a> - <font size=1>".
+                        get_string("adminhelpbackup")."</font><br />";
+    }
 
     $table->data[] = array("<font size=+1><b><a href=\"configure.php\">".get_string("configuration")."</a></b>", 
                             $configdata);
@@ -367,10 +395,13 @@
     $userdata = "<font size=+1>&nbsp;</font><a href=\"auth.php\">".get_string("authentication")."</a> - <font size=1>".
                  get_string("adminhelpauthentication")."</font><br />";
 
-    if ($CFG->auth == "email" || $CFG->auth == "none" || $CFG->auth == "manual") {
+    if (is_internal_auth()) {
         $userdata .= "<font size=+1>&nbsp;</font><a href=\"$CFG->wwwroot/$CFG->admin/user.php?newuser=true\">".
                       get_string("addnewuser")."</a> - <font size=1>".
                       get_string("adminhelpaddnewuser")."</font><br />";
+        $userdata .= "<font size=+1>&nbsp;</font><a href=\"$CFG->wwwroot/$CFG->admin/uploaduser.php\">".
+                      get_string("uploadusers")."</a> - <font size=1>".
+                      get_string("adminhelpuploadusers")."</font><br />";
     }
     $userdata .= "<font size=+1>&nbsp;</font><a href=\"user.php\">".get_string("edituser")."</a> - <font size=1>".
                  get_string("adminhelpedituser")."</font><br />";
@@ -388,11 +419,11 @@
 
     $table->data[] = array("<font size=+1><b><a href=\"../course/index.php?edit=on\">".get_string("courses")."</a></b>",
                            "<font size=+1>&nbsp;</font>".get_string("adminhelpcourses"));
-    $table->data[] = array("<font size=+1><b><a href=\"../course/log.php?id=$site->id.php\">".get_string("logs")."</a></b>",
+    $table->data[] = array("<font size=+1><b><a href=\"../course/log.php?id=$site->id\">".get_string("logs")."</a></b>",
                            "<font size=+1>&nbsp;</font>".get_string("adminhelplogs"));
     $table->data[] = array("<font size=+1><b><a href=\"../files/index.php?id=$site->id\">".get_string("sitefiles")."</a></b>",
                            "<font size=+1>&nbsp;</font>".get_string("adminhelpsitefiles"));
-    if (file_exists("$CFG->dirroot/admin/$CFG->dbtype")) {
+    if (file_exists("$CFG->dirroot/$CFG->admin/$CFG->dbtype")) {
         $table->data[] = array("<font size=+1><b><a href=\"$CFG->dbtype/frame.php\">".get_string("managedatabase")."</a></b>",
                                "<font size=+1>&nbsp;</font>".get_string("adminhelpmanagedatabase"));
     }
@@ -403,7 +434,7 @@
     ////  IT IS ILLEGAL AND A VIOLATION OF THE GPL TO REMOVE OR MODIFY THE COPYRIGHT NOTICE BELOW ////
     $copyrighttext = "<a href=\"http://moodle.org/\">Moodle</a> ".
                      "<a href=\"../doc/?frame=release.html\">$CFG->release</a> ($CFG->version)<br />".
-                     "Copyright &copy; 2000-2003 Martin Dougiamas<br />".
+                     "Copyright &copy; 1999-2004 Martin Dougiamas<br />".
                      "<a href=\"../doc/?frame=licence.html\">GNU Public License</a>";
     echo "<center><p><font size=1>$copyrighttext</font></p></center>";
     //////////////////////////////////////////////////////////////////////////////////////////////////

admin/lang.php

@@ -3,6 +3,7 @@
     require_once("../config.php");
 
     optional_variable($mode, "");
+    optional_variable($currentfile, "moodle.php");
 
     require_login();
 
@@ -44,7 +45,13 @@
                  "<a href=\"configure.php\">$strconfiguration</a> -> $navigation");
 
     if (!$mode) {
-        print_heading("$strcurrentlanguage: $currentlang - ".get_string("thislanguage"));
+        $currlang = current_language();
+        $langs = get_list_of_languages();
+        echo "<table align=center><tr><td align=\"right\">";
+        echo "<b>$strcurrentlanguage:</b>";
+        echo "</td><td>";
+        echo popup_form ("$CFG->wwwroot/admin/lang.php?lang=", $langs, "chooselang", $currlang, "", "", "", true);
+        echo "</td></tr></table>";
         print_heading("<a href=\"lang.php?mode=missing\">$strmissingstrings</a>");
         print_heading("<a href=\"lang.php?mode=compare\">$strcomparelanguage</a>");
         echo "<center><hr noshade size=1>";
@@ -65,7 +72,7 @@
     }
 
     foreach ($stringfiles as $key => $file) {
-        if ($file == "README" or $file == "help" or $file == "docs" or $file == "fonts") {
+        if (substr($file, -4) != ".php") {
             unset($stringfiles[$key]);
         }
     }
@@ -135,114 +142,120 @@
 
     } else if ($mode == "compare") {
 
-        if (isset($_POST['file'])){   // Save a file
+        if (isset($_POST['currentfile'])){   // Save a file
             $newstrings = $_POST;
-            $file = $newstrings['file'];
-            unset($newstrings['file']);
-            if (lang_save_file($langdir, $file, $newstrings)) {
-                notify(get_string("changessaved")." ($langdir/$file)");
+            unset($newstrings['currentfile']);
+            if (lang_save_file($langdir, $currentfile, $newstrings)) {
+                notify(get_string("changessaved")." ($langdir/$currentfile)", "green");
             } else {
-                error("Could not save the file '$file'!", "lang.php?mode=compare");
+                error("Could not save the file '$currentfile'!", "lang.php?mode=compare&currentfile=$currentfile");
             }
         }
 
-        print_heading($strcomparelanguage);
-        echo "<center>";
-        helpbutton("langedit",$strcomparelanguage);
-        echo "</center>";
+        print_heading_with_help($strcomparelanguage, "langedit");
 
+        print_simple_box_start("center", "80%");
+        echo '<center><font size="2">';
         foreach ($stringfiles as $file) {
-        
-            print_heading("$file", "LEFT", 4);
-
-            if (!file_exists("$langdir/$file")) {
-                if (!touch("$langdir/$file")) {
-                    echo "<p><font color=red>".get_string("filemissing", "", "$langdir/$file")."</font></p>";
-                    continue;
-                }
-            }
-    
-            error_reporting(0);
-            if ($f = fopen("$langdir/$file","r+")) {
-                $editable = true;
-                fclose($f);
+            if ($file == $currentfile) {
+                echo "<b>$file</b> &nbsp; ";
             } else {
-                $editable = false;
-                echo "<p><font size=1>".get_string("makeeditable", "", "$langdir/$file")."</font></p>";
+                echo "<a href=\"lang.php?mode=compare&currentfile=$file\">$file</a> &nbsp; ";
             }
-            error_reporting(7);
+        }
+        echo '</font></center>';
+        print_simple_box_end();
 
+        
+        print_heading("$currentfile", "center", 4);
 
-            unset($string);
-            include("$enlangdir/$file");
-            $enstring = $string;  
-            ksort($enstring);
-    
-            unset($string);
-            include("$langdir/$file");
-
-            if ($editable) {
-                echo "<form name=\"$file\" action=\"lang.php\" method=\"post\">";
+        if (!file_exists("$langdir/$currentfile")) {
+            if (!touch("$langdir/$currentfile")) {
+                echo "<p><font color=red>".get_string("filemissing", "", "$langdir/$currentfile")."</font></p>";
+                continue;
             }
-            echo "<table width=\"100%\" cellpadding=2 cellspacing=3 border=0>";
-            foreach ($enstring as $key => $envalue) {
-                $envalue = nl2br(htmlspecialchars($envalue));
-                $envalue = preg_replace('/(\$a\-\&gt;[a-zA-Z0-9]*|\$a)/', '<b>$0</b>', $envalue);  // Make variables bold. 
-                $envalue = str_replace("%%","%",$envalue);
-
-                echo "<tr>";
-                echo "<td width=20% bgcolor=\"$THEME->cellheading\" nowrap valign=top>$key</td>";
-                echo "<td width=40% bgcolor=\"$THEME->cellheading\" valign=top>$envalue</td>";
-
-                $value = $string[$key];
-                $value = str_replace("\r","",$value);              // Bad character caused by Windows
-                $value = str_replace("\n\n\n\n\n\n","\n",$value);  // Collapse runs of blank lines
-                $value = str_replace("\n\n\n\n\n","\n",$value);
-                $value = str_replace("\n\n\n\n","\n",$value);
-                $value = str_replace("\n\n\n","\n",$value);
-                $value = str_replace("\n\n\n","\n",$value);
-                $value = str_replace("\\","",$value);              // Delete all slashes
-                $value = str_replace("%%","%",$value);
-                $value = htmlspecialchars($value);
-
-                $cellcolour = $value ? $THEME->cellcontent: $THEME->highlight;
-
-                if ($editable) {
-                    echo "<td width=40% bgcolor=\"$cellcolour\" valign=top>";
-                    if (isset($string[$key])) {
-                        $valuelen = strlen($value);
-                    } else {
-                        $valuelen = strlen($envalue);
-                    }
-                    $cols=50;
-                    if (strstr($value, "\r") or strstr($value, "\n") or $valuelen > $cols) {
-                        $rows = ceil($valuelen / $cols);
-                        echo "<textarea name=\"string-$key\" cols=\"$cols\" rows=\"$rows\">$value</textarea>";
-                    } else {
-                        if ($valuelen) {
-                            $cols = $valuelen + 2;
-                        }
-                        echo "<input type=\"text\" name=\"string-$key\" value=\"$value\" size=\"$cols\"></td>";
-                    }
-                    echo "</TD>";
-
-                } else {
-                    echo "<td width=40% bgcolor=\"$cellcolour\" valign=top>$value</td>";
-                }
-            }
-            if ($editable) {
-                echo "<tr><td colspan=2>&nbsp;<td>";
-                echo "    <input type=\"hidden\" name=\"file\" value=\"$file\">";
-                echo "    <input type=\"hidden\" name=\"mode\" value=\"compare\">";
-                echo "    <input type=\"submit\" name=\"update\" value=\"".get_string("savechanges").": $file\">";
-                echo "</td></tr>";
-            }
-            echo "</table>";
-            echo "</form>";
         }
 
-        print_continue("lang.php");
-    
+        error_reporting(0);
+        if ($f = fopen("$langdir/$currentfile","r+")) {
+            $editable = true;
+            fclose($f);
+        } else {
+            $editable = false;
+            echo "<p><font size=1>".get_string("makeeditable", "", "$langdir/$currentfile")."</font></p>";
+        }
+        error_reporting(7);
+
+
+        unset($string);
+        include("$enlangdir/$currentfile");
+        $enstring = $string;  
+        ksort($enstring);
+
+        unset($string);
+        include("$langdir/$currentfile");
+
+        if ($editable) {
+            echo "<form name=\"$currentfile\" action=\"lang.php\" method=\"post\">";
+        }
+        echo "<table width=\"100%\" cellpadding=2 cellspacing=3 border=0>";
+        foreach ($enstring as $key => $envalue) {
+            $envalue = nl2br(htmlspecialchars($envalue));
+            $envalue = preg_replace('/(\$a\-\&gt;[a-zA-Z0-9]*|\$a)/', '<b>$0</b>', $envalue);  // Make variables bold. 
+            $envalue = str_replace("%%","%",$envalue);
+            $envalue = str_replace("\\","",$envalue);              // Delete all slashes
+
+            echo "<tr>";
+            echo "<td dir=ltr lang=en width=20% bgcolor=\"$THEME->cellheading\" nowrap valign=top>$key</td>";
+            echo "<td dir=ltr lang=en width=40% bgcolor=\"$THEME->cellheading\" valign=top>$envalue</td>";
+
+            $value = $string[$key];
+            $value = str_replace("\r","",$value);              // Bad character caused by Windows
+            $value = str_replace("\n\n\n\n\n\n","\n",$value);  // Collapse runs of blank lines
+            $value = str_replace("\n\n\n\n\n","\n",$value);
+            $value = str_replace("\n\n\n\n","\n",$value);
+            $value = str_replace("\n\n\n","\n",$value);
+            $value = str_replace("\n\n\n","\n",$value);
+            $value = str_replace("\\","",$value);              // Delete all slashes
+            $value = str_replace("%%","%",$value);
+            $value = str_replace("<","&lt;",$value);
+            $value = str_replace(">","&gt;",$value);
+
+            $cellcolour = $value ? $THEME->cellcontent: $THEME->highlight;
+
+            if ($editable) {
+                echo "<td width=40% bgcolor=\"$cellcolour\" valign=top>";
+                if (isset($string[$key])) {
+                    $valuelen = strlen($value);
+                } else {
+                    $valuelen = strlen($envalue);
+                }
+                $cols=50;
+                if (strstr($value, "\r") or strstr($value, "\n") or $valuelen > $cols) {
+                    $rows = ceil($valuelen / $cols);
+                    echo "<textarea name=\"string-$key\" cols=\"$cols\" rows=\"$rows\">$value</textarea>";
+                } else {
+                    if ($valuelen) {
+                        $cols = $valuelen + 2;
+                    }
+                    echo "<input type=\"text\" name=\"string-$key\" value=\"$value\" size=\"$cols\"></td>";
+                }
+                echo "</TD>";
+
+            } else {
+                echo "<td width=40% bgcolor=\"$cellcolour\" valign=top>$value</td>";
+            }
+        }
+        if ($editable) {
+            echo "<tr><td colspan=2>&nbsp;<td><br />";
+            echo "    <input type=\"hidden\" name=\"currentfile\" value=\"$currentfile\">";
+            echo "    <input type=\"hidden\" name=\"mode\" value=\"compare\">";
+            echo "    <input type=\"submit\" name=\"update\" value=\"".get_string("savechanges").": $currentfile\">";
+            echo "</td></tr>";
+        }
+        echo "</table>";
+        echo "</form>";
+
     }
 
     print_footer();
@@ -257,7 +270,7 @@ function lang_save_file($path, $file, $strings) {
 // $file is the file to overwrite.
 // $strings is an array of strings to write
 
-    global $CFG;
+    global $CFG, $USER;
 
     error_reporting(0);
     if (!$f = fopen("$path/$file","w")) {
@@ -276,11 +289,12 @@ function lang_save_file($path, $file, $strings) {
         if ($CFG->lang != "zh_hk" and $CFG->lang != "zh_tw") {  // Some MB languages include backslash bytes
             $value = str_replace("\\","",$value);           // Delete all slashes
         }
-        $value = str_replace("$"."a", "\\$"."a", $value);   // Add slashes for $a
-        $value = str_replace("\"", "\\\\\\\"", $value);     // Add slashes for "
+        $value = str_replace("'", "\\'", $value);           // Add slashes for '
+        $value = str_replace('"', "\\\"", $value);          // Add slashes for "
         $value = str_replace("%","%%",$value);              // Escape % characters
+        $value = str_replace("\r", "",$value);              // Remove linefeed characters
         if ($id == "string" and $value != ""){
-            fwrite($f,"\$string['$stringname'] = \"$value\";\n");
+            fwrite($f,"\$string['$stringname'] = '$value';\n");
         }
     }
     fwrite($f,"\n?>\n");

admin/module.php

@@ -37,10 +37,10 @@
     $strmanagemodules = get_string("managemodules");
     $strmodulename = get_string("modulename", $module);
 
-    print_header("$site->shortname: $strconfigvariables", $site->fullname,
+    print_header("$site->shortname: $strmodulename: $strconfiguration", $site->fullname,
                   "<a href=\"index.php\">$stradmin</a> -> ".
                   "<a href=\"configure.php\">$strconfiguration</a> -> ".
-                  "<a href=\"modules.php\">$strmanagemodules</a> -> $strmodulename", $focus);
+                  "<a href=\"modules.php\">$strmanagemodules</a> -> $strmodulename");
 
     print_heading($strmodulename);
 

admin/modules.php

@@ -24,9 +24,11 @@
     $strconfiguration = get_string("configuration");
     $strmanagemodules = get_string("managemodules");
     $strdelete = get_string("delete");
+    $strversion = get_string("version");
     $strhide = get_string("hide");
     $strshow = get_string("show");
     $strsettings = get_string("settings");
+    $stractivities = get_string("activities");
     $stractivitymodule = get_string("activitymodule");
 
     print_header("$site->shortname: $strmanagemodules", "$site->fullname", 
@@ -148,10 +150,10 @@
         $modpixpath = "../theme/$CFG->theme/pix/mod";
     }
 
-    $table->head  = array ($stractivitymodule, "$strhide/$strshow", $strdelete, $strsettings);
-    $table->align = array ("LEFT", "CENTER", "CENTER", "CENTER");
-    $table->wrap = array ("NOWRAP", "", "","");
-    $table->size = array ("100%", "10", "10","12");
+    $table->head  = array ($stractivitymodule, $stractivities, $strversion, "$strhide/$strshow", $strdelete, $strsettings);
+    $table->align = array ("LEFT", "RIGHT", "LEFT", "CENTER", "CENTER", "CENTER");
+    $table->wrap = array ("NOWRAP", "", "", "", "","");
+    $table->size = array ("100%", "10", "10", "10", "10","12");
     $table->width = "100";
 
     foreach ($modulebyname as $modulename => $module) {
@@ -166,6 +168,8 @@
             $settings = "";
         }
 
+        $count = count_records("$module->name");
+
         if ($module->visible) {
             $visible = "<a href=\"modules.php?hide=$module->name\" title=\"$strhide\">".
                        "<img src=\"$pixpath/i/hide.gif\" align=\"absmiddle\" height=16 width=16 border=0></a>";
@@ -180,7 +184,7 @@
             $visible = "";
             $class = "";
         }
-        $table->data[] = array ("<p $class>$icon $modulename</p>", $visible, $delete, $settings);
+        $table->data[] = array ("<p $class>$icon $modulename</p>", $count, $module->version, $visible, $delete, $settings);
     }
     print_table($table);
 

admin/register.php

@@ -2,7 +2,6 @@
        // register.php - allows admin to register their site on moodle.org
 
     include("../config.php");
-    require_once("../lib/countries.php");
 
     require_login();
 
@@ -81,7 +80,7 @@
     echo "<tr valign=top>\n";
     echo "<td align=right><p>".get_string("country").":</td>\n";
     echo "<td><p>";
-    choose_from_menu ($COUNTRIES, "country", $admin->country, get_string("selectacountry")."...", "", "");
+    choose_from_menu (get_list_of_countries(), "country", $admin->country, get_string("selectacountry")."...", "", "");
     echo "</td>\n";
     echo "</tr>\n";
 
@@ -102,7 +101,7 @@
 
     echo "<tr valign=top>\n";
     echo "<td align=right><p>".get_string("administrator").":</td>\n";
-    echo "<td><p><input size=50 type=\"text\" name=\"adminname\" value=\"$admin->firstname $admin->lastname\"></td>\n";
+    echo "<td><p><input size=50 type=\"text\" name=\"adminname\" value=\"".fullname($admin, true)."\"></td>\n";
     echo "</tr>\n";
 
     echo "<tr valign=top>\n";

admin/site.html

@@ -27,7 +27,7 @@
       <br />
      </font>
     </td>
-    <td><?php  print_textarea($usehtmleditor, 10, 50, 600, 400, "summary", $form->summary); ?></td>
+    <td><?php  print_textarea($usehtmleditor, 20, 50, 600, 400, "summary", $form->summary); ?></td>
 </tr>
 <tr valign=top>
         <td align=right><P><?php print_string("frontpageformat") ?>:</td>

admin/site.php

@@ -52,6 +52,7 @@
 
     if ($site and empty($form)) {
         $form = $site;
+        $course = $site;
         $firsttime = false;
     } else {
         $form->fullname = "";

admin/timezone.php

@@ -0,0 +1,57 @@
+<?php   // $Id$
+
+    include("../config.php");
+
+    require_login();
+
+    if (!isadmin()) {
+        error("You must be an admin");
+    }
+
+    $strtimezone = get_string("timezone");
+    $strsavechanges = get_string("savechanges");
+    $strusers = get_string("users");
+    $strall = get_string("all");
+
+    print_header($strtimezone, $strtimezone, $strtimezone);
+
+    print_heading("");
+
+    if (isset($zone)) {
+        $db->debug = true;
+        echo "<center>";
+        execute_sql("UPDATE {$CFG->prefix}user SET timezone = '$zone'");
+        $db->debug = false;
+        echo "</center>";
+
+        $USER->timezone = $zone;
+    }
+
+    $user = $USER;
+
+    if (abs($user->timezone) > 13) {
+        $user->timezone = 99;
+    }
+    $timenow = time();
+
+    for ($tz = -26; $tz <= 26; $tz++) {
+        $zone = (float)$tz/2.0;
+        $usertime = $timenow + ($tz * 1800);
+        if ($tz == 0) {
+            $timezones["$zone"] = gmstrftime("%a, %I:%M %p", $usertime)." (GMT)";
+        } else if ($tz < 0) {
+            $timezones["$zone"] = gmstrftime("%a, %I:%M %p", $usertime)." (GMT$zone)";
+        } else {
+            $timezones["$zone"] = gmstrftime("%a, %I:%M %p", $usertime)." (GMT+$zone)";
+        }
+    }
+
+    echo "<center><form action=timezone.php method=get>";
+    echo "$strusers ($strall): ";
+    choose_from_menu ($timezones, "zone", $user->timezone, get_string("serverlocaltime"), "", "99");
+    echo "<input type=submit value=\"$strsavechanges\">";
+    echo "</form>";
+
+    print_footer();
+
+?>

admin/upgradelogs.php

@@ -0,0 +1,131 @@
+<?PHP  //$Id$
+
+    require("../config.php");
+
+    optional_variable($confirm);
+
+    require_login();
+
+    if (!isadmin()) {
+        error("You must be an admin to use this script");
+    }
+
+    if ($CFG->version < 2004013101) {
+        error("This script does not work with this old version of Moodle");
+    }
+
+    if (!$site = get_site()) {
+        redirect("index.php");
+    }
+
+/// Turn off time limits, sometimes upgrades can be slow.
+
+    @set_time_limit(0);
+
+
+/// Print header
+
+    $stradministration = get_string("administration");
+    $strupgradinglogs  = get_string("upgradinglogs", "admin");
+
+    print_header("$site->shortname: $stradministration: $strupgradinglogs", "$site->fullname", 
+                 "<a href=\"index.php\">$stradministration</a> -> $strupgradinglogs");
+
+    if (empty($_GET['confirm'])) {
+        notice_yesno(get_string("upgradelogsinfo", "admin"), 
+                     "upgradelogs.php?confirm=true", 
+                     "index.php");
+        print_footer();
+        exit;
+    }
+
+
+/// Try and extract as many cmids as possible from the existing logs
+
+    if ($coursemodules = get_records_sql("SELECT cm.*, m.name 
+                                            FROM {$CFG->prefix}course_modules cm, 
+                                                 {$CFG->prefix}modules m
+                                            WHERE cm.module = m.id")) {
+        $cmcount = count($coursemodules);
+        $count = 0;
+        $starttime = time();
+        $sleeptime = 0;
+
+        if ($CFG->dbtype == "mysql") {
+            $LIKE = "LIKE";
+        } else {
+            $LIKE = "ILIKE";
+        }
+
+        if ($cmcount > 10) {
+            print_simple_box('This process may take a very long time ... please be patient and let it finish.', 
+                             'center', '', '#ffcccc');
+            $sleeptime = 1;
+        }
+        foreach ($coursemodules as $cm) {
+
+            switch ($cm->name) { 
+                case "forum":
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'view.php?id=$cm->id'", false);
+
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'view.php?f=$cm->instance'", false);
+    
+                    if ($discussions = get_records("forum_discussions", "forum", $cm->instance)) {
+                        foreach ($discussions as $discussion) {
+                            execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                         WHERE module = '$cm->name' AND url $LIKE 'discuss.php?d=$discussion->id%'", false);
+                        }
+                    }
+                    break;
+
+                case "glossary": 
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url $LIKE 'view.php?id=$cm->id%'", false);
+                    break;
+
+                case "quiz": 
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'view.php?id=$cm->id'", false);
+                    break;
+
+                case "assignment": 
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'view.php?id=$cm->id'", false);
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'view.php?a=$cm->instance'", false);
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'submissions.php?id=$cm->instance'", false);
+                    break;
+                    
+                case "journal": 
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'report.php?id=$cm->id'", false);
+
+                    execute_sql("UPDATE {$CFG->prefix}log SET cmid = '$cm->id' 
+                                 WHERE module = '$cm->name' AND url = 'view.php?id=$cm->id'", false);
+                    break;
+
+            }
+
+            $count++;
+            $elapsedtime = time() - $starttime;
+            $projectedtime = (int)(((float)$cmcount / (float)$count) * $elapsedtime) - $elapsedtime;
+
+            if ($cmcount > 10) {
+                notify("Processed $count of $cmcount coursemodules.  Estimated completion: ".format_time($projectedtime));
+                flush();
+                sleep($sleeptime);     // To help reduce database load
+            }
+        }
+    }
+
+    delete_records("config", "name", "upgrade", "value", "logs");
+
+    notify("Log upgrading was successful!");
+
+
+    print_footer();
+
+?>

admin/uploaduser.php

@@ -0,0 +1,284 @@
+<?PHP // $Id$
+
+/// Bulk user registration script from a comma separated file
+/// Returns list of users with their user ids
+
+    require_once("../config.php");
+
+    optional_variable($numusers, 0);
+
+    require_login();
+
+    if (!isadmin()) {
+        error("You must be an administrator to edit users this way.");
+    }
+
+    if (! $site = get_site()) {
+        error("Could not find site-level course");
+    }
+
+    if (!$adminuser = get_admin()) {
+        error("Could not find site admin");
+    }
+
+    $streditmyprofile = get_string("editmyprofile");
+    $stradministration = get_string("administration");
+    $strchoose = get_string("choose");
+    $struser = get_string("user");
+    $strusers = get_string("users");
+    $strusersnew = get_string("usersnew");
+    $struploadusers = get_string("uploadusers");
+    $straddnewuser = get_string("importuser");
+
+    $csv_encode = '/\&\#44/';
+    if (isset($CFG->CSV_DELIMITER)) {        
+        $csv_delimiter = '\\' . $CFG->CSV_DELIMITER;
+        $csv_delimiter2 = $CFG->CSV_DELIMITER;
+
+        if (isset($CFG->CSV_ENCODE)) {
+            $csv_encode = '/\&\#' . $CFG->CSV_ENCODE . '/';
+        }
+    } else {
+        $csv_delimiter = "\,";
+        $csv_delimiter2 = ",";
+    }
+
+/// Print the header
+
+    print_header("$site->shortname: $struploadusers", $site->fullname, 
+                 "<a href=\"index.php\">$stradministration</a> -> 
+                  <a href=\"users.php\">$strusers</a> -> $struploadusers");
+
+
+/// If a file has been uploaded, then process it
+
+    if ($filename = valid_uploaded_file($_FILES['userfile'])) {
+
+        //Fix mac/dos newlines
+        $text = my_file_get_contents($filename);
+        $text = preg_replace('!\r\n?!',"\n",$text);
+        $fp = fopen($filename, "w");
+        fwrite($fp,$text);
+        fclose($fp);
+
+        $fp = fopen($filename, "r");
+
+        // make arrays of valid fields for error checking
+        $required = array("username" => 1, 
+                          "password" => 1, 
+                          "firstname" => 1, 
+                          "lastname" => 1,
+                          "email" => 1);
+        $optionalDefaults = array("institution" => 1, 
+                                  "department" => 1, 
+                                  "city" => 1, 
+                                  "country" => 1,
+                                  "lang" => 1, 
+                                  "timezone" => 1);
+        $optional = array("idnumber" => 1, 
+                          "icq" => 1, 
+                          "phone1" => 1, 
+                          "phone2" => 1,
+                          "address" => 1, 
+                          "url" => 1,
+                          "description" => 1, 
+                          "mailformat" => 1, 
+                          "maildisplay" => 1, 
+                          "htmleditor" => 1, 
+                          "autosubscribe" => 1,
+                          "idnumber" => 1, 
+                          "icq" => 1, 
+                          "course1" => 1, 
+                          "course2" => 1,
+                          "course3" => 1, 
+                          "course4" => 1, 
+                          "course5" => 1,
+			  "group1" => 1,
+			  "group2" => 1,
+			  "group3" => 1,
+			  "group4" => 1,
+			  "group5" =>1);
+
+        // --- get header (field names) ---
+        $header = split($csv_delimiter, fgets($fp,1024));
+        // check for valid field names
+        foreach ($header as $i => $h) {
+            $h = trim($h); $header[$i] = $h; // remove whitespace
+            if (!($required[$h] or $optionalDefaults[$h] or $optional[$h])) {
+                error(get_string('invalidfieldname', 'error', $h), 'uploaduser.php');
+            }
+            if ($required[$h]) {
+                $required[$h] = 2;
+            }
+        }
+        // check for required fields
+        foreach ($required as $key => $value) {
+            if ($value < 2) {
+                error(get_string('fieldrequired', 'error', $key), 'uploaduser.php');
+            }
+        }
+        $linenum = 2; // since header is line 1
+
+        while (!feof ($fp)) {
+            foreach ($optionalDefaults as $key => $value) {
+                $user->$key = addslashes($adminuser->$key);
+            }
+           //Note: commas within a field should be encoded as &#44 (for comma separated csv files)
+           //Note: semicolon within a field should be encoded as &#59 (for semicolon separated csv files)
+            $line = split($csv_delimiter, fgets($fp,1024));
+            foreach ($line as $key => $value) {
+                //decode encoded commas
+                $record[$header[$key]] = preg_replace($csv_encode,$csv_delimiter2,trim($value));
+            }
+            if ($record[$header[0]]) {
+                // add a new user to the database
+                optional_variable($newuser, ""); 
+
+                // add fields to object $user
+                foreach ($record as $name => $value) {
+                    // check for required values
+                    if ($required[$name] and !$value) {
+                        error(get_string('missingfield', 'error', $name). " ".
+                              get_string('erroronline', 'error', $linenum), 
+                              'uploaduser.php');
+                    }
+                    // password needs to be encrypted
+                    else if ($name == "password") {
+                        $user->password = md5($value);
+                    }
+                    // normal entry
+                    else {
+                        $user->{$name} = addslashes($value);
+                    }
+                }
+                $user->confirmed = 1;
+                $user->timemodified = time();
+                $linenum++;
+                $username = $user->username;
+                $addcourse[0] = $user->course1;
+                $addcourse[1] = $user->course2;
+                $addcourse[2] = $user->course3;
+                $addcourse[3] = $user->course4;
+                $addcourse[4] = $user->course5;
+                $addgroup[0] = $user->group1;
+                $addgroup[1] = $user->group2;
+                $addgroup[2] = $user->group3;
+                $addgroup[3] = $user->group4;
+                $addgroup[4] = $user->group5;
+                $courses = get_courses("all");
+                for ($i=0; $i<5; $i++) {
+                    $courseid[$i]=0;
+                }
+                foreach ($courses as $course) {
+                    for ($i=0; $i<5; $i++) {
+                        if ($course->shortname == $addcourse[$i]) {
+                            $courseid[$i] = $course->id;
+                        }
+                    }
+                }
+                if (! $user->id = insert_record("user", $user)) {
+                    if (!$user = get_record("user", "username", "changeme")) {   // half finished user from another time
+                        //Record not added - probably because user is already registered
+                        //In this case, output userid from previous registration
+                        //This can be used to obtain a list of userids for existing users
+                        if ($user = get_record("user","username",$username)) {
+                            notify("$user->id ".get_string('usernotaddedregistered', 'error', $username));
+                        } else {
+                            notify(get_string('usernotaddederror', 'error', $username));
+                        } 
+                    }
+                } else if ($user->username != "changeme") {
+                    notify("$struser: $user->id = $user->username");
+                    $numusers++;
+                }
+                for ($i=0; $i<5; $i++) {
+                    if ($addcourse[$i] && !$courseid[$i]) {
+                        notify(get_string('unknowncourse', 'error', $addcourse[$i]));
+                    }
+                }
+		for ($i=0; $i<5; $i++) {
+                  $groupid[$i] = 0;
+                  if ($addgroup[$i]) {
+		    if (!$courseid[$i]) {
+		      notify(get_string('coursegroupunknown','error',$addgroup[$i]));
+		    } else {
+		      if ($group = get_record("groups","courseid",$courseid[$i],"name",$addgroup[$i])) {
+			$groupid[$i] = $group->id;
+		      } else {
+			notify(get_string('groupunknown','error',$addgroup[$i]));
+		      }
+		    }
+		  }
+		}
+                for ($i=0; $i<5; $i++) {
+                    if ($courseid[$i]) {
+                        if (enrol_student($user->id, $courseid[$i])) {
+                            notify('-->'. get_string('enrolledincourse', '', $addcourse[$i]));
+                        } else {
+                            notify('-->'.get_string('enrolledincoursenot', '', $addcourse[$i]));
+                        }
+                    }
+                }
+                for ($i=0; $i<5; $i++) {
+		  if ($courseid[$i] && $groupid[$i]) {
+		    if (record_exists("user_students","userid",$user->id,"course",$courseid[$i])) {
+		      $usergroup = user_group($courseid[$i],$user->id);
+                      if ($usergroup) {
+			notify('-->' . get_string('groupalready','error',$usergroup->name));
+		      } else {
+			$group_member->groupid = $groupid[$i];
+			$group_member->userid = $user->id;
+			$group_member->timeadded = time();
+			if (insert_record("groups_members",$group_member)) {
+			  notify('-->' . get_string('addedtogroup','',$addgroup[$i]));
+			} else {
+			  notify('-->' . get_string('addedtogroupnot','',$addgroup[$i]));
+			}
+		      }
+		    } else {
+			notify('-->' . get_string('addedtogroupnotenrolled','',$addgroup[$i]));
+		    }
+		  }
+		}
+
+                unset ($user);
+            }
+        }
+        fclose($fp);
+        notify("$strusersnew: $numusers");
+
+        echo '<hr />';
+    }
+
+/// Print the form
+    print_heading_with_help($struploadusers, 'uploadusers');
+
+    $maxuploadsize = get_max_upload_file_size();
+    echo '<center>';
+    echo '<form method="post" enctype="multipart/form-data" action="uploaduser.php">'.
+         $strchoose.':<input type="hidden" name="MAX_FILE_SIZE" value="'.$maxuploadsize.'">'.
+         '<input type="file" name="userfile" size=30>'.
+         '<input type="submit" value="'.$struploadusers.'">'.
+         '</form></br>';
+    echo '</center>';
+
+    print_footer($course);
+
+
+
+function my_file_get_contents($filename, $use_include_path = 0) {
+/// Returns the file as one big long string
+
+    $data = "";
+    $file = @fopen($filename, "rb", $use_include_path);
+    if ($file) {
+        while (!feof($file)) {
+            $data .= fread($file, 1024);
+        }
+        fclose($file);
+    }
+    return $data;
+}
+
+?>
+

admin/user.php

@@ -1,18 +1,18 @@
 <?PHP // $Id$
 
     require_once("../config.php");
-    require_once("../user/lib.php");
-    require_once("../lib/countries.php");
-
-    $recordsperpage = 30;
 
     optional_variable($newuser, "");
     optional_variable($delete, "");
     optional_variable($confirm, "");
+    optional_variable($confirmuser, "");
     optional_variable($sort, "name");
     optional_variable($dir, "ASC");
     optional_variable($page, 0);
     optional_variable($search, "");
+    optional_variable($lastinitial, "");     // only show students with this last initial
+    optional_variable($firstinitial, "");    // only show students with this first initial
+    optional_variable($perpage, "30");       // how many per page
 
     unset($user);
     unset($admin);
@@ -106,10 +106,34 @@
         $strsearch = get_string("search");
         $strshowallusers = get_string("showallusers");
 
-        print_header("$site->shortname: $stredituser", $site->fullname, 
-                     "<a href=\"index.php\">$stradministration</a> -> <a href=\"users.php\">$strusers</a> -> $stredituser");
+        if ($firstinitial or $lastinitial or $search or $page) {
+            print_header("$site->shortname: $stredituser", $site->fullname, 
+                         "<a href=\"index.php\">$stradministration</a> -> ".
+                         "<a href=\"users.php\">$strusers</a> -> ".
+                         "<a href=\"user.php\">$stredituser</a>");
+        } else {
+            print_header("$site->shortname: $stredituser", $site->fullname, 
+                         "<a href=\"index.php\">$stradministration</a> -> ".
+                         "<a href=\"users.php\">$strusers</a> -> $stredituser");
+        }
 
-        if ($delete) {              // Delete a selected user, after confirmation
+        if ($confirmuser) {
+            if (!$user = get_record("user", "id", "$confirmuser")) {
+                error("No such user!");
+            }
+
+            unset($confirmeduser);
+            $confirmeduser->id = $confirmuser;
+            $confirmeduser->confirmed = 1;
+            $confirmeduser->timemodified = time();
+
+            if (update_record("user", $confirmeduser)) {
+                notify(get_string("userconfirmed", "", fullname($user, true)) );
+            } else {
+                notify(get_string("usernotconfirmed", "", fullname($user, true)));
+            }
+
+        } else if ($delete) {              // Delete a selected user, after confirmation
             if (!$user = get_record("user", "id", "$delete")) {
                 error("No such user!");
             }
@@ -120,7 +144,8 @@
             }
 
             if ($confirm != md5($delete)) {
-                notice_yesno(get_string("deletecheckfull", "", "'$user->firstname $user->lastname'"),
+                $fullname = fullname($user, true);
+                notice_yesno(get_string("deletecheckfull", "", "'$fullname'"),
                      "user.php?delete=$delete&confirm=".md5($delete), "user.php");
 
                 exit;
@@ -135,145 +160,185 @@
                     unenrol_student($user->id);  // From all courses
                     remove_teacher($user->id);   // From all courses
                     remove_admin($user->id);
-                    notify(get_string("deletedactivity", "", "$user->firstname $user->lastname"));
+                    notify(get_string("deletedactivity", "", fullname($user, true)) );
                 } else {
-                    notify(get_string("deletednot", "", "$user->firstname $user->lastname"));
+                    notify(get_string("deletednot", "", fullname($user, true)));
                 }
             }
         }
 
         // Carry on with the user listing
 
-
-        $columns = array("name", "email", "city", "country", "lastaccess");
+        $columns = array("firstname", "lastname", "email", "city", "country", "lastaccess");
 
         foreach ($columns as $column) {
             $string[$column] = get_string("$column");
-            $columnsort = "$column";
-            if ($column == "lastaccess") {
-                $columndir = "DESC";
+            if ($sort != $column) {
+                $columnicon = "";
+                if ($column == "lastaccess") {
+                    $columndir = "DESC";
+                } else {
+                    $columndir = "ASC";
+                }
             } else {
-                $columndir = "ASC";
-            }
-            if ($columnsort == $sort) {
-               $$column = $string[$column];
-            } else {
-               $$column = "<A HREF=\"user.php?sort=$columnsort&dir=$columndir&search=$search\">".$string[$column]."</A>";
+                $columndir = $dir == "asc" ? "desc":"asc";
+                if ($column == "lastaccess") {
+                    $columnicon = $dir == "asc" ? "up":"down";
+                } else {
+                    $columnicon = $dir == "asc" ? "down":"up";
+                }
+                $columnicon = " <img src=\"$CFG->pixpath/t/$columnicon.gif\" />";
+
             }
+            $$column = "<a href=\"user.php?sort=$column&dir=$columndir&search=$search&firstinitial=$firstinitial&lastinitial=$lastinitial\">".$string[$column]."</a>$columnicon";
         }
 
         if ($sort == "name") {
             $sort = "firstname";
         }
 
-        if (!$users = get_users_listing($sort, $dir, $page, $recordsperpage, $search)) {
-            if (!$users = get_users_listing($sort, $dir, 0, $recordsperpage)) {
-                error("No users found!");
-            } else {
-                notify(get_string("nousersmatching", "", $search));
-                $search = "";
-            }
-        }
-
+        $users = get_users_listing($sort, $dir, $page*$perpage, $perpage, $search, $firstinitial, $lastinitial);
         $usercount = get_users(false);
+        $usersearchcount = get_users(false, $search, true, "", "", $firstinitial, $lastinitial);
 
-        if ($search) {
-            $usersearchcount = get_users(false, $search);
+        if ($search or $firstinitial or $lastinitial) {
             print_heading("$usersearchcount / $usercount ".get_string("users"));
             $usercount = $usersearchcount;
         } else {
             print_heading("$usercount ".get_string("users"));
         }
-            
-        $a->start = $page;
-        $a->end = $page + $recordsperpage;
-        if ($a->end > $usercount) {
-            $a->end = $usercount;
+
+        $alphabet = explode(',', get_string('alphabet'));
+        $strall = get_string("all");
+
+
+        /// Bar of first initials
+
+        echo "<center><p align=\"center\">";
+        echo get_string("firstname")." : ";
+        if ($firstinitial) {
+            echo " <a href=\"user.php?sort=firstname&dir=ASC&".
+                 "perpage=$perpage&lastinitial=$lastinitial\">$strall</a> ";
+        } else {
+            echo " <b>$strall</b> ";
         }
-        echo "<TABLE align=center cellpadding=10><TR>";
-        echo "<TD>";
-        if ($page) {
-            $prevpage = $page - $recordsperpage;
-            if ($prevpage < 0) {
-                $prevpage = 0;
+        foreach ($alphabet as $letter) {
+            if ($letter == $firstinitial) {
+                echo " <b>$letter</b> ";
+            } else {
+                echo " <a href=\"user.php?sort=firstname&dir=ASC&".
+                     "perpage=$perpage&lastinitial=$lastinitial&firstinitial=$letter\">$letter</a> ";
             }
-            $options["dir"] = $dir;
-            $options["page"] = 0;
-            $options["sort"] = $sort;
-            $options["search"] = $search;
-            print_single_button("user.php", $options, "  <<  ");
-            echo "</TD><TD>";
-            $options["page"] = $prevpage;
-            print_single_button("user.php", $options, "  <  ");
         }
-        echo "</TD><TD>";
-        print_heading(get_string("displayingusers", "", $a));
-        echo "</TD><TD>";
-        $nextpage = $page + $recordsperpage;
-        if ($nextpage < $usercount) {
-            $options["dir"] = $dir;
-            $options["page"] = $nextpage;
-            $options["sort"] = $sort;
-            $options["search"] = $search;
-            print_single_button("user.php", $options, "  >  ");
-            echo "</TD><TD>";
-            $options["page"] = $usercount-$recordsperpage;
-            print_single_button("user.php", $options, "  >>  ");
+        echo "<br />";
+
+        /// Bar of last initials
+
+        echo get_string("lastname")." : ";
+        if ($lastinitial) {
+            echo " <a href=\"user.php?sort=lastname&dir=ASC&".
+                 "perpage=$perpage&firstinitial=$firstinitial\">$strall</a> ";
+        } else {
+            echo " <b>$strall</b> ";
         }
-        echo "</TD></TR></TABLE>";
+        foreach ($alphabet as $letter) {
+            if ($letter == $lastinitial) {
+                echo " <b>$letter</b> ";
+            } else {
+                echo " <a href=\"user.php?sort=lastname&dir=ASC&".
+                     "perpage=$perpage&firstinitial=$firstinitial&lastinitial=$letter\">$letter</a> ";
+            }
+        }
+        echo "</p>";
+        echo "</center>";
+
+        print_paging_bar($usercount, $page, $perpage,
+                "user.php?sort=$sort&dir=$dir&perpage=$perpage&firstinitial=$firstinitial&lastinitial=$lastinitial&search=$search&");
 
         flush();
 
-        foreach ($users as $key => $user) {
-            if (!empty($user->country)) {
-                $users[$key]->country = $COUNTRIES[$user->country];
+
+        if (!$users) {
+            $match = array();
+            if ($search) {
+               $match[] = $search;
             }
-        }
-        if ($sort == "country") {  // Need to resort by full country name, not code
+            if ($firstinitial) {
+               $match[] = get_string("firstname").": $firstinitial"."___";
+            }
+            if ($lastinitial) {
+               $match[] = get_string("lastname").": $lastinitial"."___";
+            }
+            $matchstring = implode(", ", $match);
+            print_heading(get_string("nousersmatching", "", $matchstring));
+
+        } else {
+
+            $countries = get_list_of_countries();
+
+            foreach ($users as $key => $user) {
+                if (!empty($user->country)) {
+                    $users[$key]->country = $countries[$user->country];
+                }
+            }
+            if ($sort == "country") {  // Need to resort by full country name, not code
+                foreach ($users as $user) {
+                    $susers[$user->id] = $user->country;
+                }
+                asort($susers);
+                foreach ($susers as $key => $value) {
+                    $nusers[] = $users[$key];
+                }
+                $users = $nusers;
+            }
+
+            $table->head = array ("$firstname / $lastname", $email, $city, $country, $lastaccess, "", "", "");
+            $table->align = array ("left", "left", "left", "left", "left", "center", "center", "center");
+            $table->width = "95%";
             foreach ($users as $user) {
-                $susers[$user->id] = $user->country;
+                if ($user->id == $USER->id or $user->username == "changeme") {
+                    $deletebutton = "";
+                } else {
+                    $deletebutton = "<a href=\"user.php?delete=$user->id\">$strdelete</a>";
+                }
+                if ($user->lastaccess) {
+                    $strlastaccess = format_time(time() - $user->lastaccess);
+                } else {
+                    $strlastaccess = get_string("never");
+                }
+                if ($user->confirmed == 0) {
+                    $confirmbutton = "<a href=\"user.php?confirmuser=$user->id\">" . get_string("confirm") . "</a>";
+                } else {
+                    $confirmbutton = "";
+                }
+                $fullname = fullname($user, true);
+                $table->data[] = array ("<a href=\"../user/view.php?id=$user->id&course=$site->id\">$fullname</a>",
+                                        "$user->email",
+                                        "$user->city",
+                                        "$user->country",
+                                        $strlastaccess,
+                                        "<a href=\"../user/edit.php?id=$user->id&course=$site->id\">$stredit</a>",
+                                        $deletebutton,
+                                        $confirmbutton);
             }
-            asort($susers);
-            foreach ($susers as $key => $value) {
-                $nusers[] = $users[$key];
-            }
-            $users = $nusers;
-        }
 
-        $table->head = array ($name, $email, $city, $country, $lastaccess, "", "");
-        $table->align = array ("left", "left", "left", "left", "left", "center", "center");
-        $table->width = "95%";
-        foreach ($users as $user) {
-            if ($user->id == $USER->id or $user->username == "changeme") {
-                $deletebutton = "";
-            } else {
-                $deletebutton = "<a href=\"user.php?delete=$user->id\">$strdelete</a>";
+            echo "<table align=center cellpadding=10><tr><td>";
+            echo "<form action=user.php method=post>";
+            echo "<input type=text name=search value=\"$search\" size=20>";
+            echo "<input type=submit value=\"$strsearch\">";
+            if ($search) {
+                echo "<input type=\"button\" onclick=\"document.location='user.php';\" value=\"$strshowallusers\">";
             }
-            if ($user->lastaccess) {
-                $strlastaccess = format_time(time() - $user->lastaccess);
-            } else {
-                $strlastaccess = get_string("never");
-            }
-            $table->data[] = array ("<a href=\"../user/view.php?id=$user->id&course=$site->id\">$user->firstname $user->lastname</a>",
-                             "$user->email",
-                             "$user->city",
-                             "$user->country",
-                             $strlastaccess,
-                             "<a href=\"../user/edit.php?id=$user->id&course=$site->id\">$stredit</a>",
-                             $deletebutton);
-        }
+            echo "</form>";    
+            echo "</td></tr></table>";
 
-        echo "<table align=center cellpadding=10><tr><td>";
-        echo "<form action=user.php method=post>";
-        echo "<input type=text name=search value=\"$search\" size=20>";
-        echo "<input type=submit value=\"$strsearch\">";
-        if ($search) {
-            echo "<input type=\"button\" onclick=\"document.location='user.php';\" value=\"$strshowallusers\">";
-        }
-        echo "</form>";    
-        echo "</td></tr></table>";
+            print_table($table);
 
-        print_table($table);
+            print_paging_bar($usercount, $page, $perpage,
+                             "user.php?sort=$sort&dir=$dir&perpage=$perpage".
+                             "&firstinitial=$firstinitial&lastinitial=$lastinitial&search=$search&");
+
+        }
 
         if ($CFG->auth == "email" || $CFG->auth == "none" || $CFG->auth == "manual"){
             print_heading("<a href=\"user.php?newuser=true\">".get_string("addnewuser")."</a>");

admin/users.php

@@ -4,7 +4,7 @@
 
     require_login();
 
-    if (!isadmin) {
+    if (!isadmin()) {
         error("Only admins can access this page");
     }
 
@@ -25,9 +25,11 @@
     $table->data[] = array("<b><a href=\"auth.php\">".get_string("authentication")."</a></b>",
                            get_string("adminhelpauthentication"));
 
-    if ($CFG->auth == "email" || $CFG->auth == "none" || $CFG->auth == "manual"){
+    if (is_internal_auth()) {
         $table->data[] = array("<b><a href=\"$CFG->wwwroot/$CFG->admin/user.php?newuser=true\">".get_string("addnewuser")."</a></b>",
                                get_string("adminhelpaddnewuser"));
+        $table->data[] = array("<b><a href=\"$CFG->wwwroot/$CFG->admin/uploaduser.php\">".get_string("uploadusers")."</a></b>",
+                               get_string("adminhelpuploadusers"));
     }
     $table->data[] = array("<b><a href=\"user.php\">".get_string("edituser")."</a></b>",
                            get_string("adminhelpedituser"));

auth/db/lib.php

@@ -27,6 +27,8 @@ function auth_user_login ($username, $password) {
     $rs = $authdb->Execute("SELECT * FROM $CFG->auth_dbtable 
                             WHERE $CFG->auth_dbfielduser = '$username' 
                               AND $CFG->auth_dbfieldpass = '$password' ");
+    $authdb->Close();
+
     if (!$rs) {
         notify("Could not connect to the specified authentication database...");
         return false;

auth/imap/config.html

@@ -16,7 +16,8 @@
 	<?php  if (isset($err["auth_imaphost"])) formerr($err["auth_imaphost"]); ?>
 	</TD>
     <TD>
-    <?php  print_string("auth_imaphost","auth") ?>
+    <?php  print_string("auth_imaphost","auth") ?> 
+    <?php  print_string("auth_multiplehosts","auth") ?>
     </TD>
 </TR>
 

auth/imap/lib.php

@@ -7,34 +7,40 @@ function auth_user_login ($username, $password) {
 
     global $CFG;
 
-    switch ($CFG->auth_imaptype) {
-        case "imapssl":
-            $host = "{".$CFG->auth_imaphost.":$CFG->auth_imapport/imap/ssl}";
-        break;
+    $hosts = split(';', $CFG->auth_imaphost);   // Could be multiple hosts
 
-        case "imapcert":
-            $host = "{".$CFG->auth_imaphost.":$CFG->auth_imapport/imap/ssl/novalidate-cert}";
-        break;
+    foreach ($hosts as $host) {                 // Try each host in turn
 
-        case "imaptls":
-            $host = "{".$CFG->auth_imaphost.":$CFG->auth_imapport/imap/notls}";
-        break;
+        $host = trim($host);
 
-        default:
-            $host = "{".$CFG->auth_imaphost.":$CFG->auth_imapport}";
+        switch ($CFG->auth_imaptype) {
+            case "imapssl":
+                $host = '{'.$host.":$CFG->auth_imapport/imap/ssl}";
+            break;
+    
+            case "imapcert":
+                $host = '{'.$host.":$CFG->auth_imapport/imap/ssl/novalidate-cert}";
+            break;
+    
+            case "imaptls":
+                $host = '{'.$host.":$CFG->auth_imapport/imap/notls}";
+            break;
+    
+            default:
+                $host = '{'.$host.":$CFG->auth_imapport}";
+        }
+
+        error_reporting(0);
+        $connection = imap_open($host, $username, $password, OP_HALFOPEN);
+        error_reporting($CFG->debug);   
+
+        if ($connection) {
+            imap_close($connection);
+            return true;
+        }
     }
 
-    error_reporting(0);
-    $connection = imap_open($host, $username, $password, OP_HALFOPEN);
-    error_reporting($CFG->debug);   
-
-    if ($connection) {
-        imap_close($connection);
-        return true;
-
-    } else {
-        return false;
-    }
+    return false;  // No match
 }
 
 

auth/ldap/config.html

@@ -17,6 +17,9 @@
     if (!isset($config->ldap_bind_pw)) {
         $config->ldap_bind_pw = "";
     }
+    if (empty($config->ldap_version)) {
+        $config->ldap_version  = "2";
+    }
 ?>
 <tr valign="top" BGCOLOR="<?php echo $THEME->cellheading2 ?>">
 	<TD ALIGN=RIGHT><P>ldap_host_url:</TD>
@@ -29,6 +32,21 @@
     </TD>
 </TR>
 
+<tr valign="top" BGCOLOR="<?php echo $THEME->cellheading2 ?>">
+	<TD ALIGN=RIGHT><P>ldap_version:</TD>
+	<TD>
+    <?php
+       $versions[2] = "2";
+       $versions[3] = "3";
+       choose_from_menu($versions, "ldap_version", $config->ldap_version, "");
+	   if (isset($err["ldap_version"])) formerr($err["ldap_version"]); 
+    ?>
+	</TD>
+    <TD>
+    <?php  print_string("auth_ldap_version","auth") ?>
+    </TD>
+</TR>
+
 <TR VALIGN=TOP BGCOLOR="<?php echo $THEME->cellheading2 ?>">
 	<TD ALIGN=RIGHT><P>ldap_contexts:</TD>
 	<TD>

auth/ldap/lib.php

@@ -221,6 +221,10 @@ function auth_ldap_connect(){
     $result = ldap_connect($CFG->ldap_host_url);
 
     if ($result) {
+        if (!empty($CFG->ldap_version)) {
+            ldap_set_option($result, LDAP_OPT_PROTOCOL_VERSION, $CFG->ldap_version);
+        }
+
         return $result;
 
     } else {

auth/nntp/config.html

@@ -15,6 +15,7 @@
 	</TD>
     <TD>
     <?php  print_string("auth_nntphost","auth") ?>
+    <?php  print_string("auth_multiplehosts","auth") ?>
     </TD>
 </TR>
 

auth/nntp/lib.php

@@ -8,19 +8,22 @@ function auth_user_login ($username, $password) {
 
     global $CFG;
 
-    $host = "{".$CFG->auth_nntphost.":$CFG->auth_nntpport/nntp}";
+    $hosts = split(';', $CFG->auth_nntphost);   // Could be multiple hosts
 
-    error_reporting(0);
-    $connection = imap_open($host, $username, $password, OP_HALFOPEN);
-    error_reporting($CFG->debug);   
+    foreach ($hosts as $host) {                 // Try each host in turn
+        $host = '{'.trim($host).":$CFG->auth_nntpport/nntp}";
 
-    if ($connection) {
-        imap_close($connection);
-        return true;
+        error_reporting(0);
+        $connection = imap_open($host, $username, $password, OP_HALFOPEN);
+        error_reporting($CFG->debug);   
 
-    } else {
-        return false;
+        if ($connection) {
+            imap_close($connection);
+            return true;
+        }
     }
+
+    return false;    // No match
 }
 
 

auth/pop3/config.html

@@ -3,7 +3,7 @@
         $config->auth_pop3host = "127.0.0.1";
     }
     if (!isset($config->auth_pop3type)) {
-        $config->auth_pop3type = "pop3";
+        $config->auth_pop3type = "pop3notls";
     }
     if (!isset($config->auth_pop3port)) {
         $config->auth_pop3port = "110";
@@ -17,13 +17,14 @@
 	</TD>
     <TD>
     <?php  print_string("auth_pop3host","auth") ?>
+    <?php  print_string("auth_multiplehosts","auth") ?>
     </TD>
 </TR>
 
 <TR VALIGN=TOP BGCOLOR="<?php echo $THEME->cellheading2 ?>">
 	<TD ALIGN=RIGHT><P>auth_pop3type:</TD>
 	<TD>
-    <?php  $pop3types = array("pop3","pop3cert");
+    <?php  $pop3types = array("pop3","pop3cert", "pop3notls");
        foreach($pop3types as $pop3type) {
            $pop3options[$pop3type] = $pop3type;
        }

auth/pop3/lib.php

@@ -7,26 +7,35 @@ function auth_user_login ($username, $password) {
 
     global $CFG;
 
-    switch ($CFG->auth_pop3type) {
-        case "pop3":
-            $host = "{".$CFG->auth_pop3host.":$CFG->auth_pop3port/pop3/notls}INBOX";
-        break;
-        case "pop3cert":
-            $host = "{".$CFG->auth_pop3host.":$CFG->auth_pop3port/pop3/ssl/novalidate-cert}INBOX";
-        break;
+    $hosts = split(';', $CFG->auth_pop3host);   // Could be multiple hosts
+
+    foreach ($hosts as $host) {                 // Try each host in turn
+
+        $host = trim($host);
+
+        switch ($CFG->auth_pop3type) {
+            case "pop3":
+                $host = '{'.$host.":$CFG->auth_pop3port/pop3}INBOX";
+            break;
+            case "pop3notls":
+                $host = '{'.$host.":$CFG->auth_pop3port/pop3/notls}INBOX";
+            break;
+            case "pop3cert":
+                $host = '{'.$host.":$CFG->auth_pop3port/pop3/ssl/novalidate-cert}INBOX";
+            break;
+        }
+
+        error_reporting(0);
+        $connection = imap_open($host, $username, $password, OP_HALFOPEN);
+        error_reporting($CFG->debug);   
+ 
+        if ($connection) {
+            imap_close($connection);
+            return true;
+        }
     }
 
-    error_reporting(0);
-    $connection = imap_open($host, $username, $password, OP_HALFOPEN);
-    error_reporting($CFG->debug);   
-
-    if ($connection) {
-        imap_close($connection);
-        return true;
-
-    } else {
-        return false;
-    }
+    return false;  // No matches found
 }
 
 

backup/STATUS.txt

@@ -5,8 +5,7 @@ This documment shows the current status of the backup/restore option.
 
 Backup:  WORKING. COMPLETED !!
 
-Restore: WORKING. COMPLETED except logs.
-                  
+Restore: WORKING. COMPLETED !!
 
 ========== ========== ========== ========== ========== ==========
 
@@ -49,6 +48,8 @@ Backup Details:
                  - All..........................................DONE 
            - Logs...............................................DONE
            - Scales.............................................DONE
+           - Events.(course)....................................DONE
+           - Groups.............................................DONE
            - Categories and Questions.(STEP 1)..................DONE
               + categories......................................DONE
               + questions structure.............................DONE
@@ -57,6 +58,10 @@ Backup Details:
                  + course data..................................DONE
                  + user data....................................DONE
                  + files........................................DONE
+              x attendances.....................................DONE
+                 + course data..................................DONE
+                 + user data....................................DONE
+                 + files.....(NOT EXISTS).......................DONE
               x chats...........................................DONE
                  + course data..................................DONE
                  + user data....................................DONE
@@ -69,10 +74,18 @@ Backup Details:
                  + course data..................................DONE
                  + user data....................................DONE
                  + files........................................DONE
+              x glosaries.......................................DONE
+                 + course data..................................DONE
+                 + user data....................................DONE
+                 + files........................................DONE
               x journals........................................DONE
                  + course data..................................DONE
                  + user data....................................DONE
                  + files.(NOT EXISTS)...........................DONE
+              x labels..........................................DONE
+                 + course data..................................DONE
+                 + user data....................................DONE
+                 + files.(NOT EXISTS)...........................DONE
               x quizzes.(STEP 2)................................DONE
                  + course data..................................DONE
                  + user data....................................DONE
@@ -103,8 +116,19 @@ Backup Details:
    - Browse backup files........................................DONE
    - Download backup files......................................DONE
    - Delete backup files........................................DONE
-   - Program automatic backups..................................NO EXISTS
-
+   - Program scheduled backups..................................DONE
+      - Build a configuration inteface..........................DONE
+      - Create the script.......................................DONE
+      - Integrate it in cron....................................DONE
+      - View logs...............................................DONE
+      - Send email..............................................DONE
+   - Select manually the desired activities to backup...........NOT EXISTS
+      - Modify the backup frontend..............................NOT EXISTS
+      - Modify the backup of course_sections and course_modules.NOT EXISTS
+      - Modify every module backuplib to work properly..........NOT EXISTS
+   - Encode every possible internal link........................DONE
+      - Links to forums.........................................DONE
+      - Links to resources......................................DONE
 Restore Details:
 ===============
    - Delete old entries at restore start........................DONE
@@ -156,6 +180,8 @@ Restore Details:
               + categories......................................DONE
               + questions structure.............................DONE
            - Scales.............................................DONE
+           - Events.(course)....................................DONE
+           - Groups.............................................DONE
            - Mods Info Prepare..................................DONE
               x read modules zone...............................DONE
               x separate every mod..............................DONE
@@ -166,6 +192,10 @@ Restore Details:
                  + course data..................................DONE
                  + user data....................................DONE
                  + files........................................DONE
+              x attendances.....................................DONE
+                 + course data..................................DONE
+                 + user data....................................DONE
+                 + files.(NOT EXISTS)...........................DONE
               x chats...........................................DONE
                  + course data..................................DONE
                  + user data....................................DONE
@@ -178,10 +208,18 @@ Restore Details:
                  + course data..................................DONE
                  + user data....................................DONE
                  + files........................................DONE
+              x glosaries.......................................DONE
+                 + course data..................................DONE
+                 + user data....................................DONE
+                 + files........................................DONE
               x journals........................................DONE
                  + course data..................................DONE
                  + user data....................................DONE
                  + files.(NOT EXISTS)...........................DONE
+              x labels..........................................DONE
+                 + course data..................................DONE
+                 + user data....................................DONE
+                 + files.(NOT EXISTS)...........................DONE
               x quizzes.(STEP 2)................................DONE
                  + course data..................................DONE
                  + user data....................................DONE
@@ -200,17 +238,28 @@ Restore Details:
                  + files........................................DONE
    - User files from temp.......................................DONE
    - Course files from temp.....................................DONE
-   - Log entries................................................NO EXISTS
+   - Log entries................................................DONE
    - Readjust instance in course_modules........................DONE
    - Readjust modinfo in course (serialize).....................DONE
    - Delete old entries at restore end.  .......................DONE
       - From database...........................................DONE
       - From filesystem.........................................DONE
    - Upload backup files........................................DONE
+   - Decode every possible internal link........................DONE
+      - Links to forums.........................................DONE
+         - From forums (post->message)..........................DONE
+         - From forums (forum->intro)...........................DONE
+         - From resources (resource->summary)...................DONE
+         - From resources (resource->alltext)...................DONE
+      - Links to resources......................................DONE
+         - From forums (post->message)..........................DONE
+         - From forums (forum->intro)...........................DONE
+         - From resources (resource->summary)...................DONE
+         - From resources (resource->alltext)...................DONE
 
 ========== ========== ========== =========== =========== =========== ===
 
-This is all. It's no a little thing !!!  :-)
+This is all. It isn't a little thing !!!  :-)
 
 Eloy (stronk7)
 29-04-2003

backup/backup.php

@@ -6,6 +6,7 @@
     require_once ("../config.php");
     require_once ("lib.php");
     require_once ("backuplib.php");
+    require_once ("$CFG->libdir/blocklib.php");
 
     optional_variable($id);       // course id
     optional_variable($cancel);
@@ -68,6 +69,8 @@
         error("Course ID was incorrect (can't find it)");
     }
 
+    check_for_restricted_user($USER->username, "$CFG->wwwroot/course/view.php?id=$course->id");
+
     //Print header
     if (isadmin()) {
         print_header("$site->shortname: $strcoursebackup", $site->fullname,
@@ -85,7 +88,7 @@
 
     //Adjust some php variables to the execution of this script
     ini_set("max_execution_time","3000");
-    ini_set("memory_limit","56M");
+    ini_set("memory_limit","80M");
 
     //Call the form, depending the step we are
     if (!$launch) {

backup/backup_check.html

@@ -73,7 +73,7 @@
     }
 ?>
 
-<form name="form" method="post" <?php echo $onsubmit ?> action="<?php echo $ME ?>">
+<form name="form" method="post" action="<?php echo $ME ?>">
 <table cellpadding=5>
 <?php
 
@@ -83,22 +83,41 @@
     echo get_string("name").":";
     echo "</B></td><td>";
     //Calculate the backup string
-    //Take off spaces in the filename !!
-    $backup_name = str_replace(" ","_",strtolower(get_string("backupfilename")));
+
+    //Calculate the backup word
+    //Take off some characters in the filename !!
+    $takeoff = array(" ", ":", "/", "\\", "|");
+    $backup_word = str_replace($takeoff,"_",strtolower(get_string("backupfilename")));
     //If non-translated, use "backup"
-    if (substr($backup_name,0,1) == "[") {
-        $backup_name = "backup";
+    if (substr($backup_word,0,1) == "[") {
+        $backup_word= "backup";
     }
-    //Calculate the format string
-    $backup_name_format = str_replace(" ","_",get_string("backupnameformat"));
+
+    //Calculate the date format string
+    $backup_date_format = str_replace(" ","_",get_string("backupnameformat"));
     //If non-translated, use "%Y%m%d-%H%M"
-    if (substr($backup_name_format,0,1) == "[") {
-        $backup_name_format = "%%Y%%m%%d-%%H%%M";
+    if (substr($backup_date_format,0,1) == "[") {
+        $backup_date_format = "%%Y%%m%%d-%%H%%M";
     }
-    $backup_name .= str_replace(" ","_","-".strtolower($course->shortname)."-".userdate(time(),$backup_name_format,99,false).".zip");
-    echo $backup_name;
-    //Add as hidden name
-    echo "<input type=\"hidden\" name=\"backup_name\" value=\"".$backup_name."\">";
+
+    //Calculate the shortname
+    $backup_shortname = clean_filename($course->shortname);
+    if (empty($backup_shortname) or $backup_shortname == '_' ) {
+        $backup_shortname = $course->id;
+    }
+
+    //Calculate the final backup filename
+    //The backup word
+    $backup_name = $backup_word."-";
+    //The shortname
+    $backup_name .= strtolower($backup_shortname)."-";
+    //The date format
+    $backup_name .= userdate(time(),$backup_date_format,99,false);
+    //The extension
+    $backup_name .= ".zip";
+
+    //Add as text field
+    echo "<input type=\"text\" name=\"backup_name\" size=\"40\" value=\"".$backup_name."\">";
     echo "</td></tr>";
 
     //Calculate the backup unique code to allow simultaneus backups (to define
@@ -113,6 +132,32 @@
     //Now print the To Do list
     echo "<tr>";    
     echo "<td colspan=\"2\" align=\"center\"><P><B>";
+
+    //Here we check if backup_users = None. Then, we switch off every module
+    //user info, user_files, logs and exercises and workshop backups. A Warning is showed to
+    //inform the user.
+    if ($backup_users == 2) {
+        if ($allmods = get_records("modules") ) {
+            foreach ($allmods as $mod) {
+                $modname = $mod->name;
+                $var = "backup_user_info_".$modname;
+                if (isset($$var)) {
+                    $$var = 0;
+                }
+                $var = "backup_".$modname;
+                if (isset($$var)) {
+                    if ($modname == "exercise" || $modname == "workshop") {
+                        $$var = 0;
+                    }
+                }
+            }
+        $backup_user_files = 0;
+        $backup_logs = 0;
+        }
+        print_simple_box("<font color=\"red\">".get_string("backupnoneusersinfo")."</font>","center", "70%", "$THEME->cellheading", "20", "noticebox");
+        echo "<hr noshade size=\"1\">";
+    }
+
     echo get_string("backupdetails").":";
     echo "</td></tr>";
 
@@ -125,7 +170,7 @@
             $modbackup = $modname."_backup_mods";
             //If exists the lib & function
             $var = "exists_".$modname;
-            if ($$var) {
+            if (isset($$var) && $$var) {
                 //Add hidden fields
                 $var = "backup_".$modname;
                 echo "<input type=\"hidden\" name=\"".$var."\" value=\"".$$var."\">";
@@ -161,7 +206,7 @@
         echo "<td colspan=\"2\"><P><B>";
         $user_options[0] = get_string("includeallusers");
         $user_options[1] = get_string("includecourseusers");
-        ///$user_options[2] = get_string("includeneededusers");--->NOT IMPLEMENTED
+        $user_options[2] = get_string("includenoneusers");
         echo "<li>".$user_options[$backup_users]."<P>";
         //Add as hidden name
         echo "<input type=\"hidden\" name=\"backup_users\" value=\"".$backup_users."\">";

backup/backup_execute.html

@@ -136,7 +136,7 @@
     echo "<li>".get_string("deletingolddata");
     $status = backup_delete_old_data();
     if (!$status) {
-        error ("An error has ocurred");
+        error ("An error occurred deleting old backup data");
     }
 
     //Create the moodle.xml file
@@ -150,7 +150,9 @@
         echo "<li>".get_string("writinggeneralinfo");;
         //Prints general info about backup to file
         if ($backup_file) {
-            $status = backup_general_info($backup_file,$preferences);
+            if (!$status = backup_general_info($backup_file,$preferences)) {
+                notify("An error occurred while backing up general info");
+            }
         }
         echo "<li>".get_string("writingcoursedata");
 
@@ -160,12 +162,16 @@
         echo "<li>".get_string("courseinfo");
         //Prints course start (tag and general info)
         if ($status) {
-            $status = backup_course_start($backup_file,$preferences);
+            if (!$status = backup_course_start($backup_file,$preferences)) {
+                notify("An error occurred while backing up course start");
+            }
         }
         echo "<li>".get_string("sections");
         //Section info
         if ($status) {
-            $status = backup_course_sections($backup_file,$preferences);
+            if (!$status = backup_course_sections($backup_file,$preferences)) {
+                notify("An error occurred while backing up course sections");
+            }
         }
 
         //End course contents (close ul)
@@ -174,28 +180,52 @@
         echo "<li>".get_string("writinguserinfo");
         //User info
         if ($status) {
-            $status = backup_user_info($backup_file,$preferences);
+            if (!$status = backup_user_info($backup_file,$preferences)) {
+                notify("An error occurred while backing up user info");
+            }
         }
 
         //If we have selected to backup quizzes, backup categories and
         //questions structure (step 1). See notes on mod/quiz/backuplib.php
         if ($status and $preferences->mods['quiz']->backup) {
             echo "<li>".get_string("writingcategoriesandquestions");
-            $status = quiz_backup_question_categories($backup_file,$preferences);
+            if (!$status = quiz_backup_question_categories($backup_file,$preferences)) {
+                notify("An error occurred while backing up quiz categories");
+            }
         }
         
         //Print logs if selected
         if ($status) {
             if ($preferences->backup_logs) {  
                 echo "<li>".get_string("writingloginfo");
-                $status = backup_log_info($backup_file,$preferences);
+                if (!$status = backup_log_info($backup_file,$preferences)) {
+                    notify("An error occurred while backing up log info");
+                }
             }
         }
 
         //Print scales info
         if ($status) {
             echo "<li>".get_string("writingscalesinfo");
-            $status = backup_scales_info($backup_file,$preferences);
+            if (!$status = backup_scales_info($backup_file,$preferences)) {
+                notify("An error occurred while backing up scales");
+            }
+        }
+
+        //Print groups info
+        if ($status) {
+            echo "<li>".get_string("writinggroupsinfo");
+            if (!$status = backup_groups_info($backup_file,$preferences)) {
+                notify("An error occurred while backing up groups");
+            }
+        }
+
+        //Print events info
+        if ($status) { 
+            echo "<li>".get_string("writingeventsinfo");
+            if (!$status = backup_events_info($backup_file,$preferences)) {
+                notify("An error occurred while backing up events");
+            }
         }
 
         //Module info, this unique function makes all the work!!
@@ -212,26 +242,34 @@
             if ($mods_to_backup) {
                 echo "<li>".get_string("writingmoduleinfo");
                 //Start modules tag
-                $status = backup_modules_start ($backup_file,$preferences);
+                if (!$status = backup_modules_start ($backup_file,$preferences)) {
+                    notify("An error occurred while backing up module info");
+                }
                 //Open ul for module list
                 echo "<ul>";
                 //Iterate over modules and call backup
                 foreach ($preferences->mods as $module) {
                     if ($module->backup and $status) {
                         echo "<li>".get_string("modulenameplural",$module->name);
-                        $status = backup_module($backup_file,$preferences,$module->name);
+                        if (!$status = backup_module($backup_file,$preferences,$module->name)) {
+                            notify("An error occurred while backing up '$module->name'");
+                        }
                     }
                 }
                 //Close ul for module list
                 echo "</ul>";
                 //Close modules tag
-                $status = backup_modules_end ($backup_file,$preferences);
+                if (!$status = backup_modules_end ($backup_file,$preferences)) {
+                    notify("An error occurred while finishing the module backups");
+                }
             }
         }
 
         //Prints course end 
         if ($status) {
-            $status = backup_course_end($backup_file,$preferences);
+            if (!$status = backup_course_end($backup_file,$preferences)) {
+                notify("An error occurred while closing the course backup");
+            }
         }
         //Close the xml file and xml data
         if ($backup_file) {
@@ -246,7 +284,9 @@
     if ($status) {
         if ($preferences->backup_user_files) {
             echo "<li>".get_string("copyinguserfiles");
-            $status = backup_copy_user_files ($preferences);
+            if (!$status = backup_copy_user_files ($preferences)) {
+                notify("An error occurred while copying user files");
+            }
         }
     }
 
@@ -254,26 +294,34 @@
     if ($status) {
         if ($preferences->backup_course_files) {
             echo "<li>".get_string("copyingcoursefiles");
-            $status = backup_copy_course_files ($preferences);
+            if (!$status = backup_copy_course_files ($preferences)) {
+                notify("An error occurred while copying course files");
+            }
         }
     }
 
     //Now, zip all the backup directory contents
     if ($status) {
         echo "<li>".get_string("zippingbackup");
-        $status = backup_zip ($preferences);
+        if (!$status = backup_zip ($preferences)) {
+            notify("An error occurred while zipping the backup");
+        }
     }
 
     //Now, copy the zip file to course directory
     if ($status) {
         echo "<li>".get_string("copyingzipfile");
-        $status = copy_zip_to_course_dir ($preferences);
+        if (!$status = copy_zip_to_course_dir ($preferences)) {
+            notify("An error occurred while copying the zip file to the course directory");
+        }
     }
 
     //Now, clean temporary data (db and filesystem)
     if ($status) {
         echo "<li>".get_string("cleaningtempdata");
-        $status = clean_temp_data ($preferences); 
+        if (!$status = clean_temp_data ($preferences)) {
+            notify("An error occurred while cleaning up temporary data");
+        }
     }
 
     //Ends th main ul
@@ -286,7 +334,8 @@
     echo "</table>";
     
     if (!$status) {
-        error ("An error has ocurred");
+        error ("The backup did not complete successfully", 
+               "$CFG->wwwroot/course/view.php?id=$course->id");
     }
 
     //Print final message

backup/backup_form.html

@@ -14,7 +14,6 @@
         }
     }
 
-
     //Check site
     if (!$site = get_site()) {
         error("Site not found!");
@@ -74,7 +73,7 @@
 
 ?>
 
-<form name="form" method="post" <?php echo $onsubmit ?> action="<?php echo $ME ?>">
+<form name="form" method="post" action="<?php echo $ME ?>">
 <table cellpadding=5>
 <?php
     if ($allmods = get_records("modules") ) {
@@ -83,7 +82,7 @@
             $modbackup = $modname."_backup_mods";
             //If exists the lib & function
             $var = "exists_".$modname;
-            if ($$var) {
+            if (isset($$var) && $$var) {
                 //Print the full tr
                 echo "<tr>";
                 echo "<td align=\"right\"><P><B>";
@@ -110,7 +109,7 @@
         echo "</td><td>";
         $user_options[0] = get_string("all");
         $user_options[1] = get_string("course");
-        //$user_options[2] = get_string("needed");-->NOT IMPLEMENTED
+        $user_options[2] = get_string("none");
         choose_from_menu($user_options, "backup_users", $backup_users, "");
         echo "</td></tr>";
 

backup/backup_scheduled.php

@@ -0,0 +1,690 @@
+<?PHP //$Id$
+    //This file contains all the code needed to execute scheduled backups
+
+//This function is executed via moodle cron
+//It prepares all the info and execute backups as necessary
+function schedule_backup_cron() {
+
+    global $CFG;
+    
+    $status = true;
+
+    $emailpending = false;
+
+    //Check for required functions...
+    if(!function_exists('utf8_encode')) {
+        echo "        ERROR: You need to add XML support to your PHP installation!\n";
+        return true;
+    }
+
+    //Get now
+    $now = time();
+
+    //First of all, we have to see if the scheduled is active and detect
+    //that there isn't another cron running
+    echo "    Checking backup status";
+    $backup_config = backup_get_config();
+    if(!isset($backup_config->backup_sche_active) || !$backup_config->backup_sche_active) {
+        echo "...INACTIVE\n";
+        return true;
+    } else if (isset($backup_config->backup_sche_running) && $backup_config->backup_sche_running) {
+        echo "...RUNNING\n";
+        //Now check if it's a really running task or something very old looking 
+        //for info in backup_logs to unlock status as necessary
+        $timetosee = 1800;   //Half an hour looking for activity
+        $timeafter = time() - $timetosee;
+        $numofrec = count_records_select ("backup_log","time > $timeafter");
+        if (!$numofrec) {
+            $timetoseemin = $timetosee/60;
+            echo "    No activity in last ".$timetoseemin." minutes. Unlocking status\n";
+        } else {
+            echo "    Scheduled backup seems to be running. Execution delayed\n";
+            return true;
+        }
+    } else {
+        echo "...OK\n";
+        //Mark backup_sche_running
+        backup_set_config("backup_sche_running","1");
+    }
+
+    //Now we get the main admin user (we'll use his timezone, mail...)
+    echo "    Getting admin info\n";
+    $admin = get_admin();
+    if (!$admin) {
+        $status = false;
+    }
+
+    //Now we get a list of courses in the server
+    if ($status) {
+        echo "    Checking courses\n";
+        $courses = get_records("course");
+        //For each course, we check (insert, update) the backup_course table
+        //with needed data
+        foreach ($courses as $course) {
+            if ($status) {
+                echo "        $course->fullname\n";
+                //We check if the course exists in backup_course
+                $backup_course = get_record("backup_courses","courseid",$course->id);
+                //If it doesn't exist, create
+                if (!$backup_course) {
+                    $temp_backup_course->courseid = $course->id;
+                    $newid = insert_record("backup_courses",$temp_backup_course);
+                    //And get it from db
+                    $backup_course = get_record("backup_courses","id",$newid);
+                }
+                //If it doesn't exist now, error
+                if (!$backup_course) {
+                    echo "            ERROR (in backup_courses detection)\n";
+                    $status = false;
+                }
+                //Now we backup every course with nextstarttime < now
+                if ($backup_course->nextstarttime > 0 && $backup_course->nextstarttime < $now) {
+                    //Set laststarttime
+                    $starttime = time();
+                    set_field("backup_courses","laststarttime",$starttime,"courseid",$backup_course->courseid);
+                    //Launch backup
+                    $course_status = schedule_backup_launch_backup($course,$starttime);
+                    //We have to send a email because we have included at least one backup
+                    $emailpending = true;
+                    //Set lastendtime
+                    set_field("backup_courses","lastendtime",time(),"courseid",$backup_course->courseid);
+                    //Set laststatus
+                    if ($course_status) {
+                        set_field("backup_courses","laststatus","1","courseid",$backup_course->courseid);
+                    } else {
+                        set_field("backup_courses","laststatus","0","courseid",$backup_course->courseid);
+                    }
+                }
+
+                //Now, calculate next execution of the course
+                $nextstarttime = schedule_backup_next_execution ($backup_course,$backup_config,$now,$admin->timezone);
+                //Save it to db
+                set_field("backup_courses","nextstarttime",$nextstarttime,"courseid",$backup_course->courseid);
+                //Print it to screen as necessary
+                $showtime = "undefined";
+                if ($nextstarttime > 0) {
+                    $showtime = userdate($nextstarttime,"",$admin->timezone);
+                }
+                echo "            Next execution: $showtime\n";
+            }
+        }
+    }
+
+    //Delete old logs
+    if (!empty($CFG->loglifetime)) {
+        echo "    Deleting old logs\n";
+        $loglifetime = $now - ($CFG->loglifetime * 86400);
+        delete_records_select("backup_log", "laststarttime < '$loglifetime'");
+    }
+
+    //Send email to admin
+    if ($emailpending) {
+        echo "    Sending email to admin\n";
+        $message = "";
+        //Build the message text (future versions should handle html messages too!!)
+        $logs = get_records_select ("backup_log","laststarttime >= '$now'","id");
+        if ($logs) {
+            $currentcourse = 1;
+            foreach ($logs as $log) {
+                if ($currentcourse != $log->courseid) {
+                    $message .= "\n==================================================\n\n";
+                    $currentcourse = $log->courseid;
+                }
+                $message .= userdate($log->time,"%T",$admin->timezone)." ".$log->info."\n";
+            }
+        }
+        //Send the message
+        $site = get_site();
+        email_to_user($admin,$admin,"$site->shortname: ".get_string("scheduledbackupstatus"),$message);
+    }
+    
+
+    //Everything is finished stop backup_sche_running
+    backup_set_config("backup_sche_running","0");
+
+    return $status;
+}
+
+//This function executes the ENTIRE backup of a course (passed as parameter)
+//using all the scheduled backup preferences
+function schedule_backup_launch_backup($course,$starttime = 0) {
+
+    $preferences = false;
+    $status = false;
+
+    echo "            Executing backup\n";
+    schedule_backup_log($starttime,$course->id,"Start backup course $course->fullname");
+    schedule_backup_log($starttime,$course->id,"  Phase 1: Checking and counting:");
+    $preferences = schedule_backup_course_configure($course,$starttime);
+
+    if ($preferences) {
+        schedule_backup_log($starttime,$course->id,"  Phase 2: Executing and copying:");
+        $status = schedule_backup_course_execute($preferences,$starttime);
+    }
+    if ($status && $preferences) {
+        //Only if the backup_sche_keep is set
+        if ($preferences->backup_keep) {
+            schedule_backup_log($starttime,$course->id,"  Phase 3: Deleting old backup files:");
+            $status = schedule_backup_course_delete_old_files($preferences,$starttime);
+        }
+    }
+    if ($status && $preferences) {
+        echo "            End backup OK\n";
+        schedule_backup_log($starttime,$course->id,"End backup course $course->fullname - OK");
+    } else {
+        echo "            End backup with ERROR\n";
+        schedule_backup_log($starttime,$course->id,"End backup course $course->fullname - ERROR!!");
+    }
+
+    return $status && $preferences;
+}
+
+//This function saves to backup_log all the needed process info
+//to use it later.  NOTE: If $starttime = 0 no info in saved
+function schedule_backup_log($starttime,$courseid,$message) {
+
+    if ($starttime) {
+        $log->courseid = $courseid;
+        $log->time = time();
+        $log->laststarttime = $starttime;
+        $log->info = $message;
+    
+        insert_record ("backup_log",$log);
+    }
+
+}
+
+//This function returns the next future GMT time to execute the course based in the
+//configuration of the scheduled backups
+function schedule_backup_next_execution ($backup_course,$backup_config,$now,$timezone) {
+
+    $result = -1;
+
+    //Get today's midnight GMT
+    $midnight = usergetmidnight($now,$timezone);
+
+    //Get today's day of week (0=Sunday...6=Saturday)
+    $date = usergetdate($now,$timezone);
+    $dayofweek = $date['wday'];
+
+    //Get number of days (from today) to execute backups
+    $scheduled_days = substr($backup_config->backup_sche_weekdays,$dayofweek).
+                      $backup_config->backup_sche_weekdays;
+    $daysfromtoday = strpos($scheduled_days, "1");
+
+    //If some day has been found
+    if ($daysfromtoday !== false) {
+        //Calculate distance
+        $dist = ($daysfromtoday * 86400) +                     //Days distance
+                ($backup_config->backup_sche_hour*3600) +      //Hours distance
+                ($backup_config->backup_sche_minute*60);       //Minutes distance
+        $result = $midnight + $dist;
+    } 
+
+    //If that time is past, call the function recursively to obtain the next valid day
+    if ($result > 0 && $result < time()) {
+        $result = schedule_backup_next_execution ($backup_course,$backup_config,$now + 86400,$timezone);
+    }
+
+    return $result;
+}
+
+
+
+//This function implements all the needed code to prepare a course
+//to be in backup (insert temp info into backup temp tables).
+function schedule_backup_course_configure($course,$starttime = 0) {  
+
+    global $CFG;
+    
+    $status = true;
+
+    schedule_backup_log($starttime,$course->id,"    checking parameters");
+
+    //Check the required variable
+    if (empty($course->id)) {
+        $status = false;
+    }
+    //Get scheduled backup preferences
+    $backup_config =  backup_get_config();
+
+    //Checks backup_config pairs exist
+    if ($status) {
+        if (!isset($backup_config->backup_sche_modules)) {
+            $backup_config->backup_sche_modules = 1;
+        }
+        if (!isset($backup_config->backup_sche_withuserdata)) {
+            $backup_config->backup_sche_withuserdata = 1;
+        }
+        if (!isset($backup_config->backup_sche_users)) {
+            $backup_config->backup_sche_users = 1;
+        }
+        if (!isset($backup_config->backup_sche_logs)) {
+            $backup_config->backup_sche_logs = 0;
+        }
+        if (!isset($backup_config->backup_sche_userfiles)) {
+            $backup_config->backup_sche_userfiles = 1;
+        }
+        if (!isset($backup_config->backup_sche_coursefiles)) {
+            $backup_config->backup_sche_coursefiles = 1;
+        }
+        if (!isset($backup_config->backup_sche_active)) {
+            $backup_config->backup_sche_active = 0;
+        }
+        if (!isset($backup_config->backup_sche_weekdays)) {
+            $backup_config->backup_sche_weekdays = "0000000";
+        }
+        if (!isset($backup_config->backup_sche_hour)) {
+            $backup_config->backup_sche_hour = 00;
+        }
+        if (!isset($backup_config->backup_sche_minute)) {
+            $backup_config->backup_sche_minute = 00;
+        }
+        if (!isset($backup_config->backup_sche_destination)) {
+            $backup_config->backup_sche_destination = "";
+        }
+        if (!isset($backup_config->backup_sche_keep)) {
+            $backup_config->backup_sche_keep = 1;
+        }
+    }
+
+    if ($status) {
+       //Checks for the required files/functions to backup every mod
+        //And check if there is data about it
+        $count = 0;
+        if ($allmods = get_records("modules") ) {
+            foreach ($allmods as $mod) {
+                $modname = $mod->name;
+                $modfile = "$CFG->dirroot/mod/$modname/backuplib.php";
+                $modbackup = $modname."_backup_mods";
+                $modcheckbackup = $modname."_check_backup_mods";
+                if (file_exists($modfile)) {
+                   include_once($modfile);
+                   if (function_exists($modbackup) and function_exists($modcheckbackup)) {
+                       $var = "exists_".$modname;
+                       $$var = true;
+                       $count++;
+                   }
+                }
+                //Check data
+                //Check module info
+                $var = "backup_".$modname;
+                if (!isset($$var)) {
+                    $$var = $backup_config->backup_sche_modules;
+                }
+                //Now stores all the mods preferences into an array into preferences
+                $preferences->mods[$modname]->backup = $$var;
+
+                //Check include user info
+                $var = "backup_user_info_".$modname;
+                if (!isset($$var)) {
+                    $$var = $backup_config->backup_sche_withuserdata;
+                }
+                //Now stores all the mods preferences into an array into preferences
+                $preferences->mods[$modname]->userinfo = $$var;
+                //And the name of the mod
+                $preferences->mods[$modname]->name = $modname;
+            }
+        }
+    }
+    
+    //Convert other parameters
+    if ($status) {
+        $preferences->backup_users = $backup_config->backup_sche_users;
+        $preferences->backup_logs = $backup_config->backup_sche_logs;
+        $preferences->backup_user_files = $backup_config->backup_sche_userfiles;
+        $preferences->backup_course_files = $backup_config->backup_sche_coursefiles;
+        $preferences->backup_course = $course->id;
+        $preferences->backup_destination = $backup_config->backup_sche_destination;
+        $preferences->backup_keep = $backup_config->backup_sche_keep;
+    }
+    
+    //Calculate the backup string
+    if ($status) {
+        schedule_backup_log($starttime,$course->id,"    calculating backup name");
+
+        //Calculate the backup word
+        //Take off some characters in the filename !!
+        $takeoff = array(" ", ":", "/", "\\", "|");
+        $backup_word = str_replace($takeoff,"_",strtolower(get_string("backupfilename")));
+        //If non-translated, use "backup"
+        if (substr($backup_word,0,1) == "[") {
+            $backup_word= "backup";
+        }
+
+        //Calculate the date format string
+        $backup_date_format = str_replace(" ","_",get_string("backupnameformat"));
+        //If non-translated, use "%Y%m%d-%H%M"
+        if (substr($backup_date_format,0,1) == "[") {
+            $backup_date_format = "%%Y%%m%%d-%%H%%M";
+        }
+
+        //Calculate the shortname
+        $backup_shortname = clean_filename($course->shortname);
+        if (empty($backup_shortname) or $backup_shortname == '_' ) {
+            $backup_shortname = $course->id;
+        }
+
+        //Calculate the final backup filename
+        //The backup word
+        $backup_name = $backup_word."-";
+        //The shortname
+        $backup_name .= strtolower($backup_shortname)."-";
+        //The date format
+        $backup_name .= userdate(time(),$backup_date_format,99,false);
+        //The extension
+        $backup_name .= ".zip";
+
+        //Calculate the string to match the keep preference
+        $keep_name = $backup_word."-";
+        //The shortname
+        $keep_name .= strtolower($backup_shortname)."-";
+ 
+        $preferences->backup_name = $backup_name;
+        $preferences->keep_name = $keep_name;
+    }
+
+    //Calculate the backup unique code to allow simultaneus backups (to define
+    //the temp-directory name and records in backup temp tables
+    if ($status) {
+        $backup_unique_code = time();
+        $preferences->backup_unique_code = $backup_unique_code;
+    }
+
+    //Calculate necesary info to backup modules
+    if ($status) {
+        schedule_backup_log($starttime,$course->id,"    calculating modules data");
+        if ($allmods = get_records("modules") ) {
+            foreach ($allmods as $mod) {
+                $modname = $mod->name;
+                $modbackup = $modname."_backup_mods";
+                //If exists the lib & function
+                $var = "exists_".$modname;
+                if (isset($$var) && $$var) {
+                    //Add hidden fields
+                    $var = "backup_".$modname;
+                    //Only if selected
+                    if ($$var == 1) {
+                        $var = "backup_user_info_".$modname;
+                        //Call the check function to show more info
+                        $modcheckbackup = $modname."_check_backup_mods";
+                        schedule_backup_log($starttime,$course->id,"      $modname");
+                        $modcheckbackup($course->id,$$var,$backup_unique_code);
+                    }
+                }
+            }
+        }
+    }
+
+    //Now calculate the users
+    if ($status) {
+        schedule_backup_log($starttime,$course->id,"    calculating users");
+        user_check_backup($course->id,$backup_unique_code,$preferences->backup_users);  
+    }
+
+    //Now calculate the logs
+    if ($status) {
+        if ($preferences->backup_logs) {
+            schedule_backup_log($starttime,$course->id,"    calculating logs");
+            log_check_backup($course->id);
+        }
+    }
+
+    //Now calculate the userfiles
+    if ($status) {
+        if ($preferences->backup_user_files) {
+            schedule_backup_log($starttime,$course->id,"    calculating user files");
+            user_files_check_backup($course->id,$preferences->backup_unique_code);
+        }
+    }
+ 
+    //Now calculate the coursefiles
+    if ($status) {
+       if ($preferences->backup_course_files) {
+            schedule_backup_log($starttime,$course->id,"    calculating course files");
+            course_files_check_backup($course->id,$preferences->backup_unique_code);
+        }
+    }
+
+    //If everything is ok, return calculated preferences
+    if ($status) {
+        $status = $preferences;
+    }
+
+    return $status;
+}
+
+//This function implements all the needed code to backup a course
+//copying it to the desired destination (default if not specified)
+function schedule_backup_course_execute($preferences,$starttime = 0) {
+
+    global $CFG;
+
+    $status = true;
+
+    //Another Info to add
+    $preferences->moodle_version = $CFG->version;
+    $preferences->moodle_release = $CFG->release;
+    $preferences->backup_version = $CFG->backup_version;
+    $preferences->backup_release = $CFG->backup_release;
+
+    //Some parts of the backup doesn't know about $preferences, so we
+    //put a copy of it inside that CFG (always global) to be able to
+    //use it. Then, when needed I search for preferences inside CFG
+    //Used to avoid some problems in full_tag() when preferences isn't
+    //set globally (i.e. in scheduled backups)
+    $CFG->backup_preferences = $preferences;
+
+    //Check for temp and backup and backup_unique_code directory
+    //Create them as needed
+    schedule_backup_log($starttime,$preferences->backup_course,"    checking temp structures");
+    $status = check_and_create_backup_dir($preferences->backup_unique_code);
+    //Empty dir
+    if ($status) {
+        schedule_backup_log($starttime,$preferences->backup_course,"    cleaning old data");
+        $status = clear_backup_dir($preferences->backup_unique_code);
+    }
+
+    //Delete old_entries from backup tables
+    if ($status) {
+        $status = backup_delete_old_data();
+    }
+
+    //Create the moodle.xml file
+    if ($status) {
+        schedule_backup_log($starttime,$preferences->backup_course,"    creating backup file");
+        //Obtain the xml file (create and open) and print prolog information
+        $backup_file = backup_open_xml($preferences->backup_unique_code);
+        //Prints general info about backup to file
+        if ($backup_file) {
+            schedule_backup_log($starttime,$preferences->backup_course,"      general info");
+            $status = backup_general_info($backup_file,$preferences);
+        } else {
+            $status = false;
+        }
+
+        //Prints course start (tag and general info)
+        if ($status) {
+            $status = backup_course_start($backup_file,$preferences);
+        }
+
+        //Section info
+        if ($status) {
+            schedule_backup_log($starttime,$preferences->backup_course,"      sections info");
+            $status = backup_course_sections($backup_file,$preferences);
+        }
+
+        //User info
+        if ($status) {
+            schedule_backup_log($starttime,$preferences->backup_course,"      user info");
+            $status = backup_user_info($backup_file,$preferences);
+        }
+
+        //If we have selected to backup quizzes, backup categories and
+        //questions structure (step 1). See notes on mod/quiz/backuplib.php
+        if ($status and $preferences->mods['quiz']->backup) {
+            schedule_backup_log($starttime,$preferences->backup_course,"      categories & questions");
+            $status = quiz_backup_question_categories($backup_file,$preferences);
+        }
+        
+        //Print logs if selected
+        if ($status) {
+            if ($preferences->backup_logs) {  
+                schedule_backup_log($starttime,$preferences->backup_course,"      logs");
+                $status = backup_log_info($backup_file,$preferences);
+            }
+        }
+
+        //Print scales info
+        if ($status) {
+            schedule_backup_log($starttime,$preferences->backup_course,"      scales");
+            $status = backup_scales_info($backup_file,$preferences);
+        }
+ 
+        //Print groups info
+        if ($status) {
+            schedule_backup_log($starttime,$preferences->backup_course,"      groups");
+            $status = backup_groups_info($backup_file,$preferences);
+        }
+
+        //Print events info
+        if ($status) {
+            schedule_backup_log($starttime,$preferences->backup_course,"      events");
+            $status = backup_events_info($backup_file,$preferences);
+        }
+
+        //Module info, this unique function makes all the work!!
+        //db export and module fileis copy
+        if ($status) {
+            $mods_to_backup = false;
+            //Check if we have any mod to backup
+            foreach ($preferences->mods as $module) {
+                if ($module->backup) { 
+                    $mods_to_backup = true;
+                }    
+            }
+            //If we have to backup some module
+            if ($mods_to_backup) {
+                schedule_backup_log($starttime,$preferences->backup_course,"      modules");
+                //Start modules tag
+                $status = backup_modules_start ($backup_file,$preferences);
+                //Iterate over modules and call backup
+                foreach ($preferences->mods as $module) {
+                    if ($module->backup and $status) {
+                        schedule_backup_log($starttime,$preferences->backup_course,"        $module->name");
+                        $status = backup_module($backup_file,$preferences,$module->name);
+                    }
+                }
+                //Close modules tag
+                $status = backup_modules_end ($backup_file,$preferences);
+            }
+        }
+
+        //Prints course end 
+        if ($status) {
+            $status = backup_course_end($backup_file,$preferences);
+        }
+
+        //Close the xml file and xml data
+        if ($backup_file) {
+            backup_close_xml($backup_file);
+        }
+    }
+    
+    //Now, if selected, copy user files
+    if ($status) {
+        if ($preferences->backup_user_files) {
+            schedule_backup_log($starttime,$preferences->backup_course,"    copying user files");
+            $status = backup_copy_user_files ($preferences);
+        }
+    }
+
+    //Now, if selected, copy course files
+    if ($status) {
+        if ($preferences->backup_course_files) {
+            schedule_backup_log($starttime,$preferences->backup_course,"    copying course files");
+            $status = backup_copy_course_files ($preferences);
+        }
+    }
+
+    //Now, zip all the backup directory contents
+    if ($status) {
+        schedule_backup_log($starttime,$preferences->backup_course,"    zipping files");
+        $status = backup_zip ($preferences);
+    }
+
+    //Now, copy the zip file to course directory
+    if ($status) {
+        schedule_backup_log($starttime,$preferences->backup_course,"    copying backup");
+        $status = copy_zip_to_course_dir ($preferences);
+    }
+
+    //Now, clean temporary data (db and filesystem)
+    if ($status) {
+        schedule_backup_log($starttime,$preferences->backup_course,"    cleaning temp data");
+        $status = clean_temp_data ($preferences);
+    }
+
+    //Unset CFG->backup_preferences only needed in scheduled backups
+    unset ($CFG->backup_preferences);
+
+    return $status;
+}
+
+//This function deletes old backup files when the "keep" limit has been reached
+//in the destination directory.
+function schedule_backup_course_delete_old_files($preferences,$starttime=0) {
+
+    global $CFG;
+
+    $status = true;
+
+    //Calculate the directory to check
+    $dirtocheck = "";
+    //if $preferences->backup_destination isn't empty, then check that directory
+    if (!empty($preferences->backup_destination)) {
+        $dirtocheck = $preferences->backup_destination;
+    //else calculate standard backup directory location
+    } else {
+        $dirtocheck = $CFG->dataroot."/".$preferences->backup_course."/backupdata";
+    }
+    schedule_backup_log($starttime,$preferences->backup_course,"    checking $dirtocheck");
+    echo "            Keeping backup files in $dirtocheck\n";
+
+    //Get all the files in $dirtocheck
+    $files = get_directory_list($dirtocheck,"",false);
+    //Get all matching files ($preferences->keep_name) from $files
+    $matchingfiles = array();
+    foreach ($files as $file) {
+        if (substr($file, 0, strlen($preferences->keep_name)) == $preferences->keep_name) {
+            $modifieddate = filemtime($dirtocheck."/".$file);
+            $matchingfiles[$modifieddate] = $file;
+        }
+    }
+    //Sort by key (modified date) to get the oldest first (instead of doing that by name
+    //because it could give us problems in some languages with different format names).
+    ksort($matchingfiles);
+
+    //Count matching files
+    $countmatching = count($matchingfiles);
+    schedule_backup_log($starttime,$preferences->backup_course,"        found $countmatching backup files");
+    echo "                found $countmatching backup files\n";
+    if ($preferences->backup_keep < $countmatching) {
+        schedule_backup_log($starttime,$preferences->backup_course,"        keep limit ($preferences->backup_keep) reached. Deleting old files");
+        echo "                keep limit ($preferences->backup_keep) reached. Deleting old files\n";
+        $filestodelete = $countmatching - $preferences->backup_keep;
+        $filesdeleted = 0;
+        foreach ($matchingfiles as $matchfile) {
+            if ($filesdeleted < $filestodelete) {
+                schedule_backup_log($starttime,$preferences->backup_course,"        $matchfile deleted");
+                echo "                $matchfile deleted\n";
+                $filetodelete = $dirtocheck."/".$matchfile;
+                unlink($filetodelete);
+                $filesdeleted++;
+            }
+        }
+    }
+    return $status;
+}
+
+?>

backup/backuplib.php

@@ -32,66 +32,85 @@
     //Return an array of info (name,value)
     function user_check_backup($course,$backup_unique_code,$backup_users) {
         //$backup_users=0-->all
-        //              1-->course
-        //              2-->needed-->NOT IMPLEMEMTED
+        //              1-->course (needed + enrolled)
+        //              2-->none
 
         global $CFG;
         global $db;
 
         $count_users = 0;
+
+        //If we've selected none, simply return 0
+        if ($backup_users == 0 or $backup_users == 1) {
         
-        //Select all users from user (only id)
-        //If there are a lot of users and we retrieve all the info->memory shortage !!
-        $users = get_records ("user","","","","id,id");
-        //If we have users
-        if ($users) {
-            //Iterate over users putting their roles
-            foreach ($users as $user) {
-                $user->info = "";
-                //Is Admin in tables (not is_admin()) !!
-                if (record_exists("user_admins","userid",$user->id)) {
-                    $user->info .= "admin";
-                    $user->role_admin = true;
-                }
-                //Is Course Creator in tables (not is_coursecreator()) !!
-                if (record_exists("user_coursecreators","userid",$user->id)) {
-                    $user->info .= "coursecreator";
-                    $user->role_coursecreator = true;
-                }
-                //Is Teacher in tables (not is_teacher()) !!
-                if (record_exists("user_teachers","course",$course,"userid",$user->id)) {
-                    $user->info .= "teacher";
-                    $user->role_teacher = true;
-                }
-                //Is Student in tables (not is_student()) !!
-                if (record_exists("user_students","course",$course,"userid",$user->id)) {
-                    $user->info .= "student";
-                    $user->role_student = true;
-                }
-                //Now create the backup_id record
-                $backupids_rec->backup_code = $backup_unique_code;
-                $backupids_rec->table_name = "user";
-                $backupids_rec->old_id = $user->id;
-                $backupids_rec->info = $user->info;
-    
-                //Insert the record id. backup_users decide it.
-                //When all users
-                if ($backup_users == 0) { 
-                    $status = insert_record("backup_ids",$backupids_rec,false);
-                    $count_users++;
-                //When course users
-                } else if ($backup_users == 1) {
-                     //Only if user has any role
-                    if ($backupids_rec->info) {
-                        $status = insert_record("backup_ids",$backupids_rec,false);
-                        $count_users++;
-                    }
+            //Calculate needed users (calling every xxxx_get_participants function + scales users)
+            $needed_users = backup_get_needed_users($course);
+
+            //Calculate enrolled users (students + teachers)
+            $enrolled_users = backup_get_enrolled_users($course);
+
+            //Calculate all users (every record in users table)
+            $all_users = backup_get_all_users();
+
+            //Calculate course users (needed + enrolled)
+            //First, needed
+            $course_users = $needed_users;
+        
+            //Now, enrolled
+            if ($enrolled_users) {
+                foreach ($enrolled_users as $enrolled_user) {
+                    $course_users[$enrolled_user->id]->id = $enrolled_user->id; 
                 }
             }
-            //Do some output     
-            backup_flush(30);
+       
+            //Now, depending of parameters, create $backupable_users
+            if ($backup_users == 0) {
+                $backupable_users = $all_users;
+            } else {
+                $backupable_users = $course_users;
+            }
+
+            //If we have backupable users
+            if ($backupable_users) {
+                //Iterate over users putting their roles
+                foreach ($backupable_users as $backupable_user) {
+                    $backupable_user->info = "";
+                    //Is Admin in tables (not is_admin()) !!
+                    if (record_exists("user_admins","userid",$backupable_user->id)) {
+                        $backupable_user->info .= "admin";
+                    }
+                    //Is Course Creator in tables (not is_coursecreator()) !!
+                    if (record_exists("user_coursecreators","userid",$backupable_user->id)) {
+                        $backupable_user->info .= "coursecreator";
+                    }
+                    //Is Teacher in tables (not is_teacher()) !!
+                    if (record_exists("user_teachers","course",$course,"userid",$backupable_user->id)) {
+                        $backupable_user->info .= "teacher";
+                    }
+                    //Is Student in tables (not is_student()) !!
+                    if (record_exists("user_students","course",$course,"userid",$backupable_user->id)) {
+                        $backupable_user->info .= "student";
+                    }
+                    //Is needed user (exists in needed_users) 
+                    if (isset($needed_users[$backupable_user->id])) {
+                        $backupable_user->info .= "needed";
+                    }
+                    //Now create the backup_id record
+                    $backupids_rec->backup_code = $backup_unique_code;
+                    $backupids_rec->table_name = "user";
+                    $backupids_rec->old_id = $backupable_user->id;
+                    $backupids_rec->info = $backupable_user->info;
+        
+                    //Insert the record id. backup_users decide it.
+                    //When all users
+                    $status = insert_record("backup_ids",$backupids_rec,false,"backup_code");
+                    $count_users++;
+                }
+                //Do some output     
+                backup_flush(30);
+            }
         }
-            
+
         //Prepare Info
         //Gets the user data
         $info[0][0] = get_string("users");
@@ -100,6 +119,117 @@
         return $info;
     }
 
+    //Returns every needed user (participant) in a course
+    //It uses the xxxx_get_participants() function
+    //plus users needed to backup scales.
+    //WARNING: It returns only NEEDED users, not every 
+    //   every student and teacher in the course, so it
+    //must be merged with backup_get_enrrolled_users !!
+
+    function backup_get_needed_users ($courseid) {
+        
+        global $CFG, $THEME;
+
+        $result = false;
+
+        $course_modules = get_records_sql ("SELECT cm.id, m.name, cm.instance
+                                            FROM {$CFG->prefix}modules m,
+                                                 {$CFG->prefix}course_modules cm
+                                            WHERE m.id = cm.module and
+                                                  cm.course = '$courseid'");
+
+        if ($course_modules) {
+            //Iterate over each module
+            foreach ($course_modules as $course_module) {
+                $modlib = "$CFG->dirroot/mod/$course_module->name/lib.php";
+                $modgetparticipants = $course_module->name."_get_participants";
+                if (file_exists($modlib)) {
+                    include_once($modlib);
+                    if (function_exists($modgetparticipants)) {
+                        $module_participants = $modgetparticipants($course_module->instance);
+                        //Add them to result
+                        if ($module_participants) {
+                            foreach ($module_participants as $module_participant) {
+                                $result[$module_participant->id]->id = $module_participant->id; 
+                            }
+                        }
+                    }
+                 }            
+            }
+        }
+
+        //Now, add scales users (from site and course scales)
+        //Get users
+        $scaleusers = get_records_sql("SELECT DISTINCT userid,userid
+                                       FROM {$CFG->prefix}scale
+                                       WHERE courseid = '0' or courseid = '$courseid'");
+        //Add scale users to results
+        if ($scaleusers) {
+            foreach ($scaleusers as $scaleuser) {
+                //If userid != 0
+                if ($scaleuser->userid != 0) {
+                    $result[$scaleuser->userid]->id = $scaleuser->userid;
+                }
+            }
+        }
+    
+        return $result;
+
+    }
+
+    //Returns every enrolled user (student and teacher) in a course
+
+    function backup_get_enrolled_users ($courseid) {
+
+        global $CFG;
+
+        $result = false;
+        
+        //Get teachers
+        $teachers = get_records_sql("SELECT DISTINCT userid,userid
+                     FROM {$CFG->prefix}user_teachers
+                     WHERE course = '$courseid'");
+        //Get students
+        $students = get_records_sql("SELECT DISTINCT userid,userid
+                     FROM {$CFG->prefix}user_students
+                     WHERE course = '$courseid'");
+        //Add teachers
+        if ($teachers) {
+            foreach ($teachers as $teacher) {
+                $result[$teacher->userid]->id = $teacher->userid;
+            }
+        }
+        //Add students
+        if ($students) {
+            foreach ($students as $student) {
+                $result[$student->userid]->id = $student->userid;
+            }
+        }
+
+        return $result;
+    }
+
+    //Returns all users (every record in users table)
+
+    function backup_get_all_users() {
+
+        global $CFG;
+
+        $result = false;
+
+        //Get users
+        $users = get_records_sql("SELECT DISTINCT id,id
+                                  FROM {$CFG->prefix}user");
+        //Add users
+        if ($users) {
+            foreach ($users as $user) {
+                $result[$user->id]->id = $user->id;
+            }
+        }
+
+        return $result;
+    }
+
     //Calculate the number of log entries to backup
     //Return an array of info (name,value)
     function log_check_backup($course) {
@@ -301,6 +431,8 @@
     
     //Return the start tag, the contents and the end tag
     function full_tag($tag,$level=0,$endline=true,$content,$to_utf=true) {
+        //Here we encode absolute links
+        $content = backup_encode_absolute_links($content);
         $st = start_tag($tag,$level,$endline);
         $co="";
         if ($to_utf) {
@@ -330,6 +462,8 @@
         fwrite ($bf,full_tag("BACKUP_RELEASE",2,false,$preferences->backup_release));
         //The date
         fwrite ($bf,full_tag("DATE",2,false,$preferences->backup_unique_code));
+        //The original site wwwroot
+        fwrite ($bf,full_tag("ORIGINAL_WWWROOT",2,false,$CFG->wwwroot));
         //Te includes tag
         fwrite ($bf,start_tag("DETAILS",2,true));
         //Now, go to mod element of preferences to print its status
@@ -355,8 +489,10 @@
         //The user in backup
         if ($preferences->backup_users == 1) {
             fwrite ($bf,full_tag("USERS",3,false,"course"));
-        } else {
+        } else if ($preferences->backup_users == 0) {
             fwrite ($bf,full_tag("USERS",3,false,"all"));
+        } else {
+            fwrite ($bf,full_tag("USERS",3,false,"none"));
         }
         //The logs in backup
         if ($preferences->backup_logs == 1) {
@@ -424,6 +560,7 @@
             fwrite ($bf,full_tag("SUMMARY",3,false,$course->summary));
             fwrite ($bf,full_tag("FORMAT",3,false,$course->format));
             fwrite ($bf,full_tag("SHOWGRADES",3,false,$course->showgrades));
+            fwrite ($bf,full_tag("BLOCKINFO",3,false,blocks_get_block_names($course->blockinfo)));
             fwrite ($bf,full_tag("NEWSITEMS",3,false,$course->newsitems));
             fwrite ($bf,full_tag("TEACHER",3,false,$course->teacher));
             fwrite ($bf,full_tag("TEACHERS",3,false,$course->teachers));
@@ -432,9 +569,15 @@
             fwrite ($bf,full_tag("GUEST",3,false,$course->guest));
             fwrite ($bf,full_tag("STARTDATE",3,false,$course->startdate));
             fwrite ($bf,full_tag("NUMSECTIONS",3,false,$course->numsections));
-            fwrite ($bf,full_tag("SHOWRECENT",3,false,$course->showrecent));
+            //fwrite ($bf,full_tag("SHOWRECENT",3,false,$course->showrecent));    INFO: This is out in 1.3
+            fwrite ($bf,full_tag("MAXBYTES",3,false,$course->maxbytes));
+            fwrite ($bf,full_tag("SHOWREPORTS",3,false,$course->showreports));
+            fwrite ($bf,full_tag("GROUPMODE",3,false,$course->groupmode));
+            fwrite ($bf,full_tag("GROUPMODEFORCE",3,false,$course->groupmodeforce));
+            fwrite ($bf,full_tag("LANG",3,false,$course->lang));
             fwrite ($bf,full_tag("MARKER",3,false,$course->marker));
             fwrite ($bf,full_tag("VISIBLE",3,false,$course->visible));
+            fwrite ($bf,full_tag("HIDDENSECTIONS",3,false,$course->hiddensections));
             fwrite ($bf,full_tag("TIMECREATED",3,false,$course->timecreated));
             $status = fwrite ($bf,full_tag("TIMEMODIFIED",3,false,$course->timemodified));
             //Print header end
@@ -530,7 +673,9 @@
                fwrite ($bf,full_tag("ADDED",6,false,$course_module[$tok]->added));
                fwrite ($bf,full_tag("DELETED",6,false,$course_module[$tok]->deleted));
                fwrite ($bf,full_tag("SCORE",6,false,$course_module[$tok]->score));
+               fwrite ($bf,full_tag("INDENT",6,false,$course_module[$tok]->indent));
                fwrite ($bf,full_tag("VISIBLE",6,false,$course_module[$tok]->visible));
+               fwrite ($bf,full_tag("GROUPMODE",6,false,$course_module[$tok]->groupmode));
                fwrite ($bf,end_tag("MOD",5,true));
             }
            //check for next
@@ -580,6 +725,7 @@
                 fwrite ($bf,full_tag("FIRSTNAME",4,false,$user_data->firstname));
                 fwrite ($bf,full_tag("LASTNAME",4,false,$user_data->lastname));
                 fwrite ($bf,full_tag("EMAIL",4,false,$user_data->email));
+                fwrite ($bf,full_tag("EMAILSTOP",4,false,$user_data->emailstop));
                 fwrite ($bf,full_tag("ICQ",4,false,$user_data->icq));
                 fwrite ($bf,full_tag("PHONE1",4,false,$user_data->phone1));
                 fwrite ($bf,full_tag("PHONE2",4,false,$user_data->phone2));
@@ -610,10 +756,12 @@
                 $user->iscoursecreator = strpos($user->info,"coursecreator");
                 $user->isteacher = strpos($user->info,"teacher");
                 $user->isstudent = strpos($user->info,"student");
+                $user->isneeded = strpos($user->info,"needed");
                 if ($user->isadmin!==false or 
                     $user->iscoursecreator!==false or 
                     $user->isteacher!==false or 
-                    $user->isstudent!==false) {
+                    $user->isstudent!==false or
+                    $user->isneeded!==false) {
                     //Begin ROLES tag
                     fwrite ($bf,start_tag("ROLES",4,true));
                     //PRINT ROLE INFO
@@ -647,6 +795,7 @@
                         fwrite ($bf,full_tag("TEA_ROLE",6,false,$tea->role));
                         fwrite ($bf,full_tag("EDITALL",6,false,$tea->editall));
                         fwrite ($bf,full_tag("TIMEMODIFIED",6,false,$tea->timemodified));
+                        fwrite ($bf,full_tag("TIMEACCESS",6,false,$tea->timeaccess));
                         //Print ROLE end
                         fwrite ($bf,end_tag("ROLE",5,true));   
                     }
@@ -661,13 +810,38 @@
                         fwrite ($bf,full_tag("TIMESTART",6,false,$stu->timestart));
                         fwrite ($bf,full_tag("TIMEEND",6,false,$stu->timeend));
                         fwrite ($bf,full_tag("TIME",6,false,$stu->time));
+                        fwrite ($bf,full_tag("TIMEACCESS",6,false,$stu->timeaccess));
                         //Print ROLE end
                         fwrite ($bf,end_tag("ROLE",5,true));   
                     }
-
+                    //Needed
+                    if ($user->isneeded!==false) {
+                        //Print ROLE start
+                        fwrite ($bf,start_tag("ROLE",5,true));
+                        //Print Role info
+                        fwrite ($bf,full_tag("TYPE",6,false,"needed"));
+                        //Print ROLE end
+                        fwrite ($bf,end_tag("ROLE",5,true));
+                    }
 
                     //End ROLES tag
                     fwrite ($bf,end_tag("ROLES",4,true));
+ 
+                    //Check if we have user_preferences to backup
+                    if ($preferences_data = get_records("user_preferences","userid",$user->old_id)) {
+                        //Start USER_PREFERENCES tag
+                        fwrite ($bf,start_tag("USER_PREFERENCES",4,true));
+                        //Write each user_preference
+                        foreach ($preferences_data as $user_preference) {
+                            fwrite ($bf,start_tag("USER_PREFERENCE",5,true));
+                            fwrite ($bf,full_tag("NAME",6,false,$user_preference->name));
+                            fwrite ($bf,full_tag("VALUE",6,false,$user_preference->value));
+                            fwrite ($bf,end_tag("USER_PREFERENCE",5,true));
+                        }
+                        //End USER_PREFERENCES tag
+                        fwrite ($bf,end_tag("USER_PREFERENCES",4,true));
+                    }
+                    
                 }
                 //End User tag
                 fwrite ($bf,end_tag("USER",3,true));
@@ -684,8 +858,8 @@
             //End Users tag
             fwrite ($bf,end_tag("USERS",2,true));
         } else {
-            //There isn't users. Impossible !!
-            $status = false;
+            // There aren't any users.
+            $status = true;
         }
 
         return $status;
@@ -732,6 +906,7 @@
                         fwrite ($bf,full_tag("USERID",4,false,$log->userid));
                         fwrite ($bf,full_tag("IP",4,false,$log->ip));
                         fwrite ($bf,full_tag("MODULE",4,false,$log->module));
+                        fwrite ($bf,full_tag("CMID",4,false,$log->cmid));
                         fwrite ($bf,full_tag("ACTION",4,false,$log->action));
                         fwrite ($bf,full_tag("URL",4,false,$log->url));
                         fwrite ($bf,full_tag("INFO",4,false,$log->info));
@@ -773,13 +948,23 @@
         $scales = get_records_sql("SELECT id, courseid, userid, name, scale, description, timemodified
                                    FROM {$CFG->prefix}scale
                                    WHERE courseid = '0' or courseid = $preferences->backup_course");
-      
-        //Pring scales header
+
+        //Copy only used scales to $backupscales. They will be in backup (unused no). See Bug 1223.
+        $backupscales = array();
         if ($scales) {
+            foreach ($scales as $scale) {
+                if (course_scale_used($preferences->backup_course, $scale->id)) {
+                    $backupscales[] = $scale;
+                }
+            }
+        }
+
+        //Pring scales header
+        if ($backupscales) {
             //Pring scales header
             fwrite ($bf,start_tag("SCALES",2,true));
             //Iterate
-            foreach ($scales as $scale) {
+            foreach ($backupscales as $scale) {
                 //Begin scale tag
                 fwrite ($bf,start_tag("SCALE",3,true));
                 //Output scale tag
@@ -799,6 +984,119 @@
         return $status;
     }
 
+    //Backup events info (course events)
+    function backup_events_info($bf,$preferences) {
+
+        global $CFG;
+
+        $status = true;
+
+        //Counter, points to current record
+        $counter = 0;
+
+        //Get events (course events)
+        $events = get_records_select("event","courseid='$preferences->backup_course' AND instance='0'","id");
+
+        //Pring events header
+        if ($events) {
+            //Pring events header
+            fwrite ($bf,start_tag("EVENTS",2,true));
+            //Iterate
+            foreach ($events as $event) {
+                //Begin event tag
+                fwrite ($bf,start_tag("EVENT",3,true));
+                //Output event tag
+                fwrite ($bf,full_tag("ID",4,false,$event->id));
+                fwrite ($bf,full_tag("NAME",4,false,$event->name));
+                fwrite ($bf,full_tag("DESCRIPTION",4,false,$event->description));
+                fwrite ($bf,full_tag("FORMAT",4,false,$event->format));
+                fwrite ($bf,full_tag("GROUPID",4,false,$event->groupid));
+                fwrite ($bf,full_tag("USERID",4,false,$event->userid));
+                fwrite ($bf,full_tag("EVENTTYPE",4,false,$event->eventtype));
+                fwrite ($bf,full_tag("TIMESTART",4,false,$event->timestart));
+                fwrite ($bf,full_tag("TIMEDURATION",4,false,$event->timeduration));
+                fwrite ($bf,full_tag("VISIBLE",4,false,$event->visible));
+                fwrite ($bf,full_tag("TIMEMODIFIED",4,false,$event->timemodified));
+                //End event tag
+                fwrite ($bf,end_tag("EVENT",3,true));
+            }
+            //End events tag
+            $status = fwrite ($bf,end_tag("EVENTS",2,true));
+        }
+        return $status;
+    }
+
+    //Backup groups info
+    function backup_groups_info($bf,$preferences) {
+    
+        global $CFG;
+
+        $status = true;
+        $status2 = true;
+
+        //Get groups 
+        $groups = get_records("groups","courseid",$preferences->backup_course);
+
+        //Pring groups header
+        if ($groups) {
+            //Pring groups header
+            fwrite ($bf,start_tag("GROUPS",2,true));
+            //Iterate
+            foreach ($groups as $group) {
+                //Begin group tag
+                fwrite ($bf,start_tag("GROUP",3,true));
+                //Output group contents
+                fwrite ($bf,full_tag("ID",4,false,$group->id));
+                fwrite ($bf,full_tag("COURSEID",4,false,$group->courseid));
+                fwrite ($bf,full_tag("NAME",4,false,$group->name));
+                fwrite ($bf,full_tag("DESCRIPTION",4,false,$group->description));
+                fwrite ($bf,full_tag("LANG",4,false,$group->lang));
+                fwrite ($bf,full_tag("PICTURE",4,false,$group->picture));
+                fwrite ($bf,full_tag("HIDEPICTURE",4,false,$group->hidepicture));
+                fwrite ($bf,full_tag("TIMECREATED",4,false,$group->timecreated));
+                fwrite ($bf,full_tag("TIMEMODIFIED",4,false,$group->timemodified));
+                
+                //Now, backup groups_members
+                $status2 = backup_groups_members_info($bf,$preferences,$group->id);
+
+                //End group tag
+                fwrite ($bf,end_tag("GROUP",3,true));
+            }
+            //End groups tag
+            $status = fwrite ($bf,end_tag("GROUPS",2,true));
+        }
+        return ($status && $status2);
+    }
+
+    //Backup groups_members info
+    function backup_groups_members_info($bf,$preferences,$groupid) {
+  
+        global $CFG;
+        
+        $status = true;
+
+        //Get groups_members
+        $groups_members = get_records("groups_members","groupid",$groupid);
+        
+        //Pring groups_members header
+        if ($groups_members) {
+            //Pring groups_members header
+            fwrite ($bf,start_tag("MEMBERS",4,true));
+            //Iterate
+            foreach ($groups_members as $group_member) {
+                //Begin group_member tag
+                fwrite ($bf,start_tag("MEMBER",5,true));
+                //Output group_member contents
+                fwrite ($bf,full_tag("USERID",6,false,$group_member->userid));
+                fwrite ($bf,full_tag("TIMEADDED",6,false,$group_member->timeadded));
+                //End group_member tag
+                fwrite ($bf,end_tag("MEMBER",5,true));
+            }
+            //End groups_members tag
+            $status = fwrite ($bf,end_tag("MEMBERS",4,true));
+        }
+        return $status;
+    }
 
     //Start the modules tag
     function backup_modules_start ($bf,$preferences) {
@@ -834,6 +1132,47 @@
         
     }
 
+    //This function encode things to make backup multi-site fully functional
+    //It does this conversions:
+    //    - $CFG->wwwroot/file.php/courseid ----------------------> $@FILEPHP@$
+    //    - Links to forums everywhere (DB) are encoded.
+    //
+    function backup_encode_absolute_links($content) {
+
+        global $CFG,$preferences;
+
+        //Check if preferences is ok. If it isn't set, we are 
+        //in a scheduled_backup to we are able to get a copy
+        //from CFG->backup_preferences
+        if (!isset($preferences)) {
+            $mypreferences = $CFG->backup_preferences;
+        } else {
+            //We are in manual backups so global preferences must exist!!
+            $mypreferences = $preferences;
+        }
+
+        //First, we check for every call to file.php inside the course
+        $search = array($CFG->wwwroot."/file.php/".$mypreferences->backup_course);
+
+        $replace = array("$@FILEPHP@$");
+
+        $result = str_replace($search,$replace,$content);
+
+        foreach ($mypreferences->mods as $name => $info) {
+            //Check if the xxxx_encode_content_links exists
+            $function_name = $name."_encode_content_links";
+            if (function_exists($function_name)) {
+                $result = $function_name($result,$mypreferences);
+            }
+        }
+
+        if ($result != $content && $CFG->debug>7) {                                  //Debug
+            echo "<br><hr>".$content."<br>changed to<br>".$result."<hr><br>";        //Debug
+        }                                                                            //Debug
+
+        return $result;
+    }
+
     //This function copies all the needed files under the "users" directory to the "user_files"
     //directory under temp/backup
     function backup_copy_user_files ($preferences) {
@@ -970,30 +1309,40 @@
     
         global $CFG;
 
+        $status = true;
+
         //Define zip location (from)
         $from_zip_file = $CFG->dataroot."/temp/backup/".$preferences->backup_unique_code."/".$preferences->backup_name;
 
-        //Define zip destination (course dir)
-        $to_zip_file = $CFG->dataroot."/".$preferences->backup_course;
+        //Initialise $to_zip_file
+        $to_zip_file="";
 
-        //echo "<p>From: ".$from_zip_file."<br>";                                              //Debug
+        //If $preferences->backup_destination isn't empty, then copy to custom directory
+        if (!empty($preferences->backup_destination)) {
+            $to_zip_file = $preferences->backup_destination."/".$preferences->backup_name;
+        } else {
+            //Define zip destination (course dir)
+            $to_zip_file = $CFG->dataroot."/".$preferences->backup_course;
+    
+            //echo "<p>From: ".$from_zip_file."<br>";                                              //Debug
+    
+            //echo "<p>Checking: ".$to_zip_file."<br>";                                          //Debug
+    
+            //Checks course dir exists
+            $status = check_dir_exists($to_zip_file,true);
+    
+            //Define zip destination (backup dir)
+            $to_zip_file = $to_zip_file."/backupdata";
+    
+            //echo "<p>Checking: ".$to_zip_file."<br>";                                          //Debug
+    
+            //Checks backup dir exists
+            $status = check_dir_exists($to_zip_file,true);
 
-        //echo "<p>Checking: ".$to_zip_file."<br>";                                          //Debug
+            //Define zip destination (zip file)
+            $to_zip_file = $to_zip_file."/".$preferences->backup_name;
+        }
 
-        //Checks course dir exists
-        $status = check_dir_exists($to_zip_file,true);
-
-        //Define zip destination (backup dir)
-        $to_zip_file = $to_zip_file."/backupdata";
-
-        //echo "<p>Checking: ".$to_zip_file."<br>";                                          //Debug
-
-        //Checks backup dir exists
-        $status = check_dir_exists($to_zip_file,true);
-
-        //Define zip destination (zip file)
-        $to_zip_file = $to_zip_file."/".$preferences->backup_name;
-        
         //echo "<p>To: ".$to_zip_file."<br>";                                              //Debug
 
         //Copy zip file

backup/config.html

@@ -0,0 +1,208 @@
+<?php 
+    //Get some strings
+
+    $yes = get_string("yes");
+    $no  = get_string("no");
+    $withuserdata = get_string("withuserdata");
+    $withoutuserdata = get_string("withoutuserdata");
+    $course = get_string("course");
+    $all = get_string("all");
+    $include = get_string("include");
+    $modules = get_string("modules");
+ 
+    //Get backup_config pairs
+    $backup_config =  backup_get_config();
+
+    //Checks backup_config pairs exist
+    if (!isset($backup_config->backup_sche_modules)) {
+        $backup_config->backup_sche_modules = 1;
+    }
+    if (!isset($backup_config->backup_sche_withuserdata)) {
+        $backup_config->backup_sche_withuserdata = 1;
+    }
+    if (!isset($backup_config->backup_sche_users)) {
+        $backup_config->backup_sche_users = 1;
+    }
+    if (!isset($backup_config->backup_sche_logs)) {
+        $backup_config->backup_sche_logs = 0;
+    }
+    if (!isset($backup_config->backup_sche_userfiles)) {
+        $backup_config->backup_sche_userfiles = 1;
+    }
+    if (!isset($backup_config->backup_sche_coursefiles)) {
+        $backup_config->backup_sche_coursefiles = 1;
+    }
+    if (!isset($backup_config->backup_sche_active)) {
+        $backup_config->backup_sche_active = 0;
+    }
+    if (!isset($backup_config->backup_sche_weekdays)) {
+        $backup_config->backup_sche_weekdays = "0000000";
+    }
+    if (!isset($backup_config->backup_sche_hour)) {
+        $backup_config->backup_sche_hour = 00;
+    }
+    if (!isset($backup_config->backup_sche_minute)) {
+        $backup_config->backup_sche_minute = 00;
+    }
+    if (!isset($backup_config->backup_sche_destination)) {
+        $backup_config->backup_sche_destination = "";
+    }
+    if (!isset($backup_config->backup_sche_keep)) {
+        $backup_config->backup_sche_keep = 1;
+    }
+
+    //print_object($backup_config);                       //Debug
+
+    //Yes/no array for use in yes/no menu
+    $yesno_array[0] = $no;
+    $yesno_array[1] = $yes;
+
+    //With user data/without user data array for use in menu
+    $withwithout_array[0] = $withoutuserdata;
+    $withwithout_array[1] = $withuserdata;
+
+    //Course/alla array for use in course/all menu
+    $courseall_array[0] = $all;
+    $courseall_array[1] = $course;
+
+    //Keep array for use in keep menu
+    $keep_array[0] = $all;
+    $keep_array[1] = "1";
+    $keep_array[2] = "2";
+    $keep_array[5] = "5";
+    $keep_array[10] = "10";
+    $keep_array[20] = "20";
+    $keep_array[30] = "30";
+    $keep_array[40] = "40";
+    $keep_array[50] = "50";
+    $keep_array[100] = "100";
+    $keep_array[200] = "200";
+    $keep_array[300] = "300";
+    $keep_array[400] = "400";
+    $keep_array[500] = "500";
+?>
+<form method="post" action="backup.php" name="form">
+
+<table cellpadding=9 cellspacing=0 >
+<tr valign=top>
+    <td colspan = 3 align=center><strong><?php print_string("settings") ?></strong></td>
+</tr>
+<tr valign=top>
+    <td align=right><p><?php print_string("includemodules") ?>:</td>
+    <td nowrap>
+    <?php choose_from_menu($yesno_array, "backup_sche_modules", $backup_config->backup_sche_modules, "") ?>
+    <?php choose_from_menu($withwithout_array, "backup_sche_withuserdata", $backup_config->backup_sche_withuserdata, "") ?>
+    </td>
+    <td>
+    <?php print_string("backupincludemoduleshelp") ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td align=right><p><?php print_string("users") ?>:</td>
+    <td>
+    <?php choose_from_menu($courseall_array, "backup_sche_users", $backup_config->backup_sche_users, "") ?>
+    </td>
+    <td>
+    <?php print_string("backupusershelp") ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td align=right><p><?php print_string("logs") ?>:</td>
+    <td>
+    <?php choose_from_menu($yesno_array, "backup_sche_logs", $backup_config->backup_sche_logs, "") ?>
+    </td>
+    <td>
+    <?php print_string("backuplogshelp") ?>  
+    </td>
+</tr>
+<tr valign=top>
+    <td align=right><p><?php print_string("userfiles") ?>:</td>
+    <td>
+    <?php choose_from_menu($yesno_array, "backup_sche_userfiles", $backup_config->backup_sche_userfiles, "") ?>
+    </td>
+    <td>
+    <?php print_string("backupuserfileshelp") ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td align=right><p><?php print_string("coursefiles") ?>:</td>
+    <td>
+    <?php choose_from_menu($yesno_array, "backup_sche_coursefiles", $backup_config->backup_sche_coursefiles, "") ?>
+    </td>
+    <td>
+    <?php print_string("backupcoursefileshelp") ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td align=right><p><?php print_string("keep") ?>:</td>
+    <td>
+    <?php
+        choose_from_menu($keep_array, "backup_sche_keep", $backup_config->backup_sche_keep, "");
+        print_string("files");
+     ?>
+    </td>
+    <td>
+    <?php print_string("backupkeephelp") ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td colspan = 3 align=center><strong><?php print_string("schedule") ?></strong></td>
+</tr>
+<tr valign=top>
+    <td colspan = 3 align=center>
+        <?php print_string("active") ?>: <?php choose_from_menu($yesno_array, "backup_sche_active", $backup_config->backup_sche_active, "") ?>
+    </td>
+</tr>
+<tr>
+    <td colspan=3 align=center>
+        <?php 
+            //Get first day of week from languaje files
+            //after searching the web I haven't find a sytem to retrieve it in php from locale info
+            $firstdayofweek = get_string("firstdayofweek");
+            //If it is empty ot it is different of 1, default to 0
+            if (!isset($firstdayofweek) || $firstdayofweek != 1) {
+                $firstdayofweek = 0;
+            }
+            //Now create the GMT timestamp of a well-know sunday (02/25/2001, my 31th birthday (stronk7) !!)
+            $onesunday = gmmktime(0,0,0,2,25,2001);
+            $i = 0;
+            $day_names = "";
+            $check_names = "";
+            while ($i<7) {
+                $day_names[] = gmstrftime("%A",$onesunday + (($firstdayofweek+$i)*86400));
+                //Calculate standard day of week (0=Sunday......6=Saturday)
+                //to store info in that exact order in DB
+                $stddayofweek = ($i+$firstdayofweek) % 7;
+                //Calculate the status of the checkbox
+                if (substr($backup_config->backup_sche_weekdays,$stddayofweek,1) == "1") {
+                    $strchecked = " checked";
+                } else {
+                    $strchecked = "";
+                }
+                $check_names[] = "<input type=\"checkbox\" name=\"dayofweek_$stddayofweek\" value=\"1\"$strchecked>";
+                $i++;
+            }
+            $table->align = array("center","center","center","center","center","center","center");
+            $table->head = $day_names;
+            $table->data[] = $check_names;
+            print_table($table);
+        ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td colspan = 3 align=center>
+        <?php print_string("executeat") ?>: <?php print_time_selector("backup_sche_hour","backup_sche_minute",make_timestamp(2000,1,1,$backup_config->backup_sche_hour,$backup_config->backup_sche_minute)) ?>
+    </td>
+</tr>
+<tr valign=top>
+    <td colspan = 3 align=center>
+        <?php print_string("saveto") ?>: <input name="backup_sche_destination" type="text" size="40" value="<?php p($backup_config->backup_sche_destination) ?>"><br><?php if (!empty($sche_destination_error)) { formerr($sche_destination_error); echo "<br>"; } ?><?php print_string("backupsavetohelp") ?>
+    </td>
+</tr>
+<tr>
+    <td colspan=3 align=center>
+        <input type="submit" value="<?php print_string("savechanges") ?>"></td>
+</tr>
+</table>
+
+</form>

backup/db/mysql.php

@@ -68,7 +68,41 @@ function backup_upgrade($oldversion=0) {
 
     if ($oldversion < 2003082600 and $result) {
         print_simple_box("This is the first non-alpha release of the Backup/Restore module.<p>Thanks for upgrading!","center", "50%", "$THEME->cellheading", "20", "noticebox");
-    } 
+    }
+
+    if ($oldversion < 2003112700 and $result) {
+        $result = execute_sql("CREATE TABLE `{$CFG->prefix}backup_config` (
+                      `id` int(10) unsigned NOT NULL auto_increment,
+                      `name` varchar(255) NOT NULL default '',
+                      `value` varchar(255) NOT NULL default '',
+                      PRIMARY KEY  (`id`),
+                      UNIQUE KEY `name` (`name`)
+                  ) TYPE=MyISAM COMMENT='To store backup configuration variables'");
+    }
+
+    if ($oldversion < 2003120800 and $result) {
+        $result = execute_sql("CREATE TABLE `{$CFG->prefix}backup_courses` (
+                      `id` int(10) unsigned NOT NULL auto_increment,
+                      `courseid` int(10) unsigned NOT NULL default '0',
+                      `laststarttime` int(10) unsigned NOT NULL default '0',
+                      `lastendtime` int(10) unsigned NOT NULL default '0',
+                      `laststatus` varchar(1) NOT NULL default '0',
+                      `nextstarttime` int(10) unsigned NOT NULL default '0',
+                      PRIMARY KEY  (`id`),
+                      UNIQUE KEY `courseid` (`courseid`)
+                  ) TYPE=MyISAM COMMENT='To store every course backup status'");
+
+        if ($result) {
+            $result = execute_sql("CREATE TABLE `{$CFG->prefix}backup_log` (    
+                          `id` int(10) unsigned NOT NULL auto_increment, 
+                          `courseid` int(10) unsigned NOT NULL default '0',
+                          `time` int(10) unsigned NOT NULL default '0',
+                          `laststarttime` int(10) unsigned NOT NULL default '0',
+                          `info` varchar(255) NOT NULL default '',
+                          PRIMARY KEY  (`id`)
+                      ) TYPE=MyISAM COMMENT='To store every course backup log info'");
+        }
+    }
 
     //Finally, return result
     return $result;

backup/db/mysql.sql

@@ -24,4 +24,48 @@ CREATE TABLE `prefix_backup_ids` (
   `info` mediumtext,
   PRIMARY KEY  (`backup_code`,`table_name`,`old_id`)
 ) TYPE=MyISAM COMMENT='To store and convert ids in backup/restore';
+# --------------------------------------------------------
 
+#
+# Table structure for table `prefix_backup_config`
+#
+
+CREATE TABLE `prefix_backup_config` (
+  `id` int(10) unsigned NOT NULL auto_increment,
+  `name` varchar(255) NOT NULL default '',
+  `value` varchar(255) NOT NULL default '',
+  PRIMARY KEY  (`id`),
+  UNIQUE KEY `name` (`name`)
+) TYPE=MyISAM COMMENT='To store backup configuration variables';
+# --------------------------------------------------------
+
+#
+# Table structure for table `prefix_backup_courses`
+#
+
+CREATE TABLE `prefix_backup_courses` (
+  `id` int(10) unsigned NOT NULL auto_increment,
+  `courseid` int(10) unsigned NOT NULL default '0',
+  `laststarttime` int(10) unsigned NOT NULL default '0',
+  `lastendtime` int(10) unsigned NOT NULL default '0',
+  `laststatus` varchar(1) NOT NULL default '0',
+  `nextstarttime` int(10) unsigned NOT NULL default '0',
+  PRIMARY KEY  (`id`),
+  UNIQUE KEY `courseid` (`courseid`)
+) TYPE=MyISAM COMMENT='To store every course backup status';
+
+# --------------------------------------------------------
+
+#
+# Table structure for table `prefix_backup_log`
+#
+
+CREATE TABLE `prefix_backup_log` (
+  `id` int(10) unsigned NOT NULL auto_increment, 
+  `courseid` int(10) unsigned NOT NULL default '0',
+  `time` int(10) unsigned NOT NULL default '0',
+  `laststarttime` int(10) unsigned NOT NULL default '0',
+  `info` varchar(255) NOT NULL default '',
+  PRIMARY KEY  (`id`)
+) TYPE=MyISAM COMMENT='To store every course backup log info';
+# --------------------------------------------------------

backup/db/oci8po.sql

@@ -0,0 +1,130 @@
+rem
+rem Table structure for table prefix_backup_files
+rem
+
+drop table prefix_backup_files;
+
+CREATE TABLE prefix_backup_files (
+  backup_code number(10) default '0' NOT NULL,
+  file_type varchar2(10) default '' NOT NULL,
+  path varchar2(255) default '' NOT NULL,
+  old_id number(10) default NULL,
+  new_id number(10) default NULL
+);
+
+ALTER TABLE prefix_backup_files
+  ADD CONSTRAINT pbf_pk 
+  PRIMARY KEY (backup_code,file_type,path);
+
+COMMENT on table prefix_backup_files is 'To store and recode ids to user and course files.';
+
+rem --------------------------------------------------------
+rem
+rem Table structure for table prefix_backup_ids
+rem
+
+drop table prefix_backup_ids;
+
+CREATE TABLE prefix_backup_ids (
+  backup_code number(12) default '0' NOT NULL,
+  table_name varchar2(30) default '' NOT NULL,
+  old_id number(10) default '0' NOT NULL,
+  new_id number(10) default NULL,
+  info varchar2(20)
+);
+
+ALTER TABLE prefix_backup_ids
+  ADD CONSTRAINT pbi_pk 
+  PRIMARY KEY (backup_code,table_name,old_id);
+
+COMMENT on table prefix_backup_ids is 'To store and convert ids in backup/restore';
+
+rem --------------------------------------------------------
+rem
+rem Table structure for table prefix_backup_config
+rem
+
+drop TABLE prefix_backup_config;
+
+CREATE TABLE prefix_backup_config (
+  id number(10) not null,
+  name varchar2(255) not null,
+  value varchar2(255) not null,
+  constraint pk_baco primary key (id),
+  constraint uk_baco_name unique (name)
+);
+
+COMMENT on table prefix_backup_config is 'To store backup configuration variables';
+
+drop sequence p_backup_config_seq;
+create sequence p_backup_config_seq;
+
+create or replace trigger p_backup_config_trig
+  before insert on prefix_backup_config
+  referencing new as new_row
+  for each row
+  begin
+    select p_backup_config_seq.nextval into :new_row.id from dual;
+  end;
+
+rem --------------------------------------------------------
+rem
+rem Table structure for table prefix_backup_courses
+rem
+
+drop TABLE prefix_backup_courses;
+
+CREATE TABLE prefix_backup_courses (
+    id number(10) default '0' NOT NULL,      
+    courseid number(10) default '0' NOT NULL, 
+    laststarttime number(10) default '0' NOT NULL,
+    lastendtime number(10) default '0' NOT NULL,
+    laststatus varchar2(1) default '0' NOT NULL,
+    nextstarttime number(10) default '0' NOT NULL,
+    constraint pk_bacu primary key (id),
+    constraint uk_bacu_courseid unique (courseid)
+);
+
+COMMENT on table prefix_backup_courses is 'To store every course backup status';
+
+drop sequence p_backup_courses_seq;
+create sequence p_backup_courses_seq;
+
+create or replace trigger p_backup_courses_trig
+  before insert on prefix_backup_courses
+  referencing new as new_row
+  for each row
+  begin
+    select p_backup_courses_seq.nextval into :new_row.id from dual;
+  end;
+
+rem --------------------------------------------------------
+rem
+rem Table structure for table prefix_backup_log
+rem
+
+drop TABLE prefix_backup_log;
+
+CREATE TABLE prefix_backup_log (
+    id number(10) default '0' NOT NULL,
+    courseid number(10) default '0' NOT NULL,
+    time number(10) default '0' NOT NULL,
+    laststarttime number(10) default '0' NOT NULL,
+    info varchar2(255) default '0' NOT NULL,
+    constraint pk_balo primary key (id)
+);
+
+COMMENT on table prefix_backup_log is 'To store every course backup log info';
+
+drop sequence p_backup_log_seq;
+create sequence p_backup_log_seq;
+
+create or replace trigger p_backup_log_trig
+  before insert on prefix_backup_log
+  referencing new as new_row
+  for each row
+  begin
+    select p_backup_log_seq.nextval into :new_row.id from dual;
+  end;
+
+/

backup/db/postgres7.sql

@@ -31,4 +31,37 @@ CREATE TABLE prefix_backup_ids (
 
 CREATE INDEX prefix_backup_codenameid_idx ON prefix_backup_ids (backup_code,table_name,old_id);
 
+#
+# Table structure for table prefix_backup_config
+#
 
+CREATE TABLE prefix_backup_config (
+   id SERIAL PRIMARY KEY,
+   name varchar(255) UNIQUE NOT NULL default '',
+   value varchar(255) NOT NULL default ''
+);
+
+#
+# Table structure for table prefix_backup_courses
+#
+
+CREATE TABLE prefix_backup_courses (
+    id SERIAL PRIMARY KEY,
+    courseid int8 UNIQUE NOT NULL default '0',
+    laststarttime int8 NOT NULL default '0',
+    lastendtime int8 NOT NULL default '0',
+    laststatus varchar(1) NOT NULL default '0',
+    nextstarttime int8 NOT NULL default '0'
+);
+
+#
+# Table structure for table prefix_backup_log
+#
+
+CREATE TABLE prefix_backup_log (
+    id SERIAL PRIMARY KEY,
+    courseid int8 NOT NULL default '0',
+    time int8 NOT NULL default '0',
+    laststarttime int8 NOT NULL default '0',
+    info varchar(255) NOT NULL default ''
+);

backup/lib.php

@@ -2,6 +2,28 @@
     //This file contains all the general function needed (file manipulation...)
     //not directly part of the backup/restore utility
 
+    //Sets a name/value pair in backup_config table
+    function backup_set_config($name, $value) {
+        if (get_field("backup_config", "name", "name", $name)) {
+            return set_field("backup_config", "value", $value, "name", $name);
+        } else {
+            $config->name = $name;
+            $config->value = $value;
+            return insert_record("backup_config", $config);
+        }
+    }
+
+    //Gets all the information from backup_config table
+    function backup_get_config() {
+        $backup_config = null;
+        if ($configs = get_records("backup_config")) {
+            foreach ($configs as $config) {
+                $backup_config[$config->name] = $config->value;
+            }
+        }
+        return (object)$backup_config;
+    }
+
     //Delete old data in backup tables (if exists)
     //Two days seems to be apropiate
     function backup_delete_old_data() {
@@ -184,6 +206,8 @@
     //This function return the names of all directories under a give directory
     //Not recursive
     function list_directories ($rootdir) {
+
+        $results = null;
   
         $dir = opendir($rootdir);
         while ($file=readdir($dir)) {
@@ -201,6 +225,8 @@
     //This function return the names of all directories and files under a give directory
     //Not recursive
     function list_directories_and_files ($rootdir) {
+
+        $results = "";
  
         $dir = opendir($rootdir);
         while ($file=readdir($dir)) {
@@ -252,10 +278,15 @@
     //Little modifications done
   
     function backup_copy_file ($from_file,$to_file) {
+
+        global $CFG;
+
         if (is_file($from_file)) {
             //echo "<br>Copying ".$from_file." to ".$to_file;              //Debug
-            $perms=fileperms($from_file);
-            return copy($from_file,$to_file) && chmod($to_file,$perms);
+            //$perms=fileperms($from_file);
+            //return copy($from_file,$to_file) && chmod($to_file,$perms);
+            umask(0000);
+            return copy($from_file,$to_file) && chmod($to_file,$CFG->directorypermissions);
         }
         else if (is_dir($from_file)) {
             return backup_copy_dir($from_file,$to_file);
@@ -272,6 +303,7 @@
 
         if (!is_dir($to_file)) {
             //echo "<br>Creating ".$to_file;                                //Debug
+            umask(0000);
             $status = mkdir($to_file,$CFG->directorypermissions);
         }
         $dir = opendir($from_file);
@@ -307,7 +339,7 @@
                 $db->debug = false;
                 if (set_config("backup_version", $backup_version) and set_config("backup_release", $backup_release)) {
                     notify(get_string("databasesuccess"), "green");
-                    notify(get_string("databaseupgradebackups", "", $backup_release));
+                    notify(get_string("databaseupgradebackups", "", $backup_version));
                     print_continue($continueto);
                     exit;
                 } else {
@@ -330,7 +362,7 @@
                 $db->debug=false;
                 if (set_config("backup_version", $backup_version) and set_config("backup_release", $backup_release)) {
                     notify(get_string("databasesuccess"), "green");
-                    notify(get_string("databaseupgradebackups", "", $backup_release));
+                    notify(get_string("databaseupgradebackups", "", $backup_version));
                     print_continue($continueto);
                     exit;
                 } else {
@@ -355,7 +387,6 @@
         global $CFG;
 
         $max_db_storage = 128;  //Max bytes to save to db, else save to file
-                                //MUST BE LOWER THAN 256 (VARCHAR LIMIT)
  
         $status = true;
         
@@ -382,10 +413,14 @@
 
         //Now, insert the record
         if ($status) {
-            $status = execute_sql("INSERT INTO {$CFG->prefix}backup_ids
-                                       (backup_code, table_name, old_id, new_id, info)
-                                   VALUES 
-                                       ($backup_unique_code, '$table', '$old_id', '$new_id', '$info_to_save')",false);
+            //Build the record
+            $rec->backup_code = $backup_unique_code;
+            $rec->table_name = $table;
+            $rec->old_id = $old_id;
+            $rec->new_id =$new_id;
+            $rec->info = $info_to_save;
+            
+            $status = insert_record ("backup_ids", $rec, false,"backup_code");
         }
         return $status;
     }
@@ -446,7 +481,7 @@
     //This function is used to add slashes and decode from UTF-8
     //It's used intensivelly when restoring modules and saving them in db
     function backup_todb ($data) {
-        return addslashes(utf8_decode($data));
+        return restore_decode_absolute_links(addslashes(utf8_decode($data)));
     }
 
     //This function is used to check that every necessary function to 

backup/log.php

@@ -0,0 +1,138 @@
+<?PHP  // $Id$
+       // backup.php - allows admin to edit all configuration variables for scheduled backups
+
+    require_once("../config.php");
+    require_once("../backup/lib.php");
+
+    optional_variable($courseid);
+
+    require_login();
+
+    if (!isadmin()) {
+        error("Only an admin can use this page");
+    }
+
+    if (!$site = get_site()) {
+        error("Site isn't defined!");
+    }
+
+    //Get needed strings
+    $backuploglaststatus = get_string("backuploglaststatus");
+    $backuplogdetailed = get_string("backuplogdetailed");
+    $stradmin = get_string("administration");
+    $strconfiguration = get_string("configuration");
+    $strbackup = get_string("backup");
+    $strbackupdetails = get_string("backupdetails");
+    $strlogs = get_string("logs");
+    $strftimedatetime = get_string("strftimerecent");
+    $strftimetime = get_string("strftimetime").":%S";
+    $strerror = get_string("error");
+    $strok = get_string("ok");
+    $strcourse = get_string("course");
+    $strtimetaken = get_string("timetaken","quiz");
+    $strstatus = get_string("status");
+    $strnext = get_string("next");
+
+    //Decide when to show last execution logs or detailed logs
+    //Lastlog view
+    if (!$courseid) {
+        print_header("$site->shortname: $strconfiguration: $strbackup", $site->fullname,
+                      "<a href=\"../$CFG->admin/index.php\">$stradmin</a> -> ".
+                      "<a href=\"../$CFG->admin/configure.php\">$strconfiguration</a> -> ".
+                      "<a href=\"../$CFG->admin/backup.php\">$strbackup</a> -> ".
+                      $strlogs);
+
+        print_heading($backuploglaststatus);
+        print_simple_box_start("center", "", "$THEME->cellheading");
+        //Now, get every record from backup_courses
+        $courses = get_records("backup_courses");
+
+        if (!$courses) {
+            notify("No logs found!");
+        } else {
+            echo "<table border=0 align=center cellpadding=3 cellspacing=3>";
+            //Print table header
+            echo "<tr nowrap>";
+            echo "<td nowrap align=center><font size=3>$strcourse</font></td>";
+            echo "<td nowrap align=center colspan=3><font size=3>$strtimetaken</font></td>";
+            echo "<td nowrap align=center><font size=3>$strstatus</font></td>";
+            echo "<td nowrap align=center><font size=3>$strnext</font></td>";
+            foreach ($courses as $course) {
+                //Get the course shortname
+                $coursename = get_field ("course","fullname","id",$course->courseid);
+                if ($coursename) {
+                    echo "<tr nowrap>";
+                    echo "<td nowrap><font size=2><a href=\"log.php?courseid=$course->courseid\">".$coursename."</a></td>";
+                    echo "<td nowrap><font size=2>".userdate($course->laststarttime,$strftimedatetime)."</td>";
+                    echo "<td nowrap><font size=2> - </td>";
+                    echo "<td nowrap><font size=2>".userdate($course->lastendtime,$strftimedatetime)."</td>";
+                    if (!$course->laststatus) {
+                        echo "<td nowrap align=center><font size=2 color=red>".$strerror."</td>";
+                    } else {
+                        echo "<td nowrap align=center><font size=2 color=green>".$strok."</td>";
+                    }
+                    echo "<td nowrap><font size=2>".userdate($course->nextstarttime,$strftimedatetime)."</td>";
+                    echo "</tr>";
+                }
+            }
+            echo "</table>";
+        }
+        print_simple_box_end();
+    //Detailed View !!
+    } else {
+        print_header("$site->shortname: $strconfiguration: $strbackup", $site->fullname,
+                      "<a href=\"../$CFG->admin/index.php\">$stradmin</a> -> ".
+                      "<a href=\"../$CFG->admin/configure.php\">$strconfiguration</a> -> ".
+                      "<a href=\"../$CFG->admin/backup.php\">$strbackup</a> -> ".
+                      "<a href=\"log.php\">$strlogs</a> -> ".
+                      $strbackupdetails);
+
+        print_heading($backuplogdetailed);
+
+        $coursename = get_field("course","fullname","id","$courseid");
+        print_heading("$strcourse: $coursename");
+
+        print_simple_box_start("center", "", "$THEME->cellheading");
+        
+        //First, me get all the distinct backups for that course in backup_log
+        $executions = get_records_sql("SELECT DISTINCT laststarttime,laststarttime
+                                       FROM {$CFG->prefix}backup_log
+                                       WHERE courseid = '$courseid'
+                                       ORDER BY laststarttime DESC");
+
+        //Iterate over backup executions
+        if (!$executions) {
+            notify("No logs found!");
+        } else {
+            echo "<table border=0 align=center cellpadding=3 cellspacing=3>";
+            foreach($executions as $execution) {
+                echo "<tr nowrap>";
+                echo "<td nowrap align=center colspan=3>";
+                print_simple_box("<center>".userdate($execution->laststarttime)."</center>", "center");
+                echo "</td>";
+                echo "</tr>";
+                $logs = get_records_sql("SELECT * 
+                                         FROM {$CFG->prefix}backup_log
+                                         WHERE courseid = '$courseid'  AND
+                                               laststarttime = '$execution->laststarttime'
+                                         ORDER BY time");
+                if ($logs) {
+                    foreach ($logs as $log) {
+                        echo "<tr nowrap>";
+                        echo "<td nowrap><font size=2>".userdate($log->time,$strftimetime)."</font></td>";
+                        $log->info = str_replace("- ERROR!!","- <font color=red>ERROR!!</font>",$log->info);
+                        $log->info = str_replace("- OK","- <font color=green>OK</font>",$log->info);
+                        echo "<td nowrap><font size=2>".str_replace("  ","&nbsp;&nbsp;&nbsp;&nbsp;",$log->info)."</font></td>";
+                        echo "</tr>";
+                    }
+                }
+            }
+            echo "</table>";
+        }
+        print_simple_box_end();
+    }
+
+
+    print_footer();
+
+?>

backup/restore.php

@@ -9,6 +9,7 @@
     require_once ("../course/lib.php");
     require_once ("lib.php");
     require_once ("restorelib.php");
+    require_once("$CFG->libdir/blocklib.php");
 
     //Optional
     optional_variable($id);
@@ -76,6 +77,8 @@
         error("Course ID was incorrect (can't find it)");
     }
 
+    check_for_restricted_user($USER->username, "$CFG->wwwroot/course/view.php?id=$course->id");
+
     //Print header
     if (isadmin()) {
         print_header("$site->shortname: $strcourserestore", $site->fullname,
@@ -92,7 +95,7 @@
     
     //Adjust some php variables to the execution of this script
     ini_set("max_execution_time","3000");
-    ini_set("memory_limit","56M");
+    ini_set("memory_limit","80M");
 
     //Call the form, depending the step we are
     if (!$launch) {

backup/restore_check.html

@@ -9,12 +9,14 @@
     if ($SESSION) {
         $info = $SESSION->info;
         $course_header = $SESSION->course_header;
-        $restore = $SESSION->restore;
+        if (isset($SESSION->restore)) {
+            $restore = $SESSION->restore;
+        }
     }
 
     //If restore session info exists, but we are posting parameters
     //manually, this has prioriry
-    if ($restore and isset($restore_restoreto)) {
+    if (isset($restore) and isset($restore_restoreto)) {
         unset($restore);
     }
 
@@ -29,7 +31,7 @@
     //If the restore object doesn't exist, we are going
     //to check every variable individually and create it
 
-    if (!$restore) {
+    if (!isset($restore)) {
         //Check that we have all we need
         //backup_unique_code
         require_variable($backup_unique_code);
@@ -146,7 +148,7 @@
 
     //Now, select the course if needed
     if (($restore->restoreto == 0 or $restore->restoreto == 1) and ($restore->course_id == 0) and (isadmin())) {
-        if ($courses = get_courses()) {
+        if ($courses = get_courses("all","c.fullname")) {
             print_heading(get_string("choosecourse"));
             print_simple_box_start("CENTER");
             foreach ($courses as $course) {

backup/restore_execute.html

@@ -10,6 +10,10 @@
         $restore = $SESSION->restore;
     }
 
+    //Add info->original_wwwroot to $restore to be able to use it in all the restore process
+    //(mainly when decoding internal links)
+    $restore->original_wwwroot = $info->original_wwwroot;
+
     //Check login
     require_login();
 
@@ -143,9 +147,6 @@
                 $exists_count = 0;
                 $student_count = 0;
                 $teacher_count = 0;
-                $coursecreator_count = 0;
-                $admin_count = 0;
-                $other_count = 0;
                 $counter = 0;
                 //Iterate, filling counters
                 foreach ($recs as $rec) {
@@ -157,16 +158,10 @@
                     if (strpos($record->info,"exists") !== false) {
                         $exists_count++;
                     }
-                    if (strpos($record->info,"student")) {
+                    if (strpos($record->info,"student") !== false) {
                         $student_count++;
-                    } else if (strpos($record->info,"teacher")) {
+                    } else if (strpos($record->info,"teacher") !== false) {
                         $teacher_count++;
-                    } else if (strpos($record->info,"admin")) {
-                        $admin_count++;
-                    } else if (strpos($record->info,"coursecreator")) {
-                        $coursecreator_count++;
-                    } else if ($record->info == "new" or $record->info == "exists") {
-                        $other_count++;
                     }
                     //Do some output
                     $counter++;
@@ -183,13 +178,9 @@
                 echo "<ul>";
                 echo "<li>".get_string("students").": ".$student_count;
                 echo "<li>".get_string("teachers").": ".$teacher_count;
-                echo "<li>".get_string("coursecreators").": ".$coursecreator_count;
-                echo "<li>".get_string("administrators").": ".$admin_count;
-                echo "<li>".get_string("other").": ".$other_count;
                 echo "</ul>";
             } else {
-                notify("Something is wrong - no users were found!");
-                $status = false;
+                notify("No users were found!");
             }
         }
     }
@@ -240,6 +231,22 @@
         }
     }
 
+    //Now create groups as needed
+    if ($status) {
+        echo "<li>".get_string("creatinggroups");
+        if (!$status = restore_create_groups($restore,$xml_file)) {
+            notify("Could not restore groups!");
+        }
+    }
+
+    //Now create events as needed
+    if ($status) {
+        echo "<li>".get_string("creatingevents");
+        if (!$status = restore_create_events($restore,$xml_file)) {
+            notify("Could not restore course events!");
+        }
+    }
+
     //Now create course modules as needed
     if ($status) {
         echo "<li>".get_string("creatingcoursemodules");
@@ -250,7 +257,10 @@
 
     //Now create log entries as needed
     if ($status and ($restore->logs)) {
-        echo "<li>".get_string("creatinglogentries")."<b> (not implemented!!)</b>";
+        echo "<li>".get_string("creatinglogentries");
+        if (!$status = restore_create_logs($restore,$xml_file)) {
+            notify("Could not restore logs!");
+        }
     }    
 
     //Now, if all is OK, adjust the instance field in course_modules !!
@@ -261,6 +271,22 @@
         }
     }
 
+    //Now, if all is OK, adjust activity events
+    if ($status) {
+        echo "<li>".get_string("refreshingevents");
+        if (!$status = restore_refresh_events($restore)) {
+            notify("Could not refresh events for activities!");
+        }
+    }
+
+    //Now, if all is OK, adjust inter-activity links
+    if ($status) {
+        echo "<li>".get_string("decodinginternallinks");
+        if (!$status = restore_decode_content_links($restore)) {
+            notify("Could not refresh events for activities!");
+        }
+    }
+
     //Now if all is OK, update:
     //   - course modinfo field 
     //   - categories table

backup/restore_form.html

@@ -98,7 +98,21 @@
 
 ?>
 
-<form name="form" method="post" <?php echo $onsubmit ?> action="<?php echo $ME ?>">
+<SCRIPT LANGUAGE="JavaScript">
+<!--
+function selectItemInMenuByName(formId, menuName, selectIndex ) {
+	myForm = document.getElementById(formId)
+        for (i=0,n=myForm.elements.length;i<n;i++) {
+            myLen = menuName.length;
+			myName = myForm.elements[i].name;
+			if (myName.substring(0,myLen) == menuName)
+                myForm.elements[i].options[selectIndex].selected = true;
+		}
+}
+-->
+</script>
+
+<form name="form1" id="form1" method="post" action="<?php echo $ME ?>">
 <table cellpadding=5>
 <?php
 
@@ -123,6 +137,17 @@
     echo "<tr><td colspan=\"2\"><hr noshade size=\"1\"></td></tr>";
     //Now, check modules and info and show posibilities
     if ($allmods = get_records("modules") ) {
+        //Print option to select/deselect every "with user info" popup. For Gustav, lol, Eloy :-)
+        echo "<tr>";
+        echo "<td colspan=\"2\" align=\"right\"><font size=\"-1\">";
+        echo get_string("userdata").":";
+        echo "<a href=\"javascript:void(0);\" onclick=\"selectItemInMenuByName('form1', 'restore_user_info_', '1');\">".
+             get_string("all")."</a>/";
+        echo "<a href=\"javascript:void(0);\" onclick=\"selectItemInMenuByName('form1', 'restore_user_info_', '0');\">".
+             get_string("none")."</a>";
+        echo "</font></td>";
+        echo "</tr>";
+        echo "<tr><td colspan=\"2\"><hr noshade size=\"1\"></td></tr>";
         foreach ($allmods as $mod) {
             $modname = $mod->name;
             $modrestore = $modname."_restore_mods";
@@ -130,29 +155,35 @@
             $exist = "exists_".$modname;
             $restore_var = "restore_".$modname;
             $user_info_var = "restore_user_info_".$modname;
-            if ($$exist) {
-                //Now check that we have that module info in the backup file
-                if ($info->mods[$modname]->backup == "true") {
-                    //Print the full tr
-                    echo "<tr>";
-                    echo "<td align=\"right\"><P><B>";
-                    echo get_string("include")." ". get_string("modulenameplural",$modname).":";
-                    echo "</td><td>";
-                    $restore_options[0] = get_string("no"); 
-                    $restore_options[1] = get_string("yes");
-                    choose_from_menu($restore_options, $restore_var, $$restore_var, "");
-                    //If backup contains user data, then show menu, else fix it to
-                    //without user data
-                    if ($info->mods[$modname]->userinfo == "true") {
-                        $restore_user_options[0] = get_string("withoutuserdata"); 
-                        $restore_user_options[1] = get_string("withuserdata");
-                        choose_from_menu($restore_user_options, $user_info_var, $$user_info_var, "");
+            if (isset($$exist)) {
+                if ($$exist) {
+                    //Now check that we have that module info in the backup file
+                    if (isset($info->mods[$modname]) && $info->mods[$modname]->backup == "true") {
+                        //Print the full tr
+                        echo "<tr>";
+                        echo "<td align=\"right\"><P><B>";
+                        echo get_string("include")." ". get_string("modulenameplural",$modname).":";
+                        echo "</td><td>";
+                        $restore_options[0] = get_string("no"); 
+                        $restore_options[1] = get_string("yes");
+                        choose_from_menu($restore_options, $restore_var, $$restore_var, "");
+                        //If backup contains user data, then show menu, else fix it to
+                        //without user data
+                        if ($info->mods[$modname]->userinfo == "true") {
+                            $restore_user_options[0] = get_string("withoutuserdata"); 
+                            $restore_user_options[1] = get_string("withuserdata");
+                            choose_from_menu($restore_user_options, $user_info_var, $$user_info_var, "");
+                        } else {
+                            //Module haven't userdata
+                            echo get_string("withoutuserdata");
+                            echo "<input type=\"hidden\" name=\"$user_info_var\" value=\"0\">";
+                        }
+                        echo "</td></tr>";
                     } else {
-                        //Module haven't userdata
-                        echo get_string("withoutuserdata");
+                        //Module isn't restorable
+                        echo "<input type=\"hidden\" name=\"$restore_var\" value=\"0\">";
                         echo "<input type=\"hidden\" name=\"$user_info_var\" value=\"0\">";
                     }
-                    echo "</td></tr>";
                 } else {
                     //Module isn't restorable
                     echo "<input type=\"hidden\" name=\"$restore_var\" value=\"0\">";
@@ -172,14 +203,20 @@
         echo "<td align=\"right\"><P><B>";
         echo get_string("users").":";
         echo "</td><td>";
-        //If all users are in the backup file
-        if ($info->backup_users == "all") {
-            $user_options[0] = get_string("all");
+        //If some user is present in the backup file
+        if ($info->backup_users == "all" or $info->backup_users == "course") {
+            //If all users are in the backup file
+            if ($info->backup_users == "all") {
+                $user_options[0] = get_string("all");
+            }
+            $user_options[1] = get_string("course");
+            $user_options[2] = get_string("none");
+            choose_from_menu($user_options, "restore_users", $restore_users, "");
+        } else {
+            echo get_string("none");
+            echo "<input type=\"hidden\" name=\"restore_users\" value=\"2\">";
+
         }
-        $user_options[1] = get_string("course");
-        $user_options[2] = get_string("none");
-        //$user_options[2] = get_string("needed");-->NOT IMPLEMENTED
-        choose_from_menu($user_options, "restore_users", $restore_users, "");
         echo "</td></tr>";
 
         //Now print the Logs tr

backup/restore_precheck.html

@@ -68,20 +68,26 @@
     //Now copy he zip file to dataroot/temp/backup/backup_unique_code
     if ($status) {
         echo "<li>".get_string("copyingzipfile");
-        $status = backup_copy_file($file,$CFG->dataroot."/temp/backup/".$backup_unique_code."/".basename($file));
+        if (! $status = backup_copy_file($file,$CFG->dataroot."/temp/backup/".$backup_unique_code."/".basename($file))) {
+            notify("Error copying backup file. Invalid name or bad perms.");
+        }
     }
 
     //Now unzip the file
     if ($status) {
         echo "<li>".get_string("unzippingbackup");
-        $status = restore_unzip ($CFG->dataroot."/temp/backup/".$backup_unique_code."/".basename($file));
+        if (! $status = restore_unzip ($CFG->dataroot."/temp/backup/".$backup_unique_code."/".basename($file))) {
+            notify("Error unzipping backup file. Invalid zip file.");
+        }
     }
 
     //Now check for the moodle.xml file
     if ($status) {
         $xml_file  = $CFG->dataroot."/temp/backup/".$backup_unique_code."/moodle.xml";
         echo "<li>".get_string("checkingbackup");
-        $status = restore_check_moodle_file ($xml_file);
+        if (! $status = restore_check_moodle_file ($xml_file)) {
+            notify("Error checking backup file. Invalid or corrupted.");
+        }
     }
 
     $info = "";

backup/try.php

@@ -0,0 +1,42 @@
+<?php
+    require_once ("../config.php");
+    require_once ("backup_scheduled.php");
+    require_once ("lib.php");
+    require_once ("backuplib.php");
+
+    require_login();
+
+    if (!isadmin()) {
+        error("You need to be an admin user to use this page.", "$CFG->wwwroot/login/index.php");
+    }
+
+    //Check site
+    if (!$site = get_site()) {
+        error("Site not found!");
+    }
+
+    //Check necessary functions exists. Thanks to gregb@crowncollege.edu
+    backup_required_functions();
+
+    //Adjust some php variables to the execution of this script
+    ini_set("max_execution_time","3000");
+    ini_set("memory_limit","56M");
+
+    echo "<pre>\n";
+
+    $status = true;
+
+    $courses = get_records("course");
+    foreach ($courses as $course) {
+        echo "Start course ".$course->fullname;
+        $preferences = schedule_backup_course_configure($course);
+        if ($preferences && $status) {
+            $status = schedule_backup_course_execute($preferences);
+        }
+        if ($status && $preferences) {
+            echo "End course ".$course->fullname." OK\n\n";
+        } else {
+            echo "End course ".$course->fullname." FAIL\n\n";
+        }
+    }
+?>

backup/version.php

@@ -5,6 +5,6 @@
 // database (backup_version) to determine whether upgrades should
 // be performed (see db/backup_*.php)
 
-$backup_version = 2003082800;   // The current version is a date (YYYYMMDDXX)
+$backup_version = 2004052400;   // The current version is a date (YYYYMMDDXX)
 
-$backup_release = "1.1";  // User-friendly version number
+$backup_release = "1.3";  // User-friendly version number

blocks/README.txt

@@ -0,0 +1,53 @@
+-------------------------------------------------------------------------------
+CREATING NEW BLOCKS
+-------------------------------------------------------------------------------
+
+-------------------------------------------------------------------------------
+WARNING - PRELIMINARY DOCUMENTATION
+This is designed to point new block developers in the right direction. At times
+it may NOT be fully up-to-date with the source, or it may even contain some
+tiny bit of misinformation that has slipped our notice. If you encounter such a
+case, please:
+    1. Use the existing block code as reference
+    2. Come to the moodle.org forums and tell the world! :) We 'll help you!
+-------------------------------------------------------------------------------
+
+You have to derive a class that extends MoodleBlock.
+
+The derived class MUST:
+
+    * Implement a constructor that:
+        1. Sets $this->content_type (BLOCK_TYPE_LIST or BLOCK_TYPE_TEXT)
+        3. Sets $this->title
+        4. Sets $this->version
+        5. Sets $this->course equal to its only argument
+
+The derived class MAY:
+
+    * Declare that the block has a configuration interface.
+      To do so:
+
+        1. Define a method has_config() {return true;}
+        2. Define a method print_config() that prints whatever
+           configuration interface you want to have.
+        3. Define a method handle_config($data) that does what
+           is needed. $data comes straight from data_submitted().
+
+    * Limit the course formats it can be displayed in.
+      To do so:
+
+        1. Define a method applicable_formats() which returns a bitwise
+           OR of one or more COURSE_FORMAT_XXX defined constants. These
+           are defined in lib/blocklib.php.
+
+    * Select a "preferred" width which the course format will try to honor.
+      To do so:
+
+        1. Define a method preferred_width() which returns an integer.
+           This is the block's preferred width in pixels.
+
+    * Declare that the block is going to hide its header. This will result
+      in a more lightweight appearance. Ideal for announcements/notices.
+      To do so:
+
+        1. Define a method hide_header() {return true;}

blocks/activity_modules/block_activity_modules.php

@@ -0,0 +1,39 @@
+<?PHP //$Id$
+
+class CourseBlock_activity_modules extends MoodleBlock {
+    function CourseBlock_activity_modules($course) {
+        $this->title = get_string('activities');
+        $this->content_type = BLOCK_TYPE_LIST;
+        $this->course = $course;
+        $this->version = 2004041000;
+    }
+
+    function get_content() {
+        global $USER, $CFG;
+
+        // This is really NOT pretty, but let's do it simple for now...
+        global $modnamesused, $modnamesplural;
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        $this->content = New object;
+        $this->content->items = array();
+        $this->content->icons = array();
+        $this->content->footer = '';
+
+        if ($modnamesused) {
+            foreach ($modnamesused as $modname => $modfullname) {
+                if ($modname != 'label') {
+                    $this->content->items[] = '<a href="../mod/'.$modname.'/index.php?id='.$this->course->id.'">'.$modnamesplural[$modname].'</a>';
+                    $this->content->icons[] = '<img src="'.$CFG->modpixpath.'/'.$modname.'/icon.gif" height="16" width="16" alt="">';
+                }
+            }
+        }
+
+        return $this->content;
+    }
+}
+
+?>

blocks/activity_modules/db/mysql.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function activity_modules_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/activity_modules/db/postgres7.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function activity_modules_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/admin/block_admin.php

@@ -0,0 +1,110 @@
+<?PHP //$Id$
+
+class CourseBlock_admin extends MoodleBlock {
+    function CourseBlock_admin($course) {
+        $this->title = get_string('administration');
+        $this->content_type = BLOCK_TYPE_LIST;
+        $this->course = $course;
+        $this->version = 2004041000;
+    }
+    function get_content() {
+        global $USER, $CFG, $THEME;
+
+        require_once($CFG->dirroot.'/mod/forum/lib.php');
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        $this->content = New object;
+        $this->content->items = array();
+        $this->content->icons = array();
+        $this->content->footer = '';
+
+        if (isguest()) {
+            return $this->content;
+        }
+
+        if (isteacher($this->course->id)) {
+
+            $isteacheredit = isteacheredit($this->course->id);
+
+            if ($isteacheredit) {
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/edit.gif" height="16" width="16" alt="">';
+                if (isediting($this->course->id)) {
+                    $this->content->items[]='<a href="view.php?id='.$this->course->id.'&amp;edit=off">'.get_string('turneditingoff').'</a>';
+                } else {
+                    $this->content->items[]='<a href="view.php?id='.$this->course->id.'&amp;edit=on">'.get_string('turneditingon').'</a>';
+                }
+                $this->content->items[]='<a href="edit.php?id='.$this->course->id.'">'.get_string('settings').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/settings.gif" height="16" width="16" alt="">';
+
+                if (iscreator() or !empty($CFG->teacherassignteachers)) {
+                    if (!$this->course->teachers) {
+                        $this->course->teachers = get_string('defaultcourseteachers');
+                    }
+                    $this->content->items[]='<a href="teacher.php?id='.$this->course->id.'">'.$this->course->teachers.'...</a>';
+                    $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/users.gif" height="16" width="16" alt="">';
+                }
+
+                if (!$this->course->students) {
+                    $this->course->students = get_string('defaultcoursestudents');
+                }
+                $this->content->items[]='<a href="student.php?id='.$this->course->id.'">'.$this->course->students.'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/users.gif" height="16" width="16" alt="">';
+
+                $this->content->items[]='<a href="'.$CFG->wwwroot.'/backup/backup.php?id='.$this->course->id.'">'.get_string('backup').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/backup.gif" height="16" width="16" alt="">';
+
+                $this->content->items[]='<a href="'.$CFG->wwwroot.'/files/index.php?id='.$this->course->id.'&amp;wdir=/backupdata">'.get_string('restore').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/restore.gif" height="16" width="16" alt="">';
+                $this->content->items[]='<a href="scales.php?id='.$this->course->id.'">'.get_string('scales').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/scales.gif" height="16" width="16" alt="">';
+            }
+
+            $this->content->items[]='<a href="grades.php?id='.$this->course->id.'">'.get_string('grades').'...</a>';
+            $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/grades.gif" height="16" width="16" alt="">';
+
+            $this->content->items[]='<a href="log.php?id='.$this->course->id.'">'.get_string('logs').'...</a>';
+            $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/log.gif" height="16" width="16" alt="">';
+
+            if ($isteacheredit) {
+                $this->content->items[]='<a href="'.$CFG->wwwroot.'/files/index.php?id='.$this->course->id.'">'.get_string('files').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/files.gif" height="16" width="16" alt="">';
+            }
+
+            $this->content->items[]='<a href="'.$CFG->wwwroot.'/doc/view.php?id='.$this->course->id.'&amp;file=teacher.html">'.get_string('help').'...</a>';
+            $this->content->icons[]='<img src="'.$CFG->modpixpath.'/resource/icon.gif" height="16" width="16" alt="">';
+
+            if ($teacherforum = forum_get_course_forum($this->course->id, 'teacher')) {
+                $this->content->items[]='<a href="'.$CFG->wwwroot.'/mod/forum/view.php?f='.$teacherforum->id.'">'.get_string('nameteacher', 'forum').'</a>';
+                $this->content->icons[]='<img src="'.$CFG->modpixpath.'/forum/icon.gif" height="16" width="16" alt="">';
+            }
+
+        } else if (!isguest()) {  // Students menu
+            if ($this->course->showgrades) {
+                $this->content->items[]='<a href="grade.php?id='.$this->course->id.'">'.get_string('grades').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/grades.gif" height="16" width="16" alt="">';
+            }
+            if ($this->course->showreports) {
+                $this->content->items[]='<a href="user.php?id='.$this->course->id.'&amp;user='.$USER->id.'">'.get_string('activityreport').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/report.gif" height="16" width="16" alt="">';
+            }
+            if (is_internal_auth()) {
+                $this->content->items[]='<a href="'.$CFG->wwwroot.'/login/change_password.php?id='.$this->course->id.'">'.get_string('changepassword').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/user.gif" height="16" width="16" alt="">';
+            } else if ($CFG->changepassword) {
+                $this->content->items[]='<a href="'.$CFG->changepassword.'">'.get_string('changepassword').'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/user.gif" height="16" width="16" alt="">';
+            }
+            if ($CFG->allowunenroll) {
+                $this->content->items[]='<a href="unenrol.php?id='.$this->course->id.'">'.get_string('unenrolme', '', $this->course->shortname).'...</a>';
+                $this->content->icons[]='<img src="'.$CFG->pixpath.'/i/user.gif" height="16" width="16" alt="">';
+            }
+        }
+
+        return $this->content;
+    }
+}
+
+?>

blocks/admin/db/mysql.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function admin_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/admin/db/postgres7.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function admin_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/calendar_month/block_calendar_month.php

@@ -0,0 +1,63 @@
+<?PHP //$Id$
+
+class CourseBlock_calendar_month extends MoodleBlock {
+    function CourseBlock_calendar_month($course) {
+        $this->title = get_string('calendar', 'calendar');
+        $this->content_type = BLOCK_TYPE_TEXT;
+        $this->course = $course;
+        $this->version = 2004052400;
+    }
+
+    function get_content() {
+        global $USER, $CFG, $SESSION;
+        optional_variable($_GET['cal_m']);
+        optional_variable($_GET['cal_y']);
+
+        require_once($CFG->dirroot.'/calendar/lib.php');
+
+        if ($this->content !== NULL) {
+            return $this->content;
+        }
+
+        $this->content = New object;
+        $this->content->text = '';
+        $this->content->footer = '';
+
+        if ($this->course === NULL) {
+            // Overrides: use no course at all
+            $courseshown = false;
+            $filtercourse = array();
+
+        } else {
+            $courseshown = $this->course->id;
+            $filtercourse = array($courseshown => 1);
+        }
+
+        // We 'll need this later
+        calendar_set_referring_course($courseshown);
+
+        // Be VERY careful with the format for default courses arguments!
+        // Correct formatting is [courseid] => 1 to be concise with moodlelib.php functions.
+
+        calendar_set_filters($courses, $group, $user, $filtercourse, $filtercourse);
+
+        if ($courseshown == 1) {
+            // For the front page
+            $this->content->text .= calendar_overlib_html();
+            $this->content->text .= calendar_top_controls('frontpage', array('m' => $_GET['cal_m'], 'y' => $_GET['cal_y']));
+            $this->content->text .= calendar_get_mini($courses, $group, $user, $_GET['cal_m'], $_GET['cal_y']);
+            // No filters for now
+
+        } else {
+            // For any other course
+            $this->content->text .= calendar_overlib_html();
+            $this->content->text .= calendar_top_controls('course', array('id' => $courseshown, 'm' => $_GET['cal_m'], 'y' => $_GET['cal_y']));
+            $this->content->text .= calendar_get_mini($courses, $group, $user, $_GET['cal_m'], $_GET['cal_y']);
+            $this->content->text .= calendar_filter_controls('course', '', $this->course);
+        }
+
+        return $this->content;
+    }
+}
+
+?>

blocks/calendar_month/db/mysql.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function calendar_month_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/calendar_month/db/postgres7.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function calendar_month_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/calendar_upcoming/block_calendar_upcoming.php

@@ -0,0 +1,55 @@
+<?PHP //$Id$
+
+class CourseBlock_calendar_upcoming extends MoodleBlock {
+    function CourseBlock_calendar_upcoming ($course) {
+        $this->title = get_string('upcomingevents', 'calendar');
+        $this->content_type = BLOCK_TYPE_TEXT;
+        $this->course = $course;
+        $this->version = 2004052400;
+    }
+
+    function get_content() {
+        global $USER, $CFG, $SESSION;
+        optional_variable($_GET['cal_m']);
+        optional_variable($_GET['cal_y']);
+
+        require_once($CFG->dirroot.'/calendar/lib.php');
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        $this->content = New object;
+        $this->content->text = '';
+        $this->content->footer = '<br /><a href="'.$CFG->wwwroot.'/calendar/view.php?view=upcoming&amp;course='.$this->course->id.'">'.get_string('gotocalendar', 'calendar').'</a>...';
+        $this->content->footer .= '<br /><a href="'.$CFG->wwwroot.'/calendar/event.php?action=new">'.get_string('newevent', 'calendar').'</a>...';
+
+        if($this->course === NULL) {
+            // Overrides: use no course at all
+            $courseshown = false;
+            $filtercourse = array();
+        }
+        else {
+            $courseshown = $this->course->id;
+            $filtercourse = array($courseshown => 1);
+        }
+
+        // We 'll need this later
+        calendar_set_referring_course($courseshown);
+
+        // Be VERY careful with the format for default courses arguments!
+        // Correct formatting is [courseid] => 1 to be concise with moodlelib.php functions.
+
+        calendar_set_filters($courses, $group, $user, $filtercourse, $filtercourse, false);
+
+        $this->content->text = calendar_get_sideblock_upcoming($courses, $group, $user, get_user_preferences('calendar_lookahead', CALENDAR_UPCOMING_DAYS), get_user_preferences('calendar_maxevents', CALENDAR_UPCOMING_MAXEVENTS));
+
+        if(empty($this->content->text)) {
+            $this->content->text = '<div style="font-size: 0.8em; text-align: center;">'.get_string('noupcomingevents', 'calendar').'</div>';
+        }
+
+        return $this->content;
+    }
+}
+
+?>

blocks/calendar_upcoming/db/mysql.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function calendar_upcoming_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/calendar_upcoming/db/postgres7.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function calendar_upcoming_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/course_list/block_course_list.php

@@ -0,0 +1,82 @@
+<?PHP //$Id$
+
+class CourseBlock_course_list extends MoodleBlock {
+    function CourseBlock_course_list ($course) {
+        $this->title = get_string('mycourses');
+        $this->content_type = BLOCK_TYPE_LIST;
+        $this->course = $course;
+        $this->version = 2004041800;
+    }
+
+    function get_content() {
+        global $THEME, $CFG, $USER;
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        $this->content = New object;
+        $this->content->items = array();
+        $this->content->icons = array();
+        $this->content->footer = '';
+
+        if (empty($THEME->custompix)) {
+            $icon  = "<img src=\"$CFG->wwwroot/pix/i/course.gif\"".
+                     " height=\"16\" width=\"16\" alt=\"".get_string("course")."\">";
+        } else {
+            $icon  = "<img src=\"$CFG->wwwroot/theme/$CFG->theme/pix/i/course.gif\"".
+                     " height=\"16\" width=\"16\" alt=\"".get_string("course")."\">";
+        }
+
+        if (isset($USER->id) and !isadmin()) {    // Just print My Courses
+            if ($courses = get_my_courses($USER->id)) {
+                foreach ($courses as $course) {
+                    if (!$course->category) {
+                        continue;
+                    }
+                    $linkcss = $course->visible ? "" : " class=\"dimmed\" ";
+                    $this->content->items[]="<a $linkcss title=\"$course->shortname\" ".
+                               "href=\"$CFG->wwwroot/course/view.php?id=$course->id\">$course->fullname</a>";
+                    $this->content->icons[]=$icon;
+                }
+                $this->title = get_string('mycourses');
+                $this->content->footer = "<p><a href=\"$CFG->wwwroot/course/index.php\">".get_string("fulllistofcourses")."</a>...";
+                return $this->content;
+            }
+        }
+
+        $categories = get_categories("0");  // Parent = 0   ie top-level categories only
+        if ($categories) {   //Check we have categories
+            if (count($categories) > 1) {     // Just print top level category links
+                foreach ($categories as $category) {
+                    $linkcss = $category->visible ? "" : " class=\"dimmed\" ";
+                    $this->content->items[]="<a $linkcss href=\"$CFG->wwwroot/course/category.php?id=$category->id\">$category->name</a>";
+                    $this->content->icons[]=$icon;
+                }
+                $this->content->footer = "<p><a href=\"$CFG->wwwroot/course/\">".get_string("searchcourses")."</a>...";
+                $this->title = get_string('categories');
+            } else {                          // Just print course names of single category
+                $category = array_shift($categories);
+                $courses = get_courses($category->id);
+    
+                if ($courses) {
+                    foreach ($courses as $course) {
+                        $linkcss = $course->visible ? "" : " class=\"dimmed\" ";
+                        $this->content->items[]="<a $linkcss title=\"$course->shortname\" ".
+                                   "href=\"$CFG->wwwroot/course/view.php?id=$course->id\">$course->fullname</a>";
+                        $this->content->icons[]=$icon;
+                    }
+                    $this->content->footer = "<p><a href=\"$CFG->wwwroot/course/index.php\">".get_string("fulllistofcourses")."</a>...";
+                } else {
+                    $this->content->items = array();
+                    $this->content->icons = array();
+                    $this->content->footer = get_string('nocoursesyet');
+                }
+                $this->title = get_string('courses');
+            }
+        }
+        return $this->content;
+    }
+}
+
+?>

blocks/course_list/db/mysql.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function course_list_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/course_list/db/postgres7.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function course_list_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/course_summary/block_course_summary.php

@@ -0,0 +1,29 @@
+<?PHP //$Id$
+
+class CourseBlock_course_summary extends MoodleBlock {
+    function CourseBlock_course_summary ($course) {
+        $this->title = get_string('blockname','block_course_summary');
+        $this->content_type = BLOCK_TYPE_TEXT;
+        $this->course = $course;
+        $this->version = 2004041400;
+    }
+
+    function get_content() {
+        global $USER, $CFG;
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        $this->content = New object;
+        $this->content->text = '';
+        $this->content->footer = '';
+        $this->content->text = format_text($this->course->summary, FORMAT_HTML);
+
+        return $this->content;
+    }
+
+    function hide_header() {return true;}
+}
+
+?>

blocks/course_summary/db/mysql.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function course_summary_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/course_summary/db/postgres7.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function course_summary_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/db/mysql.php

@@ -0,0 +1,43 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function blocks_upgrade($oldversion=0) {
+
+global $CFG;
+    
+    $result = true;
+    
+    if ($oldversion < 2004041000 and $result) {
+        $result = execute_sql("CREATE TABLE `{$CFG->prefix}blocks` (
+                        `id` int(10) unsigned NOT NULL auto_increment,
+                        `name` varchar(40) NOT NULL default '',
+                        `version` int(10) NOT NULL default '0',
+                        `cron` int(10) unsigned NOT NULL default '0',
+                        `lastcron` int(10) unsigned NOT NULL default '0',
+                        `visible` tinyint(1) NOT NULL default '1',
+                        PRIMARY KEY (`id`)
+                     ) 
+                     COMMENT = 'To register and update all the available blocks'");
+    }
+
+    //Finally, return result
+    return $result;
+}
+?>

blocks/db/mysql.sql

@@ -0,0 +1,15 @@
+# $Id$
+# 
+# Table structure for table `blocks`
+# 
+
+CREATE TABLE `prefix_blocks` (
+  `id` int(10) unsigned NOT NULL auto_increment,
+  `name` varchar(40) NOT NULL default '',
+  `version` int(10) NOT NULL default '0',
+  `cron` int(10) unsigned NOT NULL default '0',
+  `lastcron` int(10) unsigned NOT NULL default '0',
+  `visible` tinyint(1) NOT NULL default '1',
+  PRIMARY KEY  (`id`)
+) TYPE=MyISAM;
+# --------------------------------------------------------

blocks/db/postgres7.php

@@ -0,0 +1,45 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function blocks_upgrade($oldversion=0) {
+
+global $CFG;
+    
+    $result = true;
+    
+    if ($oldversion < 2004041000 and $result) {
+        $result = execute_sql("
+                                CREATE TABLE {$CFG->prefix}blocks 
+                                (
+              				    id SERIAL8 PRIMARY KEY,
+  			            	    name varchar(40) NOT NULL default '',
+  				                version INT8 NOT NULL default '0',
+  				                cron INT8  NOT NULL default '0',
+  				                lastcron INT8  NOT NULL default '0',
+  				                visible int NOT NULL default '1'
+                                )
+			                    ") ;
+
+    }
+
+    //Finally, return result
+    return $result;
+}
+?>

blocks/db/postgres7.sql

@@ -0,0 +1,14 @@
+# $Id$
+# 
+# Table structure for table blocks
+# 
+
+CREATE TABLE prefix_blocks (
+  id SERIAL8 PRIMARY KEY,
+  name varchar(40) NOT NULL default '',
+  version INT8 NOT NULL default '0',
+  cron INT8  NOT NULL default '0',
+  lastcron INT8  NOT NULL default '0',
+  visible int NOT NULL default '1'
+) ;
+# --------------------------------------------------------

blocks/moodleblock.class.php

@@ -0,0 +1,265 @@
+<?php  // $Id$
+
+define('BLOCK_TYPE_LIST',    1);
+define('BLOCK_TYPE_TEXT',    2);
+define('BLOCK_TYPE_NUKE',    3);
+
+class MoodleBlock {
+    var $str;
+    var $title = NULL;
+    var $course = NULL;
+    var $content_type = NULL;
+    var $content = NULL;
+    var $edit_controls = NULL;
+    var $version = NULL;
+
+    function name() {
+        // Returns the block name, as present in the class name,
+        // the database, the block directory, etc etc.
+        static $myname;
+        if($myname === NULL) {
+            $myname = strtolower(get_class($this));
+            $myname = substr($myname, strpos($myname, '_') + 1);
+        }
+        return $myname;
+    }
+
+    function get_content() {
+        // This should be implemented by the derived class.
+        return NULL;
+    }
+    function get_title() {
+        // Intentionally doesn't check if a title is set, for _test_self()
+        return $this->title;
+    }
+    function get_content_type() {
+        // Intentionally doesn't check if a content_type is set, for _test_self()
+        return $this->content_type;
+    }
+    function get_version() {
+        // Intentionally doesn't check if a version is set, for _test_self()
+        return $this->version;
+    }
+    function get_header() {
+        // Intentionally doesn't check if a header is set, for _test_self()
+        return $this->header;
+    }
+    function refresh_content() {
+        // Nothing special here, depends on content()
+        $this->content = NULL;
+        return $this->get_content();
+    }
+    function print_block() {
+        // Wrap the title in a floating DIV, in case we have edit controls to display
+        // These controls will always be wrapped on a right-floating DIV
+        $title = '<div style="float: left;">'.$this->title.'</div>';
+        if($this->edit_controls !== NULL) {
+            $title .= $this->edit_controls;
+        }
+
+        $this->get_content();
+
+        switch($this->content_type) {
+            case BLOCK_TYPE_NUKE:
+            case BLOCK_TYPE_TEXT:
+                if(empty($this->content->text) && empty($this->content->footer)) {
+                    break;
+                }
+                if ($this->edit_controls !== NULL || !$this->hide_header()) {
+                    print_side_block($title, $this->content->text, NULL, NULL, $this->content->footer);
+                } else {
+                    print_side_block(NULL, $this->content->text, NULL, NULL, $this->content->footer);
+                }
+            break;
+            case BLOCK_TYPE_LIST:
+                if(empty($this->content->items) && empty($this->content->footer)) {
+                    break;
+                }
+                if ($this->edit_controls !== NULL || !$this->hide_header()) {
+                    print_side_block($title, '', $this->content->items, $this->content->icons, $this->content->footer);
+                } else {
+                    print_side_block(NULL, '', $this->content->items, $this->content->icons, $this->content->footer);
+                }
+            break;
+        }
+    }
+    function print_shadow() {
+        $title = '<div style="float: left;">'.$this->title.'</div>';
+        if($this->edit_controls !== NULL) {
+            $title .= $this->edit_controls;
+        }
+        print_side_block($title, '&nbsp;', NULL, NULL, '');
+    }
+    function add_edit_controls($options, $blockid) {
+        global $CFG, $THEME;
+
+        // The block may be disabled
+        $blockid = intval($blockid);
+        $enabled = $blockid > 0;
+        $blockid = abs($blockid);
+
+        if (!isset($this->str)) {
+            $this->str->delete    = get_string('delete');
+            $this->str->moveup    = get_string('moveup');
+            $this->str->movedown  = get_string('movedown');
+            $this->str->moveright = get_string('moveright');
+            $this->str->moveleft  = get_string('moveleft');
+            $this->str->hide      = get_string('hide');
+            $this->str->show      = get_string('show');
+        }
+
+        $path = $CFG->wwwroot.'/course';
+
+        if (empty($THEME->custompix)) {
+            $pixpath = $path.'/../pix';
+        } else {
+            $pixpath = $path.'/../theme/'.$CFG->theme.'/pix';
+        }
+
+        $movebuttons = '<div style="float: right;">';
+
+        if($enabled) {
+            $icon = '/t/hide.gif';
+            $title = $this->str->hide;
+        }
+        else {
+            $icon = '/t/show.gif';
+            $title = $this->str->show;
+        }
+
+        $movebuttons .= '<a style="margin-right: 10px;" title="'.$title.'" href="'.$path.'/view.php?id='.$this->course->id.'&amp;blockaction=toggle&amp;blockid='.$blockid.'">' .
+                        '<img src="'.$pixpath.$icon.'" /></a>';
+
+        $movebuttons .= '<a style="margin-right: 10px;" title="'.$this->str->delete.'" href="'.$path.'/view.php?id='.$this->course->id.'&amp;blockaction=delete&amp;blockid='.$blockid.'">' .
+                        '<img src="'.$pixpath.'/t/delete.gif" /></a>';
+
+        if ($options & BLOCK_MOVE_LEFT) {
+            $movebuttons .= '<a style="margin-right: 3px;" title="'.$this->str->moveleft.'" href="'.$path.'/view.php?id='.$this->course->id.'&amp;blockaction=moveside&amp;blockid='.$blockid.'">' .
+                            '<img src="'.$pixpath.'/t/left.gif" /></a>';
+        }
+        if ($options & BLOCK_MOVE_UP) {
+            $movebuttons .= '<a style="margin-right: 3px;" title="'.$this->str->moveup.'" href="'.$path.'/view.php?id='.$this->course->id.'&amp;blockaction=moveup&amp;blockid='.$blockid.'">' .
+                            '<img src="'.$pixpath.'/t/up.gif" /></a>';
+        }
+        if ($options & BLOCK_MOVE_DOWN) {
+            $movebuttons .= '<a style="margin-right: 3px;" title="'.$this->str->movedown.'" href="'.$path.'/view.php?id='.$this->course->id.'&amp;blockaction=movedown&amp;blockid='.$blockid.'">' .
+                            '<img src="'.$pixpath.'/t/down.gif" /></a>';
+        }
+        if ($options & BLOCK_MOVE_RIGHT) {
+            $movebuttons .= '<a style="margin-right: 3px;" title="'.$this->str->moveright.'" href="'.$path.'/view.php?id='.$this->course->id.'&amp;blockaction=moveside&amp;blockid='.$blockid.'">' .
+                            '<img src="'.$pixpath.'/t/right.gif" /></a>';
+        }
+
+        $movebuttons .= '</div>';
+        $this->edit_controls = $movebuttons;
+    }
+
+    function _self_test() {
+        // Tests if this block has been implemented correctly.
+        // Also, $errors isn't used right now
+        $errors = array();
+
+        $correct = true;
+        if($this->get_title() === NULL) {
+            $errors[] = 'title_not_set';
+            $correct = false;
+        }
+        if(!in_array($this->get_content_type(), array(BLOCK_TYPE_LIST, BLOCK_TYPE_TEXT, BLOCK_TYPE_NUKE))) {
+            $errors[] = 'invalid_content_type';
+            $correct = false;
+        }
+        if($this->get_content() === NULL) {
+            $errors[] = 'content_not_set';
+            $correct = false;
+        }
+        if($this->get_version() === NULL) {
+            $errors[] = 'version_not_set';
+            $correct = false;
+        }
+        $allformats = COURSE_FORMAT_WEEKS | COURSE_FORMAT_TOPICS | COURSE_FORMAT_SOCIAL;
+        if(!($this->applicable_formats() & $allformats)) {
+            $errors[] = 'no_course_formats';
+            $correct = false;
+        }
+        $width = $this->preferred_width();
+        if(!is_int($width) || $width <= 0) {
+            $errors[] = 'invalid_width';
+            $correct = false;
+        }
+        return $correct;
+    }
+
+    function has_config() {
+        return false;
+    }
+    function print_config() {
+        // This does nothing, it's here to prevent errors from
+        // derived classes if they implement has_config() but not print_config()
+    }
+    function handle_config() {
+        // This does nothing, it's here to prevent errors from
+        // derived classes if they implement has_config() but not handle_config()
+    }
+    function applicable_formats() {
+        // Default case: the block can be used in all course types
+        return COURSE_FORMAT_WEEKS | COURSE_FORMAT_TOPICS | COURSE_FORMAT_SOCIAL;
+    }
+    function preferred_width() {
+        // Default case: the block wants to be 180 pixels wide
+        return 180;
+    }
+    function hide_header() {
+        //Default, false--> the header is showed
+        return false;
+    }
+    function html_attributes() {
+        // Default case: we want no extra attributes
+        return false;
+    }
+}
+
+class MoodleBlock_Nuke extends MoodleBlock {
+    function get_content() {
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        global $CFG;
+        $this->content = &New stdClass;
+
+        // This whole thing begs to be written for PHP >= 4.3.0 using glob();
+        $dir = $CFG->dirroot.'/blocks/'.$this->name().'/nuke/';
+        if($dh = @opendir($dir)) {
+            while (($file = readdir($dh)) !== false) {
+                $regs = array();
+                if(ereg('^block\-(.*)\.php$', $file, $regs)) {
+                    // Found it! Let's prepare the environment...
+
+                    $oldvals = array();
+                    if(isset($GLOBALS['admin'])) {
+                        $oldvals['admin'] = $GLOBALS['admin'];
+                    }
+
+                    $GLOBALS['admin'] = isteacher($this->course->id);
+                    @include($dir.$file);
+
+                    foreach($oldvals as $key => $val) {
+                        $GLOBALS[$key] = $val;
+                    }
+
+                    // We should have $content set now
+                    if(!isset($content)) {
+                        return NULL;
+                    }
+                    return $this->content->text = $content;
+                }
+            }
+        }
+
+        // If we reached here, we couldn't find the nuke block for some reason
+        return $this->content->text = get_string('blockmissingnuke');
+    }
+}
+
+?>

blocks/news_items/block_news_items.php

@@ -0,0 +1,38 @@
+<?PHP //$Id$
+
+class CourseBlock_news_items extends MoodleBlock {
+    function CourseBlock_news_items ($course) {
+        $this->title = get_string('latestnews');
+        $this->content_type = BLOCK_TYPE_TEXT;
+        $this->course = $course;
+        $this->version = 2004041200;
+    }
+
+    function get_content() {
+        global $CFG;
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        require_once($CFG->dirroot.'/course/lib.php');
+
+        $this->content = New object;
+        $this->content->text = '';
+        $this->content->footer = '';
+
+        if ($this->course->newsitems) {
+            $news = forum_get_course_forum($this->course->id, 'news');
+            // Slightly hacky way to do it but...
+            ob_start();
+            echo '<font size="-2">';
+            forum_print_latest_discussions($news->id, $this->course->newsitems, "minimal", "", get_current_group($this->course->id));
+            echo '</font>';
+            $this->content->text = ob_get_contents();
+            ob_end_clean();
+        }
+        return $this->content;
+    }
+}
+
+?>

blocks/news_items/db/mysql.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to MySQL
+
+function news_items_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/news_items/db/postgres7.php

@@ -0,0 +1,33 @@
+<?PHP  //$Id$
+//
+// This file keeps track of upgrades to Moodle's
+// blocks system.
+//
+// Sometimes, changes between versions involve
+// alterations to database structures and other
+// major things that may break installations.
+//
+// The upgrade function in this file will attempt
+// to perform all the necessary actions to upgrade
+// your older installtion to the current version.
+//
+// If there's something it cannot do itself, it
+// will tell you what you need to do.
+//
+// Versions are defined by backup_version.php
+//
+// This file is tailored to PostgreSQL
+
+function news_items_upgrade($oldversion=0) {
+
+    global $CFG;
+    
+    $result = true;
+
+    if ($oldversion < 2004041000 and $result) {
+        $result = true; //Nothing to do
+    }
+
+    //Finally, return result
+    return $result;
+}

blocks/online_users/block_online_users.php

@@ -0,0 +1,138 @@
+<?PHP //$Id$
+
+class CourseBlock_online_users extends MoodleBlock {
+    function CourseBlock_online_users ($course) {
+        $this->title = get_string('blockname','block_online_users');
+        $this->content_type = BLOCK_TYPE_TEXT;
+        $this->course = $course;
+        $this->version = 2004041800;
+    }
+
+    function has_config() {return true;}
+
+    function print_config() {
+        global $CFG, $THEME;
+        print_simple_box_start('center', '', $THEME->cellheading);
+        include($CFG->dirroot.'/blocks/'.$this->name().'/config.html');
+        print_simple_box_end();
+        return true;
+    }
+    function handle_config($config) {
+        foreach ($config as $name => $value) {
+            set_config($name, $value);
+        }
+        return true;
+    }
+
+    function get_content() {
+        global $USER, $CFG;
+
+        $timetoshowusers = 300; //Seconds default
+
+        if (isset($CFG->block_online_users_timetosee)) {
+            $timetoshowusers = $CFG->block_online_users_timetosee * 60;
+        }
+
+        if($this->content !== NULL) {
+            return $this->content;
+        }
+
+        $this->content = New object;
+        $this->content->text = '';
+        $this->content->footer = '';
+
+        //Calculate if we are in separate groups
+        $isseparategroups = ($this->course->groupmode == SEPARATEGROUPS and $this->course->groupmodeforce and
+                             !isteacheredit($this->course->id));
+
+        //Get the user current group
+        $currentgroup = $isseparategroups ? get_current_group($this->course->id) : NULL;
+
+        $groupmembers = "";
+        $select = "";
+
+        //Add this to the SQL to show only group users
+        if ($currentgroup !== NULL) {
+            $groupmembers = ", {$CFG->prefix}groups_members gm ";
+            $select .= " AND u.id = gm.userid AND gm.groupid = '$currentgroup'";
+        }
+
+        $timefrom = time()-$timetoshowusers;
+
+        $students = get_records_sql("SELECT u.id, u.username, u.firstname, u.lastname, u.picture, s.timeaccess
+                                     FROM {$CFG->prefix}user u,
+                                          {$CFG->prefix}user_students s
+                                          $groupmembers
+                                     WHERE u.id = s.userid and
+                                           s.course = {$this->course->id} and
+                                           s.timeaccess > $timefrom $select ORDER BY s.timeaccess DESC");
+
+        $teachers = get_records_sql("SELECT u.id, u.username, u.firstname, u.lastname, u.picture, s.timeaccess
+                                     FROM {$CFG->prefix}user u,
+                                          {$CFG->prefix}user_teachers s
+                                          $groupmembers
+                                     WHERE u.id = s.userid and
+                                           s.course = {$this->course->id} and
+                                           s.timeaccess > $timefrom $select ORDER BY s.timeaccess DESC");
+
+        if ($teachers || $students) {
+            if ($students) {
+                foreach ($students as $student) {
+                    $student->fullname = fullname($student);
+                    $users[$student->id] = $student;
+                }
+            }
+            if ($teachers) {
+                foreach ($teachers as $teacher) {
+                    $teacher->fullname = '<b>'.fullname($teacher).'</b>';
+                    $users[$teacher->id] = $teacher;
+                }
+            }
+        } else {
+            $users = null;
+        }
+
+        //Calculate minutes
+        $minutes  = floor($timetoshowusers/60);
+
+        $this->content->text = "<font size=\"-2\"><div align=center>(".get_string("periodnminutes","block_online_users",$minutes).")</div></font>";
+
+        //Now, we have in users, the list of users to show
+        //Because they are online
+        if ($users !== null) {
+            foreach ($users as $user) {
+                $this->content->text .= '<div style="text-align: left; font-size: 0.75em; padding-top: 5px;">';
+                $timeago = format_time(time() - $user->timeaccess);
+                if ($user->picture==0) {
+                    $this->content->text .= '<img src="'.$CFG->pixpath.'/i/user.gif" style="height: 16px; width=16px; vertical-align: middle;" alt=""> ';
+                } else {
+                    if ($CFG->slasharguments) {
+                        $imgtag = '<img src="'.$CFG->wwwroot.'/user/pix.php/'.$user->id.'/f2.jpg" style="height: 16px; width=16px; vertical-align: middle;" alt=""> ';
+                    } else {
+                        $imgtag = '<img src="'.$CFG->wwwroot.'/user/pix.php?file=/'.$user->id.'/f2.jpg" style="height: 16px; width=16px; vertical-align: middle;" alt=""> ';
+                    }
+                    $this->content->text .= $imgtag;
+                }
+                $this->content->text .= '<a href="'.$CFG->wwwroot.'/user/view.php?id='.$user->id.'&amp;course='.$this->course->id.'" title="'.$timeago.'">'.$user->fullname.'</a></div>';
+            }
+/*
+                $table->align = array("right","left");
+                $table->cellpadding = 1;
+                $table->cellspacing = 1;
+                $table->data[] = array("<img src=\"$CFG->pixpath/i/user.gif\" height=16 width=16 alt=\"\">",$user->fullname);
+            }
+            // Slightly hacky way to do it but...
+            ob_start();
+            print_table($table);
+            //$this->content->text .= "<br>".ob_get_contents();
+            ob_end_clean();
+*/
+        } else {
+            $this->content->text .= "<font size=\"-1\"><p align=center>".get_string("none")."</p></font>";
+        }
+
+        return $this->content;
+    }
+}
+
+?>

blocks/online_users/config.html

@@ -0,0 +1,24 @@
+<form method="post" action="block.php">
+
+<table cellpadding="9" cellspacing="0">
+<tr valign="top">
+	<td align="right"><p>block_online_users_timetosee:</td>
+	<td>
+	<input name="block" type="hidden" value="<?php echo intval($_REQUEST['block']); ?>" />
+    <input name="block_online_users_timetosee" type="text" size="5" value="<?php if(isset($CFG->block_online_users_timetosee)) {
+                                                                               p($CFG->block_online_users_timetosee);
+                                                                           } else {
+                                                                               p(5);
+                                                                           } ?>" />
+    </td>
+    <td>
+    <?php print_string("configtimetosee", "block_online_users") ?>
+    </td>
+</tr>
+<tr>
+    <td colspan="3" align="center">
+	<input type="submit" value="<?php print_string("savechanges") ?>"></td>
+</tr>
+</table>
+
+</form>