mirror of
https://github.com/moodle/moodle.git
synced 2025-02-09 01:21:57 +01:00
These patches are maintained in an publicly accessible Arch repository, see: http://lists.eduforge.org/cgi-bin/archzoom.cgi/arch-eduforge@catalyst.net.nz--2004-MIRROR/moodle--eduforge--1.3.3 Index of arch patches in this commit: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-15 final touches to sears stuff until testing can begin, beginning of magical uploadey wrappery function goodness arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-18 Virus scanning on upload arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-19 made emacs use spaces instead of tabs and fixed lib/moodlelib.php where it was bad in the new functions; few wording changes, added in support for clamdscan arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-20 handlevirus.php = new script to handle output of clamscan (designed for cron clamscan), changes to strings for emailing out virus notifications, changes to moodlelib - slightly different notice reporting in handle_infected_file and new function for replacing file with message arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-21 refactor to filter out invalid lines in input to handlevirus arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-22 modified assignment to use hande_file_upload arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-25 bug fix for handle_file_upload arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-26 Small fix for non thinking brain doing something silly arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-35 small fix to switch order of items in drop down to allow sensible defaults arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-36 small changes to strings file arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-38 taken stuff out of moodlelib to put in upload class arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-39 new upload class -in a changeset by itself just in case - not quite finished arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-40 tweaks to upload class - clam_scan_file can now take a path as an argument, not just an entry from _FILES, there is better handling of failure and notification, more allowance for module writers to keep control in general. Also slightly nicer strings entries for a few things arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-41 upload class integration with assignment module, bug fix, slight tweak arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-42 small changes to uploadlib, integration with assessment and assignment arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-44 tweaks for assessment and assignment for uploading arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-48 integration with exercise module arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-49 integration of virus stuff with forum module arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-50 integration of upload class and glossary module arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-51 just in case glossary_move_attachments is ever used, we change the log entries before we move the files. also moved clam_log_upload out of the class arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-52 virus scanning for imports for glossary arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-53 relog entries when moving files attached to forum posts arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-54 resource module integration with virus scanning arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-55 scorm integration with upload/virus class arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-56 fix for handlevirus.php since upload class changes Full logs: Revision: moodle--eduforge--1.3.3--patch-15 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Wed Sep 1 17:28:13 NZST 2004 Standard-date: 2004-09-01 05:28:13 GMT Modified-files: lang/en/moodle.php lib/moodlelib.php mod/assessment/sears.php mod/assessment/upload.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-15 Summary: final touches to sears stuff until testing can begin, beginning of magical uploadey wrappery function goodness Keywords: Revision: moodle--eduforge--1.3.3--patch-18 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Thu Sep 2 15:49:54 NZST 2004 Standard-date: 2004-09-02 03:49:54 GMT Modified-files: admin/config.html lang/en/moodle.php lib/moodlelib.php mod/assessment/upload.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-18 Summary: Virus scanning on upload Keywords: Revision: moodle--eduforge--1.3.3--patch-19 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Thu Sep 2 17:06:14 NZST 2004 Standard-date: 2004-09-02 05:06:14 GMT Modified-files: lang/en/moodle.php lib/moodlelib.php mod/assessment/upload.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-19 Summary: made emacs use spaces instead of tabs and fixed lib/moodlelib.php where it was bad in the new functions; few wording changes, added in support for clamdscan Keywords: Revision: moodle--eduforge--1.3.3--patch-20 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 3 16:06:05 NZST 2004 Standard-date: 2004-09-03 04:06:05 GMT New-files: admin/.arch-ids/handlevirus.php.id admin/handlevirus.php Modified-files: lang/en/moodle.php lib/moodlelib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-20 Summary: handlevirus.php = new script to handle output of clamscan (designed for cron clamscan), changes to strings for emailing out virus notifications, changes to moodlelib - slightly different notice reporting in handle_infected_file and new function for replacing file with message Keywords: Revision: moodle--eduforge--1.3.3--patch-21 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 6 11:37:31 NZST 2004 Standard-date: 2004-09-05 23:37:31 GMT Modified-files: admin/handlevirus.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-21 Summary: refactor to filter out invalid lines in input to handlevirus Keywords: Revision: moodle--eduforge--1.3.3--patch-22 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 6 13:07:48 NZST 2004 Standard-date: 2004-09-06 01:07:48 GMT Modified-files: mod/assignment/upload.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-22 Summary: modified assignment to use hande_file_upload Keywords: Revision: moodle--eduforge--1.3.3--patch-25 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 6 16:32:11 NZST 2004 Standard-date: 2004-09-06 04:32:11 GMT Modified-files: lib/moodlelib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-25 Summary: bug fix for handle_file_upload Keywords: Revision: moodle--eduforge--1.3.3--patch-26 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 6 16:51:50 NZST 2004 Standard-date: 2004-09-06 04:51:50 GMT Modified-files: lib/moodlelib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-26 Summary: Small fix for non thinking brain doing something silly Keywords: Revision: moodle--eduforge--1.3.3--patch-35 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 10:09:53 NZST 2004 Standard-date: 2004-09-09 22:09:53 GMT Modified-files: admin/config.html New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-35 Summary: small fix to switch order of items in drop down to allow sensible defaults Keywords: Revision: moodle--eduforge--1.3.3--patch-36 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 10:11:29 NZST 2004 Standard-date: 2004-09-09 22:11:29 GMT Modified-files: lang/en/moodle.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-36 Summary: small changes to strings file Keywords: Revision: moodle--eduforge--1.3.3--patch-38 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 10:17:24 NZST 2004 Standard-date: 2004-09-09 22:17:24 GMT Modified-files: lib/moodlelib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-38 Summary: taken stuff out of moodlelib to put in upload class Keywords: Revision: moodle--eduforge--1.3.3--patch-39 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 10:21:21 NZST 2004 Standard-date: 2004-09-09 22:21:21 GMT New-files: lib/.arch-ids/uploadlib.php.id lib/uploadlib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-39 Summary: new upload class -in a changeset by itself just in case - not quite finished Keywords: Revision: moodle--eduforge--1.3.3--patch-40 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 11:58:24 NZST 2004 Standard-date: 2004-09-09 23:58:24 GMT Modified-files: lang/en/moodle.php lib/uploadlib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-40 Summary: tweaks to upload class - clam_scan_file can now take a path as an argument, not just an entry from _FILES, there is better handling of failure and notification, more allowance for module writers to keep control in general. Also slightly nicer strings entries for a few things Keywords: Revision: moodle--eduforge--1.3.3--patch-41 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 12:38:02 NZST 2004 Standard-date: 2004-09-10 00:38:02 GMT Modified-files: lib/uploadlib.php mod/assignment/upload.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-41 Summary: upload class integration with assignment module, bug fix, slight tweak Keywords: Revision: moodle--eduforge--1.3.3--patch-42 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 15:30:20 NZST 2004 Standard-date: 2004-09-10 03:30:20 GMT Modified-files: lib/uploadlib.php mod/assessment/upload.php mod/assessment/view.php mod/assignment/upload.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-42 Summary: small changes to uploadlib, integration with assessment and assignment Keywords: Revision: moodle--eduforge--1.3.3--patch-44 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Fri Sep 10 16:54:40 NZST 2004 Standard-date: 2004-09-10 04:54:40 GMT Modified-files: mod/assessment/lib.php mod/assignment/lib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-44 Summary: tweaks for assessment and assignment for uploading Keywords: Revision: moodle--eduforge--1.3.3--patch-48 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 13 09:57:03 NZST 2004 Standard-date: 2004-09-12 21:57:03 GMT Modified-files: lang/en/moodle.php mod/exercise/locallib.php mod/exercise/upload.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-48 Summary: integration with exercise module Keywords: Revision: moodle--eduforge--1.3.3--patch-49 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 13 11:35:46 NZST 2004 Standard-date: 2004-09-12 23:35:46 GMT Modified-files: mod/forum/lib.php mod/forum/post.html New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-49 Summary: integration of virus stuff with forum module Keywords: Revision: moodle--eduforge--1.3.3--patch-50 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 13 14:00:29 NZST 2004 Standard-date: 2004-09-13 02:00:29 GMT Modified-files: lang/en/glossary.php mod/glossary/edit.html mod/glossary/edit.php mod/glossary/lib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-50 Summary: integration of upload class and glossary module Keywords: Revision: moodle--eduforge--1.3.3--patch-51 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 13 15:13:02 NZST 2004 Standard-date: 2004-09-13 03:13:02 GMT Modified-files: lib/uploadlib.php mod/glossary/lib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-51 Summary: just in case glossary_move_attachments is ever used, we change the log entries before we move the files. also moved clam_log_upload out of the class Keywords: Revision: moodle--eduforge--1.3.3--patch-52 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 13 15:26:56 NZST 2004 Standard-date: 2004-09-13 03:26:56 GMT Modified-files: mod/glossary/import.html mod/glossary/import.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-52 Summary: virus scanning for imports for glossary Keywords: Revision: moodle--eduforge--1.3.3--patch-53 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 13 16:02:22 NZST 2004 Standard-date: 2004-09-13 04:02:22 GMT Modified-files: mod/forum/lib.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-53 Summary: relog entries when moving files attached to forum posts Keywords: Revision: moodle--eduforge--1.3.3--patch-54 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Mon Sep 13 16:58:37 NZST 2004 Standard-date: 2004-09-13 04:58:37 GMT Modified-files: mod/resource/coursefiles.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-54 Summary: resource module integration with virus scanning Keywords: Revision: moodle--eduforge--1.3.3--patch-55 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Tue Sep 14 16:15:47 NZST 2004 Standard-date: 2004-09-14 04:15:47 GMT Modified-files: mod/scorm/coursefiles.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-55 Summary: scorm integration with upload/virus class Keywords: Revision: moodle--eduforge--1.3.3--patch-56 Archive: arch-eduforge@catalyst.net.nz--2004 Creator: Penny Leach <penny@catalyst.net.nz> Date: Wed Sep 15 10:33:23 NZST 2004 Standard-date: 2004-09-14 22:33:23 GMT Modified-files: admin/handlevirus.php New-patches: arch-eduforge@catalyst.net.nz--2004/moodle--eduforge--1.3.3--patch-56 Summary: fix for handlevirus.php since upload class changes Keywords:
326 lines
11 KiB
PHP
326 lines
11 KiB
PHP
<?php // $Id$
|
|
|
|
require_once("../../config.php");
|
|
require_once("lib.php");
|
|
|
|
global $CFG, $USER, $THEME;
|
|
|
|
require_variable($id); // Course Module ID
|
|
optional_variable($e); // EntryID
|
|
optional_variable($confirm,0); // proceed. Edit the edtry
|
|
|
|
optional_variable($mode); // categories if by category?
|
|
optional_variable($hook); // CategoryID
|
|
|
|
$mode = strip_tags(urldecode($mode)); //XSS
|
|
$hook = strip_tags(urldecode($hook)); //XSS
|
|
|
|
if (! $cm = get_record("course_modules", "id", $id)) {
|
|
error("Course Module ID was incorrect");
|
|
}
|
|
|
|
if (! $course = get_record("course", "id", $cm->course)) {
|
|
error("Course is misconfigured");
|
|
}
|
|
|
|
require_login($course->id);
|
|
|
|
if ( isguest() ) {
|
|
error("Guests are not allowed to edit glossaries", $_SERVER["HTTP_REFERER"]);
|
|
}
|
|
|
|
if (! $glossary = get_record("glossary", "id", $cm->instance)) {
|
|
error("Course module is incorrect");
|
|
}
|
|
|
|
if (!$glossary->studentcanpost && !isteacher($glossary->course)) {
|
|
error("You can't add/edit entries to this glossary!");
|
|
}
|
|
if ( $confirm ) {
|
|
$form = data_submitted();
|
|
if ( !isset($form->usedynalink) ) {
|
|
$form->usedynalink = 0;
|
|
}
|
|
if ( !isset($form->casesensitive) ) {
|
|
$form->casesensitive = 0;
|
|
}
|
|
if ( !isset($form->fullmatch) ) {
|
|
$form->fullmatch = 0;
|
|
}
|
|
$timenow = time();
|
|
//$form->text = clean_text($form->text, $form->format);
|
|
|
|
$newentry->course = $glossary->course;
|
|
$newentry->glossaryid = $glossary->id;
|
|
|
|
$newentry->concept = trim($form->concept);
|
|
$newentry->definition = $form->text;
|
|
$newentry->format = $form->format;
|
|
$newentry->usedynalink = $form->usedynalink;
|
|
$newentry->casesensitive = $form->casesensitive;
|
|
$newentry->fullmatch = $form->fullmatch;
|
|
$newentry->timemodified = $timenow;
|
|
$newentry->approved = 0;
|
|
if ( $glossary->defaultapproval or isteacher($course->id) ) {
|
|
$newentry->approved = 1;
|
|
}
|
|
|
|
if ($form->concept == '' or trim($form->text) == '' ) {
|
|
$errors = get_string('fillfields','glossary');
|
|
$strglossary = get_string("modulename", "glossary");
|
|
$strglossaries = get_string("modulenameplural", "glossary");
|
|
$stredit = get_string("edit");
|
|
|
|
if ($usehtmleditor = can_use_richtext_editor()) {
|
|
$defaultformat = FORMAT_HTML;
|
|
} else {
|
|
$defaultformat = FORMAT_MOODLE;
|
|
}
|
|
|
|
print_header_simple(strip_tags("$glossary->name"), "",
|
|
"<a href=\"index.php?id=$course->id\">$strglossaries</a> ->
|
|
<a href=\"view.php?id=$cm->id\">$glossary->name</a> -> $stredit", "form.text",
|
|
"", true, "", navmenu($course, $cm));
|
|
|
|
print_heading($glossary->name);
|
|
|
|
include("edit.html");
|
|
|
|
print_footer($course);
|
|
die;
|
|
}
|
|
print_header_simple(strip_tags("$glossary->name"), "",
|
|
"<A HREF=\"index.php?id=$course->id\">$strglossaries</A> ->
|
|
<A HREF=\"view.php?id=$cm->id\">$glossary->name</A> -> $stredit", "form.text",
|
|
"", true, "", navmenu($course, $cm));
|
|
|
|
print_heading($glossary->name);
|
|
|
|
if ($e) {
|
|
//We are updating an entry, so we compare current session user with
|
|
//existing entry user to avoid some potential problems if secureforms=off
|
|
//Perhaps too much security? Anyway thanks to skodak (Bug 1823)
|
|
$old = get_record('glossary_entries', 'id', $e);
|
|
$ineditperiod = ((time() - $old->timecreated < $CFG->maxeditingtime) || $glossary->editalways);
|
|
if ( (!$ineditperiod || $USER->id != $old->userid) and !isteacher($course->id) and $e) {
|
|
if ( $USER->id != $old->userid ) {
|
|
error("You can't edit other people's entries!");
|
|
} elseif (!$ineditperiod) {
|
|
error("You can't edit this. Time expired!");
|
|
}
|
|
die;
|
|
}
|
|
|
|
$newentry->id = $e;
|
|
|
|
$permissiongranted = 1;
|
|
if ( !$glossary->allowduplicatedentries ) {
|
|
if ($dupentries = get_records("glossary_entries","UCASE(concept)", strtoupper($newentry->concept))) {
|
|
foreach ($dupentries as $curentry) {
|
|
if ( $glossary->id == $curentry->glossaryid ) {
|
|
if ( $curentry->id != $e ) {
|
|
$permissiongranted = 0;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ( $permissiongranted ) {
|
|
$newentry->attachment = $_FILES["attachment"];
|
|
if ($newfilename = glossary_add_attachment($newentry, 'attachment')) {
|
|
$newentry->attachment = $newfilename;
|
|
} else {
|
|
unset($newentry->attachment);
|
|
}
|
|
|
|
if (! update_record("glossary_entries", $newentry)) {
|
|
error("Could not update your glossary");
|
|
} else {
|
|
add_to_log($course->id, "glossary", "update entry", "view.php?id=$cm->id&mode=entry&hook=$newentry->id", $newentry->id,$cm->id);
|
|
notify(get_string('entryupdated','glossary'));
|
|
}
|
|
} else {
|
|
error("Could not update this glossary entry because this concept already exist.");
|
|
}
|
|
} else {
|
|
|
|
$newentry->userid = $USER->id;
|
|
$newentry->timecreated = $timenow;
|
|
$newentry->sourceglossaryid = 0;
|
|
$newentry->teacherentry = isteacher($course->id);
|
|
|
|
$permissiongranted = 1;
|
|
if ( !$glossary->allowduplicatedentries ) {
|
|
if ($dupentries = get_record("glossary_entries","UCASE(concept)", strtoupper($newentry->concept), "glossaryid", $glossary->id)) {
|
|
$permissiongranted = 0;
|
|
}
|
|
}
|
|
if ( $permissiongranted ) {
|
|
if (! $newentry->id = insert_record("glossary_entries", $newentry)) {
|
|
error("Could not insert this new entry");
|
|
} else {
|
|
$e = $newentry->id;
|
|
$newentry->attachment = $_FILES["attachment"];
|
|
if ($newfilename = glossary_add_attachment($newentry, 'attachment')) {
|
|
$newentry->attachment = $newfilename;
|
|
} else {
|
|
unset($newentry->attachment);
|
|
}
|
|
set_field("glossary_entries", "attachment", $newfilename, "id", $newentry->id);
|
|
add_to_log($course->id, "glossary", "add entry", "view.php?id=$cm->id&mode=entry&hook=$newentry->id", $newentry->id,$cm->id);
|
|
notify(get_string('entrysaved','glossary'));
|
|
}
|
|
} else {
|
|
error("Could not insert this glossary entry because this concept already exist.");
|
|
}
|
|
}
|
|
|
|
delete_records("glossary_entries_categories","entryid",$e);
|
|
delete_records("glossary_alias","entryid",$e);
|
|
|
|
if ( isset($form->categories) ) {
|
|
$newcategory->entryid = $e;
|
|
foreach ($form->categories as $category) {
|
|
if ( $category > 0 ) {
|
|
$newcategory->categoryid = $category;
|
|
insert_record("glossary_entries_categories",$newcategory);
|
|
} else {
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
if ( isset($form->aliases) ) {
|
|
if ( $aliases = explode("\n",$form->aliases) ) {
|
|
foreach ($aliases as $alias) {
|
|
$alias = trim($alias);
|
|
if ($alias) {
|
|
unset($newalias);
|
|
$newalias->entryid = $e;
|
|
$newalias->alias = $alias;
|
|
insert_record("glossary_alias",$newalias);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
print_continue("view.php?id=$cm->id&mode=entry&hook=$newentry->id");
|
|
print_footer();
|
|
die;
|
|
} else {
|
|
if ($e) {
|
|
$form = get_record("glossary_entries", "id", $e);
|
|
|
|
$newentry->id = $form->id;
|
|
$newentry->concept = $form->concept;
|
|
$newentry->definition = $form->definition;
|
|
$newentry->format = $form->format;
|
|
$newentry->timemodified = time();
|
|
$newentry->approved = $glossary->defaultapproval or isteacher($course->id);
|
|
$newentry->usedynalink = $form->usedynalink;
|
|
$newentry->casesensitive = $form->casesensitive;
|
|
$newentry->fullmatch = $form->fullmatch;
|
|
$newentry->aliases = "";
|
|
$newentry->userid = $form->userid;
|
|
$newentry->timecreated = $form->timecreated;
|
|
|
|
if ( $aliases = get_records("glossary_alias","entryid",$e) ) {
|
|
foreach ($aliases as $alias) {
|
|
$newentry->aliases .= $alias->alias . "\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
//Fill and print the form.
|
|
//We check every field has a default values here!!
|
|
if (!isset($newentry->concept)) {
|
|
$newentry->concept = "";
|
|
}
|
|
if (!isset($newentry->aliases)) {
|
|
$newentry->aliases = "";
|
|
}
|
|
if (!isset($newentry->usedynalink)) {
|
|
if (isset($CFG->glossary_linkentries)) {
|
|
$newentry->usedynalink = $CFG->glossary_linkentries;
|
|
} else {
|
|
$newentry->usedynalink = 0;
|
|
}
|
|
}
|
|
if (!isset($newentry->casesensitive)) {
|
|
if (isset($CFG->glossary_casesensitive)) {
|
|
$newentry->casesensitive = $CFG->glossary_casesensitive;
|
|
} else {
|
|
$newentry->casesensitive = 0;
|
|
}
|
|
}
|
|
if (!isset($newentry->fullmatch)) {
|
|
if (isset($CFG->glossary_fullmatch)) {
|
|
$newentry->fullmatch = $CFG->glossary_fullmatch;
|
|
} else {
|
|
$newentry->fullmatch = 0;
|
|
}
|
|
}
|
|
if (!isset($newentry->definition)) {
|
|
$newentry->definition = "";
|
|
}
|
|
if (!isset($newentry->timecreated)) {
|
|
$newentry->timecreated = 0;
|
|
}
|
|
if (!isset($newentry->userid)) {
|
|
$newentry->userid = $USER->id;
|
|
}
|
|
$strglossary = get_string("modulename", "glossary");
|
|
$strglossaries = get_string("modulenameplural", "glossary");
|
|
$stredit = get_string("edit");
|
|
|
|
if ($usehtmleditor = can_use_richtext_editor()) {
|
|
$defaultformat = FORMAT_HTML;
|
|
} else {
|
|
$defaultformat = FORMAT_MOODLE;
|
|
}
|
|
|
|
print_header_simple(strip_tags("$glossary->name"), "",
|
|
"<a href=\"index.php?id=$course->id\">$strglossaries</a> ->
|
|
<a href=\"view.php?id=$cm->id\">$glossary->name</a> -> $stredit", "",
|
|
"", true, "", navmenu($course, $cm));
|
|
|
|
$ineditperiod = ((time() - $newentry->timecreated < $CFG->maxeditingtime) || $glossary->editalways);
|
|
if ( (!$ineditperiod || $USER->id != $newentry->userid) and !isteacher($course->id) and $e) {
|
|
if ( $USER->id != $newentry->userid ) {
|
|
error("You can't edit other people's entries!");
|
|
} elseif (!$ineditperiod) {
|
|
error("You can't edit this. Time expired!");
|
|
}
|
|
die;
|
|
}
|
|
|
|
echo '<p align="center"><font size="3"><b>' . stripslashes_safe($glossary->name);
|
|
echo '</b></font></p>';
|
|
|
|
/// Info box
|
|
|
|
if ( $glossary->intro ) {
|
|
print_simple_box_start('center','70%');
|
|
echo format_text($glossary->intro);
|
|
print_simple_box_end();
|
|
}
|
|
|
|
/// Tabbed browsing sections
|
|
$tab = GLOSSARY_ADDENTRY_VIEW;
|
|
include("tabs.html");
|
|
|
|
include("edit.html");
|
|
|
|
echo '</center>';
|
|
glossary_print_tabbed_table_end();
|
|
|
|
// Lets give IE more time to load the whole page
|
|
// before trying to load the editor.
|
|
if ($usehtmleditor) {
|
|
use_html_editor("text");
|
|
}
|
|
|
|
print_footer($course);
|
|
|
|
?>
|