mirror of
https://github.com/moodle/moodle.git
synced 2025-02-08 00:52:33 +01:00
38e179a4ed
This check-in removes about 400 lines of code. I hope I have not screwed anything up. I would be grateful if people could review this change, and keep an eye on the navigation bar in modules. Any navigation bar bugs you find in the near future, feel free to file them in the tracker and assign them to me. Thanks. If not to many problems are found, I think I would like to backport this to 1.9 stable, but I am not sure that is a good idea. Opinions to the General Developer Forum please. I am about to start a thread there.
592 lines
21 KiB
PHP
592 lines
21 KiB
PHP
<?php // $Id$
|
|
/**
|
|
* This is a very rough importer for powerpoint slides
|
|
* Export a powerpoint presentation with powerpoint as html pages
|
|
* Do it with office 2002 (I think?) and no special settings
|
|
* Then zip the directory with all of the html pages
|
|
* and the zip file is what you want to upload
|
|
*
|
|
* The script supports book and lesson.
|
|
*
|
|
* @version $Id$
|
|
* @license http://www.gnu.org/copyleft/gpl.html GNU Public License
|
|
* @package lesson
|
|
**/
|
|
|
|
require_once("../../config.php");
|
|
require_once("locallib.php");
|
|
|
|
$id = required_param('id', PARAM_INT); // Course Module ID
|
|
$pageid = optional_param('pageid', '', PARAM_INT); // Page ID
|
|
global $matches;
|
|
|
|
if (! $cm = get_coursemodule_from_id('lesson', $id)) {
|
|
error("Course Module ID was incorrect");
|
|
}
|
|
|
|
if (! $course = get_record("course", "id", $cm->course)) {
|
|
error("Course is misconfigured");
|
|
}
|
|
|
|
// allows for adaption for multiple modules
|
|
if(! $modname = get_field('modules', 'name', 'id', $cm->module)) {
|
|
error("Could not find module name");
|
|
}
|
|
|
|
if (! $mod = get_record($modname, "id", $cm->instance)) {
|
|
error("Course module is incorrect");
|
|
}
|
|
|
|
require_login($course->id, false, $cm);
|
|
$context = get_context_instance(CONTEXT_MODULE, $cm->id);
|
|
require_capability('mod/lesson:edit', $context);
|
|
|
|
$strimportppt = get_string("importppt", "lesson");
|
|
$strlessons = get_string("modulenameplural", "lesson");
|
|
|
|
$navigation = build_navigation($strimportppt, $cm);
|
|
print_header_simple("$strimportppt", " $strimportppt", $navigation);
|
|
|
|
if ($form = data_submitted()) { /// Filename
|
|
|
|
if (empty($_FILES['newfile'])) { // file was just uploaded
|
|
notify(get_string("uploadproblem") );
|
|
}
|
|
|
|
if ((!is_uploaded_file($_FILES['newfile']['tmp_name']) or $_FILES['newfile']['size'] == 0)) {
|
|
notify(get_string("uploadnofilefound") );
|
|
|
|
} else { // Valid file is found
|
|
|
|
if ($rawpages = readdata($_FILES, $course->id, $modname)) { // first try to reall all of the data in
|
|
$pageobjects = extract_data($rawpages, $course->id, $mod->name, $modname); // parse all the html files into objects
|
|
clean_temp(); // all done with files so dump em
|
|
|
|
$mod_create_objects = $modname.'_create_objects';
|
|
$mod_save_objects = $modname.'_save_objects';
|
|
|
|
$objects = $mod_create_objects($pageobjects, $mod->id); // function to preps the data to be sent to DB
|
|
|
|
if(! $mod_save_objects($objects, $mod->id, $pageid)) { // sends it to DB
|
|
error("could not save");
|
|
}
|
|
} else {
|
|
error('could not get data');
|
|
}
|
|
|
|
echo "<hr>";
|
|
print_continue("$CFG->wwwroot/mod/$modname/view.php?id=$cm->id");
|
|
print_footer($course);
|
|
exit;
|
|
}
|
|
}
|
|
|
|
/// Print upload form
|
|
|
|
print_heading_with_help($strimportppt, "importppt", "lesson");
|
|
|
|
print_simple_box_start("center");
|
|
echo "<form id=\"theform\" enctype=\"multipart/form-data\" method=\"post\">";
|
|
echo "<input type=\"hidden\" name=\"id\" value=\"$cm->id\" />\n";
|
|
echo "<input type=\"hidden\" name=\"pageid\" value=\"$pageid\" />\n";
|
|
echo "<table cellpadding=\"5\">";
|
|
|
|
echo "<tr><td align=\"right\">";
|
|
print_string("upload");
|
|
echo ":</td><td>";
|
|
echo "<input name=\"newfile\" type=\"file\" size=\"50\" />";
|
|
echo "</td></tr><tr><td> </td><td>";
|
|
echo "<input type=\"submit\" name=\"save\" value=\"".get_string("uploadthisfile")."\" />";
|
|
echo "</td></tr>";
|
|
|
|
echo "</table>";
|
|
echo "</form>";
|
|
print_simple_box_end();
|
|
|
|
print_footer($course);
|
|
|
|
// START OF FUNCTIONS
|
|
|
|
function readdata($file, $courseid, $modname) {
|
|
// this function expects a zip file to be uploaded. Then it parses
|
|
// outline.htm to determine the slide path. Then parses each
|
|
// slide to get data for the content
|
|
|
|
global $CFG;
|
|
|
|
// create an upload directory in temp
|
|
make_upload_directory('temp/'.$modname);
|
|
|
|
$base = $CFG->dataroot."/temp/$modname/";
|
|
|
|
$zipfile = $_FILES["newfile"]["name"];
|
|
$tempzipfile = $_FILES["newfile"]["tmp_name"];
|
|
|
|
// create our directory
|
|
$path_parts = pathinfo($zipfile);
|
|
$dirname = substr($zipfile, 0, strpos($zipfile, '.'.$path_parts['extension'])); // take off the extension
|
|
if (!file_exists($base.$dirname)) {
|
|
mkdir($base.$dirname);
|
|
}
|
|
|
|
// move our uploaded file to temp/lesson
|
|
move_uploaded_file($tempzipfile, $base.$zipfile);
|
|
|
|
// unzip it!
|
|
unzip_file($base.$zipfile, $base, false);
|
|
|
|
$base = $base.$dirname; // update the base
|
|
|
|
// this is the file where we get the names of the files for the slides (in the correct order too)
|
|
$outline = $base.'/outline.htm';
|
|
|
|
$pages = array();
|
|
|
|
if (file_exists($outline) and is_readable($outline)) {
|
|
$outlinecontents = file_get_contents($outline);
|
|
$filenames = array();
|
|
preg_match_all("/javascript:GoToSld\('(.*)'\)/", $outlinecontents, $filenames); // this gets all of our files names
|
|
|
|
// file $pages with the contents of all of the slides
|
|
foreach ($filenames[1] as $file) {
|
|
$path = $base.'/'.$file;
|
|
if (is_readable($path)) {
|
|
$pages[$path] = file_get_contents($path);
|
|
} else {
|
|
return false;
|
|
}
|
|
}
|
|
} else {
|
|
// cannot find the outline, so grab all files that start with slide
|
|
$dh = opendir($base);
|
|
while (false !== ($file = readdir($dh))) { // read throug the directory
|
|
if ('slide' == substr($file, 0, 5)) { // check for name (may want to check extension later)
|
|
$path = $base.'/'.$file;
|
|
if (is_readable($path)) {
|
|
$pages[$path] = file_get_contents($path);
|
|
} else {
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
ksort($pages); // order them by file name
|
|
}
|
|
|
|
if (empty($pages)) {
|
|
return false;
|
|
}
|
|
|
|
return $pages;
|
|
}
|
|
|
|
function extract_data($pages, $courseid, $lessonname, $modname) {
|
|
// this function attempts to extract the content out of the slides
|
|
// the slides are ugly broken xml. and the xml is broken... yeah...
|
|
|
|
global $CFG;
|
|
global $matches;
|
|
|
|
$extratedpages = array();
|
|
|
|
// directory for images
|
|
make_mod_upload_directory($courseid); // make sure moddata is made
|
|
make_upload_directory($courseid.'/moddata/'.$modname, false); // we store our images in a subfolder in here
|
|
|
|
$imagedir = $CFG->dataroot.'/'.$courseid.'/moddata/'.$modname;
|
|
|
|
if ($CFG->slasharguments) {
|
|
$imagelink = $CFG->wwwroot.'/file.php/'.$courseid.'/moddata/'.$modname;
|
|
} else {
|
|
$imagelink = $CFG->wwwroot.'/file.php?file=/'.$courseid.'/moddata/'.$modname;
|
|
}
|
|
|
|
// try to make a unique subfolder to store the images
|
|
$lessonname = str_replace(' ', '_', $lessonname); // get rid of spaces
|
|
$i = 0;
|
|
while(true) {
|
|
if (!file_exists($imagedir.'/'.$lessonname.$i)) {
|
|
// ok doesnt exist so make the directory and update our paths
|
|
mkdir($imagedir.'/'.$lessonname.$i);
|
|
$imagedir = $imagedir.'/'.$lessonname.$i;
|
|
$imagelink = $imagelink.'/'.$lessonname.$i;
|
|
break;
|
|
}
|
|
$i++;
|
|
}
|
|
|
|
foreach ($pages as $file => $content) {
|
|
// to make life easier on our preg_match_alls, we strip out all tags except
|
|
// for div and img (where our content is). We want div because sometimes we
|
|
// can identify the content in the div based on the div's class
|
|
|
|
$tags = '<div><img>'; // should also allow <b><i>
|
|
$string = strip_tags($content,$tags);
|
|
//echo s($string);
|
|
|
|
$matches = array();
|
|
// this will look for a non nested tag that is closed
|
|
// want to allow <b><i>(maybe more) tags but when we do that
|
|
// the preg_match messes up.
|
|
preg_match_all("/(<([\w]+)[^>]*>)([^<\\2>]*)(<\/\\2>)/", $string, $matches);
|
|
//(<([\w]+)[^>]*>)([^<\\2>]*)(<\/\\2>) original pattern
|
|
//(<(div+)[^>]*>)[^(<div*)](<\/div>) work in progress
|
|
|
|
$path_parts = pathinfo($file);
|
|
$file = substr($path_parts['basename'], 0, strpos($path_parts['basename'], '.')); // get rid of the extension
|
|
|
|
$imgs = array();
|
|
// this preg matches all images
|
|
preg_match_all("/<img[^>]*(src\=\"(".$file."\_image[^>^\"]*)\"[^>]*)>/i", $string, $imgs);
|
|
|
|
// start building our page
|
|
$page = new stdClass;
|
|
$page->title = '';
|
|
$page->contents = array();
|
|
$page->images = array();
|
|
$page->source = $path_parts['basename']; // need for book only
|
|
|
|
// this foreach keeps the style intact. Found it doesn't help much. But if you want back uncomment
|
|
// this foreach and uncomment the line with the comment imgstyle in it. Also need to comment out
|
|
// the $page->images[]... line in the next foreach
|
|
/*foreach ($imgs[1] as $img) {
|
|
$page->images[] = '<img '.str_replace('src="', "src=\"$imagelink/", $img).' />';
|
|
}*/
|
|
foreach ($imgs[2] as $img) {
|
|
copy($path_parts['dirname'].'/'.$img, $imagedir.'/'.$img);
|
|
$page->images[] = "<img src=\"$imagelink/$img\" title=\"$img\" />"; // comment out this line if you are using the above foreach loop
|
|
}
|
|
for($i = 0; $i < count($matches[1]); $i++) { // go through all of our div matches
|
|
|
|
$class = isolate_class($matches[1][$i]); // first step in isolating the class
|
|
|
|
// check for any static classes
|
|
switch ($class) {
|
|
case 'T': // class T is used for Titles
|
|
$page->title = $matches[3][$i];
|
|
break;
|
|
case 'B': // I would guess that all bullet lists would start with B then go to B1, B2, etc
|
|
case 'B1': // B1-B4 are just insurance, should just hit B and all be taken care of
|
|
case 'B2':
|
|
case 'B3':
|
|
case 'B4':
|
|
$page->contents[] = build_list('<ul>', $i, 0); // this is a recursive function that will grab all the bullets and rebuild the list in html
|
|
break;
|
|
default:
|
|
if ($matches[3][$i] != ' ') { // odd crap generated... sigh
|
|
if (substr($matches[3][$i], 0, 1) == ':') { // check for leading : ... hate MS ...
|
|
$page->contents[] = substr($matches[3][$i], 1); // get rid of :
|
|
} else {
|
|
$page->contents[] = $matches[3][$i];
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
/*if (count($page->contents) == 0) { // didnt find anything, grab everything
|
|
// potential to pull in a lot of crap
|
|
for($i = 0; $i < count($matches[1]); $i++) {
|
|
//if($class = isolate_class($matches[1][$i])) {
|
|
//if ($class == 'O') {
|
|
if ($matches[3][$i] != ' ') { // odd crap generated... sigh
|
|
if (substr($matches[3][$i], 0, 1) == ':') { // check for leading : ... hate MS ...
|
|
$page->contents[] = substr($matches[3][$i], 1); // get rid of :
|
|
} else {
|
|
$page->contents[] = $matches[3][$i];
|
|
}
|
|
}
|
|
//}
|
|
//}
|
|
}
|
|
}*/
|
|
// add the page to the array;
|
|
$extratedpages[] = $page;
|
|
|
|
} // end $pages foreach loop
|
|
|
|
return $extratedpages;
|
|
}
|
|
|
|
/**
|
|
A recursive function to build a html list
|
|
*/
|
|
function build_list($list, &$i, $depth) {
|
|
global $matches; // not sure why I global this...
|
|
|
|
while($i < count($matches[1])) {
|
|
|
|
$class = isolate_class($matches[1][$i]);
|
|
|
|
if (strstr($class, 'B')) { // make sure we are still working with bullet classes
|
|
if ($class == 'B') {
|
|
$this_depth = 0; // calling class B depth 0
|
|
} else {
|
|
// set the depth number. So B1 is depth 1 and B2 is depth 2 and so on
|
|
$this_depth = substr($class, 1);
|
|
if (!is_numeric($this_depth)) {
|
|
error("Depth not parsed!");
|
|
}
|
|
}
|
|
if ($this_depth < $depth) {
|
|
// we are moving back a level in the nesting
|
|
break;
|
|
}
|
|
if ($this_depth > $depth) {
|
|
// we are moving in a lvl in nesting
|
|
$list .= '<ul>';
|
|
$list = build_list($list, $i, $this_depth);
|
|
// once we return back, should go to the start of the while
|
|
continue;
|
|
}
|
|
// no depth changes, so add the match to our list
|
|
if ($cleanstring = ppt_clean_text($matches[3][$i])) {
|
|
$list .= '<li>'.ppt_clean_text($matches[3][$i]).'</li>';
|
|
}
|
|
$i++;
|
|
} else {
|
|
// not a B class, so get out of here...
|
|
break;
|
|
}
|
|
}
|
|
// end the list and return it
|
|
$list .= '</ul>';
|
|
return $list;
|
|
|
|
}
|
|
|
|
/**
|
|
Given an html tag, this function will
|
|
*/
|
|
function isolate_class($string) {
|
|
if($class = strstr($string, 'class=')) { // first step in isolating the class
|
|
$class = substr($class, strpos($class, '=')+1); // this gets rid of <div blawblaw class= there are no "" or '' around the class name ...sigh...
|
|
if (strstr($class, ' ')) {
|
|
// spaces found, so cut off everything off after the first space
|
|
return substr($class, 0, strpos($class, ' '));
|
|
} else {
|
|
// no spaces so nothing else in the div tag, cut off the >
|
|
return substr($class, 0, strpos($class, '>'));
|
|
}
|
|
} else {
|
|
// no class defined in the tag
|
|
return '';
|
|
}
|
|
}
|
|
|
|
/**
|
|
This function strips off the random chars that ppt puts infront of bullet lists
|
|
*/
|
|
function ppt_clean_text($string) {
|
|
$chop = 1; // default: just a single char infront of the content
|
|
|
|
// look for any other crazy things that may be infront of the content
|
|
if (strstr($string, '<') and strpos($string, '<') == 0) { // look for the < in the sting and make sure it is in the front
|
|
$chop = 4; // increase the $chop
|
|
}
|
|
// may need to add more later....
|
|
|
|
$string = substr($string, $chop);
|
|
|
|
if ($string != ' ') {
|
|
return $string;
|
|
} else {
|
|
return false;
|
|
}
|
|
}
|
|
|
|
/**
|
|
Clean up the temp directory
|
|
*/
|
|
function clean_temp() {
|
|
global $CFG;
|
|
// this function is broken, use it to clean up later
|
|
// should only clean up what we made as well because someone else could be importing ppt as well
|
|
//delDirContents($CFG->dataroot.'/temp/lesson');
|
|
}
|
|
|
|
/**
|
|
Creates objects an object with the page and answers that are to be inserted into the database
|
|
*/
|
|
function lesson_create_objects($pageobjects, $lessonid) {
|
|
|
|
$branchtables = array();
|
|
$branchtable = new stdClass;
|
|
|
|
// all pages have this info
|
|
$page->lessonid = $lessonid;
|
|
$page->prevpageid = 0;
|
|
$page->nextpageid = 0;
|
|
$page->qtype = LESSON_BRANCHTABLE;
|
|
$page->qoption = 0;
|
|
$page->layout = 1;
|
|
$page->display = 1;
|
|
$page->timecreated = time();
|
|
$page->timemodified = 0;
|
|
|
|
// all answers are the same
|
|
$answer->lessonid = $lessonid;
|
|
$answer->jumpto = LESSON_NEXTPAGE;
|
|
$answer->grade = 0;
|
|
$answer->score = 0;
|
|
$answer->flags = 0;
|
|
$answer->timecreated = time();
|
|
$answer->timemodified = 0;
|
|
$answer->answer = "Next";
|
|
$answer->response = "";
|
|
|
|
$answers[] = clone($answer);
|
|
|
|
$answer->jumpto = LESSON_PREVIOUSPAGE;
|
|
$answer->answer = "Previous";
|
|
|
|
$answers[] = clone($answer);
|
|
|
|
$branchtable->answers = $answers;
|
|
|
|
$i = 1;
|
|
|
|
foreach ($pageobjects as $pageobject) {
|
|
$temp = prep_page($pageobject, $i); // makes our title and contents
|
|
$page->title = $temp->title;
|
|
$page->contents = $temp->contents;
|
|
$branchtable->page = clone($page); // add the page
|
|
$branchtables[] = clone($branchtable); // add it all to our array
|
|
$i++;
|
|
}
|
|
|
|
return $branchtables;
|
|
}
|
|
|
|
/**
|
|
Creates objects an chapter object that is to be inserted into the database
|
|
*/
|
|
function book_create_objects($pageobjects, $bookid) {
|
|
|
|
$chapters = array();
|
|
$chapter = new stdClass;
|
|
|
|
// same for all chapters
|
|
$chapter->bookid = $bookid;
|
|
$chapter->pagenum = count_records('book_chapters', 'bookid', $bookid)+1;
|
|
$chapter->timecreated = time();
|
|
$chapter->timemodified = time();
|
|
$chapter->subchapter = 0;
|
|
|
|
$i = 1;
|
|
foreach ($pageobjects as $pageobject) {
|
|
$page = prep_page($pageobject, $i); // get title and contents
|
|
$chapter->importsrc = addslashes($pageobject->source); // add the source
|
|
$chapter->title = $page->title;
|
|
$chapter->content = $page->contents;
|
|
$chapters[] = $chapter;
|
|
|
|
// increment our page number and our counter
|
|
$chapter->pagenum = $chapter->pagenum + 1;
|
|
$i++;
|
|
}
|
|
|
|
return $chapters;
|
|
}
|
|
|
|
/**
|
|
Builds the title and content strings from an object
|
|
*/
|
|
function prep_page($pageobject, $count) {
|
|
if ($pageobject->title == '') {
|
|
$page->title = "Page $count"; // no title set so make a generic one
|
|
} else {
|
|
$page->title = addslashes($pageobject->title);
|
|
}
|
|
|
|
$page->contents = '';
|
|
|
|
// nab all the images first
|
|
foreach ($pageobject->images as $image) {
|
|
$image = str_replace("\n", '', $image);
|
|
$image = str_replace("\r", '', $image);
|
|
$image = str_replace("'", '"', $image); // imgstyle
|
|
|
|
$page->contents .= addslashes($image);
|
|
}
|
|
// go through the contents array and put <p> tags around each element and strip out \n which I have found to be uneccessary
|
|
foreach ($pageobject->contents as $content) {
|
|
$content = str_replace("\n", '', $content);
|
|
$content = str_replace("\r", '', $content);
|
|
$content = str_replace(' ', '', $content); // puts in returns?
|
|
$content = '<p>'.$content.'</p>';
|
|
$page->contents .= addslashes($content);
|
|
}
|
|
return $page;
|
|
}
|
|
|
|
/**
|
|
Saves the branchtable objects to the DB
|
|
*/
|
|
function lesson_save_objects($branchtables, $lessonid, $after) {
|
|
// first set up the prevpageid and nextpageid
|
|
if ($after == 0) { // adding it to the top of the lesson
|
|
$prevpageid = 0;
|
|
// get the id of the first page. If not found, then no pages in the lesson
|
|
if (!$nextpageid = get_field('lesson_pages', 'id', 'prevpageid', 0, 'lessonid', $lessonid)) {
|
|
$nextpageid = 0;
|
|
}
|
|
} else {
|
|
// going after an actual page
|
|
$prevpageid = $after;
|
|
$nextpageid = get_field('lesson_pages', 'nextpageid', 'id', $after);
|
|
}
|
|
|
|
foreach ($branchtables as $branchtable) {
|
|
|
|
// set the doubly linked list
|
|
$branchtable->page->nextpageid = $nextpageid;
|
|
$branchtable->page->prevpageid = $prevpageid;
|
|
|
|
// insert the page
|
|
if(!$id = insert_record('lesson_pages', $branchtable->page)) {
|
|
error("insert page");
|
|
}
|
|
|
|
// update the link of the page previous to the one we just updated
|
|
if ($prevpageid != 0) { // if not the first page
|
|
if (!set_field("lesson_pages", "nextpageid", $id, "id", $prevpageid)) {
|
|
error("Insert page: unable to update next link $prevpageid");
|
|
}
|
|
}
|
|
|
|
// insert the answers
|
|
foreach ($branchtable->answers as $answer) {
|
|
$answer->pageid = $id;
|
|
if(!insert_record('lesson_answers', $answer)) {
|
|
error("insert answer $id");
|
|
}
|
|
}
|
|
|
|
$prevpageid = $id;
|
|
}
|
|
|
|
// all done with inserts. Now check to update our last page (this is when we import between two lesson pages)
|
|
if ($nextpageid != 0) { // if the next page is not the end of lesson
|
|
if (!set_field("lesson_pages", "prevpageid", $id, "id", $nextpageid)) {
|
|
error("Insert page: unable to update next link $prevpageid");
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
/**
|
|
Save the chapter objects to the database
|
|
*/
|
|
function book_save_objects($chapters, $bookid, $pageid='0') {
|
|
// nothing fancy, just save them all in order
|
|
foreach ($chapters as $chapter) {
|
|
if (!$chapter->id = insert_record('book_chapters', $chapter)) {
|
|
error('Could not update your book');
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
?>
|